Discussion :

[majudis]

Bonjour,

Ce code ne fonctionne pas, il me précise une erreur mais je ne vois pas ce qui peut clocher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Commande6_Click()
 
Dim login As String
Dim psswd As String
Dim drts As String
Dim rch_passwd As String
 
login = Me.chp_login
psswd = Me.chp_password
 
 
SQL = "INSERT INTO TEMPS_LOGIN (TEMP_LOGIN, TEMP_PASSWD, TEMP_DROITS)" & _
"SELECT [LOGIN], [MOT_DE_PASSE], [DROITS] FROM UTILISATEURS" & _
"WHERE UTILISATEURS.LOGIN = " & login & ";"
CurrentDb.Execute SQL
 
 
 
 
 
 
End Sub

Une idée ?

Grand merci d'avance

Majudis

[Jean-Philippe André]

salut,
si on pouvait avoir le message d'erreur, on pourrait trouver plus vite

Ici, je vois un espace en moins avant le SELECT et le WHERE. Un retour chariot dans ton code n'implique pas un espace dans le code SQL, chose facilement visible en utilisant par exemples des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print SQL

en amont de l'execution de la requete
Ensuite, si ton Login est une chaine de caracteres, il faut entourer la valeur par des quotes (')

au final essaie donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SQL = "INSERT INTO TEMPS_LOGIN (TEMP_LOGIN, TEMP_PASSWD, TEMP_DROITS)" & _
" SELECT [LOGIN], [MOT_DE_PASSE], [DROITS] FROM UTILISATEURS" & _
" WHERE UTILISATEURS.LOGIN = '" & login & "';"

Attention enfin, dans le cas ou ton login peut potentiellement contenir une apostrophe, il faut la doubler pour qu'elle soit prise en compte dans le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
SQL = "INSERT INTO TEMPS_LOGIN (TEMP_LOGIN, TEMP_PASSWD, TEMP_DROITS)" & _
" SELECT [LOGIN], [MOT_DE_PASSE], [DROITS] FROM UTILISATEURS" & _
" WHERE UTILISATEURS.LOGIN = '" & replace(login,"'","''") & "';"