Recordset
moise
-
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 -
Private Sub Signin_Click()
Dim User As Recordset
Set User = CurrentDb.OpenRecordset("Employee", dbOpenTable, dbReadOnly)
User.MoveFirst
While Not User.EOF
If ((Texte2 = User("UserName")) And (Texte4 = User("Password"))) Then
DoCmd.OpenForm ("Menu form")
DoCmd.Close
Else
MsgBox (" Wrong Entry ")
End If
User.MoveNext
Wend
User.Close
End Sub
j arrive a parcourir la table et verifier juste les infomation dans mes textbox et ouvrir un autre form si les info sont correct , si non mettre wrong entry ..
avec ce code ca me donne seule wrong entry plusieur fois ...
Sauvez moi
Dim User As Recordset
Set User = CurrentDb.OpenRecordset("Employee", dbOpenTable, dbReadOnly)
User.MoveFirst
While Not User.EOF
If ((Texte2 = User("UserName")) And (Texte4 = User("Password"))) Then
DoCmd.OpenForm ("Menu form")
DoCmd.Close
Else
MsgBox (" Wrong Entry ")
End If
User.MoveNext
Wend
User.Close
End Sub
j arrive a parcourir la table et verifier juste les infomation dans mes textbox et ouvrir un autre form si les info sont correct , si non mettre wrong entry ..
avec ce code ca me donne seule wrong entry plusieur fois ...
Sauvez moi
1 réponse
-
Bonjour,
Private Sub Signin_Click() Dim User As Recordset Set User = CurrentDb.OpenRecordset("Employee", dbOpenTable, dbReadOnly) User.MoveFirst While Not User.EOF If Texte2 = User.Fields("UserName") And Texte4 = User.Fields("Password") Then DoCmd.OpenForm ("Menu form") DoCmd.Close Else MsgBox (" Wrong Entry ") End If User.MoveNext Wend User.Close End Sub
Bonne suite
