Private Sub cmdValider_Click() Dim db As DataBase Dim rs As Recordset Dim requete As String requete "SELECT * FROM mdp WHERE login '" & txtLogin & "' AND mdp = '" & txtMdp & "'" Set db = CurrentDb Set rs = db.openRecordset (requete,dbOpenDynaset) If rs.RecordCount <> 1 Then MsgBox ("Authentification invalide, veuillez recommencer") Else 'tes instructions si l'authentification s'est bien déroulée End I End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question