Erreur dans code et requête sql

Bonjour,

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

Code:

---

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

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:

---

Debug.Print SQL

---

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

au final essaie donc :

Code:

---

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:

---

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,"'","''") & "';"

---