Recordset
moise
-
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 -
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,
Bonne suite
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
