erreur d'execution VBA/access

erreur d'execution VBA/access - VB/VBA/VBS - Programmation

Marsh Posté le 22-04-2005 à 15:36:40    

bonjour, ce code compile mais detecte 1 erreur d'execution, peut etre que qelq'un aura une idée:
 
Private Sub Commande6_Click()
Dim dbs As DAO.Database
Dim rstSQL As String
Dim r As QueryDef
'création du recorSet
Set dbs = CurrentDb
'requête
rstSQL = "SELECT Utilisateur.loginU, Utilisateur.passwordU" _
& "FROM Utilisateur" _
& "WHERE (Utilisateur.loginU='" & Me.champ_utilisateur & "' and Utilisateur.passwordU='" & Me.champ_mdp & "')"
Set r = dbs.CreateQueryDef("", rstSQL)
r.OpenRecordset
If IsNull(r) Then
MsgBox "Le login ou le mot de passe est incorrect", vbCritical, "Erreur"
End If
End Sub
 
le compilateur me dit qu'il y a une erreur de syntaxe (1 opérateur absent) dan
s ma requête, peut êtr eque quelqu'un est déja passé par la ?
 
Merci

Reply

Marsh Posté le 22-04-2005 à 15:36:40   

Reply

Marsh Posté le 22-04-2005 à 16:45:59    

Il y a des apostrophes ...
 

Code :
  1. Private Sub Commande6_Click()
  2. Dim dbs As DAO.Database
  3. Dim rstSQL As String
  4. Dim r As QueryDef
  5. 'création du recorSet
  6. Set dbs = CurrentDb
  7. 'requête
  8. rstSQL = "SELECT Utilisateur.loginU, Utilisateur.passwordU" _
  9. & "FROM Utilisateur" _
  10. & "WHERE (Utilisateur.loginU=ici" & Me.champ_utilisateur & "ici and Utilisateur.passwordU=ici" & Me.champ_mdp & "et ici)"
  11. Set r = dbs.CreateQueryDef("", rstSQL)
  12. r.OpenRecordset
  13. If IsNull(r) Then
  14. MsgBox "Le login ou le mot de passe est incorrect", vbCritical, "Erreur"
  15. End If
  16. End Sub


 
Il faut remplacer les 'ici' par Chr(39), code pour '

Reply

Marsh Posté le 22-04-2005 à 17:41:22    

j'ai essayé avec ta solution, mais ca ne marche toujours pas. apparement c'est peu être 1 erreur de sql, je vé creuser 1 peu, puis je te tien au courant.

Reply

Marsh Posté le 22-04-2005 à 17:52:45    

J'ai la même erreur (cf sujet juste en dessous...)
Merci de penser à moi :D

Reply

Marsh Posté le 22-04-2005 à 18:01:20    

ok pas de problème. mais la j suis bloqué. je ne trouve vraiment pas. j'ai vu récement un topic la dessus. je vé essayer de le retrouver.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed