J'ai besoin d'aide pour taper une requete SQL dans un code VBA
bassory2008
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- J'ai besoin d'aide pour taper une requete SQL dans un code VBA
- Code ascii - Guide
- Comment taper / sur clavier - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
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
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,
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+
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+
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