J'ai besoin d'aide pour taper une requete SQL dans un code VBA
bassory2008
Messages postés
10
Statut
Membre
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
Bonjour a tous je veux taper une requete SQL dans un code VBA pour recuperer les valeurs de 2 Champs sous Access 2007 afin de les faires verifier par un bouton nommer "connecter" j'ai taper mon code mais il passe pas voici mon code
Private Sub Commande8_Click()
Dim Login, MotPass As String
Dim UTILISATEUR As String
Login.Value = Login.Text
MotPass.Value = MotPass.Text
UTILISATATEUR = "SELECT Count(*) FOR UTILISATEUR WHERE Login.Text = (Login) MotPass.Text = (MotPass) "
End Sub
Private Sub Commande8_Click()
Dim Login, MotPass As String
Dim UTILISATEUR As String
Login.Value = Login.Text
MotPass.Value = MotPass.Text
UTILISATATEUR = "SELECT Count(*) FOR UTILISATEUR WHERE Login.Text = (Login) MotPass.Text = (MotPass) "
End Sub
2 réponses
-
Bonjour
Tu pourrais faire un petit effort d'attention...
UTILISATEUR et UTILISATATEUR, ce n'est pas la même chose
et surtout
c'est SELECT FROM et pas SELECT FOR-
-
Bonjour a tous je veux taper une requete SQL dans un code VBA pour recuperer les valeurs de 2 Champs sous Access 2007 afin de les faires verifier par un bouton nommer "connecter" j'ai taper mon code mais il passe pas voici mon code
Private Sub Commande8_Click()
Dim Login, MotPass As String
Dim UTILISATEUR As String
Login.Value = Login.Text
MotPass.Value = MotPass.Text
UTILISATEUR = "SELECT Count(*) FROM UTILISATEUR WHERE Login.Text = (Login) MotPass.Text = (MotPass) "
End Sub
-
-
Bonjour,
plutot qu'une requete, utilisez DCount pour savoir si au moins un login possible
AuMoinsUn = DCount("[login]", "UTILISATEUR", "[login] = '" & login.Text & "' AND [motpass] ='" & motpass.Text & "'")
et faites des tests sur AuMoinsUn :
0---> personne
>1---> plusieurs(pas normale)
1 ----> ok
A+
