Recordset

Fermé

moise - 21 févr. 2013 à 19:42
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 22 févr. 2013 à 15:13

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

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
22 févr. 2013 à 15:13

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

Discussions similaires

Impossible de mettre à jour le Recorset

Comment paramétrer le recordset d'ACCESS

ASP recordset

[VBA] : Lire un RecordSet

erreur RS recordset (3001)

Discussions similaires

Newsletters