Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1504 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur d'execution VBA/access

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

erreur d'execution VBA/access

n°1056748
le_bob75
Posté le 22-04-2005 à 15:36:40  profilanswer
 

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

mood
Publicité
Posté le 22-04-2005 à 15:36:40  profilanswer
 

n°1056922
knakes
Posté le 22-04-2005 à 16:45:59  profilanswer
 

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 '

n°1057020
le_bob75
Posté le 22-04-2005 à 17:41:22  profilanswer
 

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.

n°1057031
Mariooo
Posté le 22-04-2005 à 17:52:45  profilanswer
 

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

n°1057036
le_bob75
Posté le 22-04-2005 à 18:01:20  profilanswer
 

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.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  erreur d'execution VBA/access

 

Sujets relatifs
Requête SQL pour accesserreur de compil
Erreur "Impossible de verrouiller le fichier"Vba access : gestion d'erreur malgré DoCmd.SetWarnings False
remise à zero numauto accessActive Directory et VBA Access
interoger BD/ VBA/ DAO 
Plus de sujets relatifs à : erreur d'execution VBA/access


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR