J'ai besoin d'aide pour taper une requete SQL dans un code VBA

Fermé

bassory2008 Messages postés 7 Date d'inscription samedi 10 novembre 2012 Statut Membre Dernière intervention 1 juin 2015 - Modifié par bassory2008 le 8/07/2013 à 15:21
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 9 juil. 2013 à 15:56

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

A voir également:

J'ai besoin d'aide pour taper une requete SQL dans un code VBA
Comment taper / sur clavier - Guide
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
8 juil. 2013 à 16:15

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

bassory2008 Messages postés 7 Date d'inscription samedi 10 novembre 2012 Statut Membre Dernière intervention 1 juin 2015
9 juil. 2013 à 12:16

Merçi pour la remarque je suis un debutant mais j'ai vraiment besoin d'aide pour ameliorer mon code!

bassory2008 Messages postés 7 Date d'inscription samedi 10 novembre 2012 Statut Membre Dernière intervention 1 juin 2015
9 juil. 2013 à 12:17

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

Réponse 2 / 2

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
9 juil. 2013 à 15:56

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+

Discussions similaires

code d'activation GTA 5 steam

code ascii

Code de renvoi d'appel : Ooredo, Mobilis...