1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Public str_id, str_password, str_grade As String
Private Sub Command1_Click()
str_id = Text1.Text
str_password = Text2.Text
Data1.Recordset.FindFirst "id like '" & str_id & "'"
Data1.Recordset.FindFirst "password like '" & str_password & "'"
If str_id = Data1.Recordset.Fields("id") And str_password = Data1.Recordset.Fields("password") Then
If Data1.Recordset.Fields("grade") = "administrateur" Then frm_admin.Show
If Data1.Recordset.Fields("grade") = "user" Then frm_index.Show
Else
MsgBox "Vérifiez votre nom d'utilisateur ou mot de passe !"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub |