aide sur du code VBa generé ds un formulaire - VB/VBA/VBS - Programmation
MarshPosté le 01-02-2004 à 18:45:20
salut à tous et merci de votre aide, J'ai une table "Pass" sous Access avec les colonnes Id et password. G crée un formulaire sous access avec une combobox qui ramene la liste des loggin ([loggin]) et un textbox ([password]) ds lequel l'user entre son mot de pass. G crée un bouton OK qui est censé vérifié par une requete (select * from Pass where [loggin].text = [Pass].Id and [password].text = [Pass].password) si il y a bien un resultat et ds ce cas, il ouvre un autre formulaire et ajoute ds un champ de text invisible le loggin de l'user. Sous Vb je n'arrive pas à executer ce code:
Private Sub cmdok_Click() Dim result As New DAO.Recordset Set result = CurrentDb.OpenRecordset("select * from Pass where [loggin].text = [Pass].Id and [password].text = [Pass].password" ) If result.EOF Then MsgBox ("Mot de passe incorrect" ) Else ecran2.Open ecran2![Log].Text = authentification![Loggin].Text End If
End Sub
Si l'un de vous peut m'aider je lui en serait tres reconnaissant
Marsh Posté le 01-02-2004 à 18:45:20
salut à tous et merci de votre aide,
J'ai une table "Pass" sous Access avec les colonnes Id et password.
G crée un formulaire sous access avec une combobox qui ramene la liste des loggin ([loggin]) et un textbox ([password]) ds lequel l'user entre son mot de pass.
G crée un bouton OK qui est censé vérifié par une requete (select * from Pass where [loggin].text = [Pass].Id and [password].text = [Pass].password) si il y a bien un resultat et ds ce cas, il ouvre un autre formulaire et ajoute ds un champ de text invisible le loggin de l'user.
Sous Vb je n'arrive pas à executer ce code:
Private Sub cmdok_Click()
Dim result As New DAO.Recordset
Set result = CurrentDb.OpenRecordset("select * from Pass where [loggin].text = [Pass].Id and [password].text = [Pass].password" )
If result.EOF Then
MsgBox ("Mot de passe incorrect" )
Else
ecran2.Open
ecran2![Log].Text = authentification![Loggin].Text
End If
End Sub
Si l'un de vous peut m'aider je lui en serait tres reconnaissant