1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58
|
Private Sub cmd_connexion_Click()
Me.Requery
Dim sql, User_id, User_profil As String
Dim rs As DAO.Recordset
Static i As Integer
i = 0
sql = "SELECT * FROM Utilisateur WHERE Nom = '" & Me.txt_user & "' AND passwd ='" & Me.txt_pass & "';"
Set rs = CurrentDb.Recordset(sql)
While (Not rs.EOF)
User_id = rs("Nom").Value
User_profil = rs("Profil").Value
If User_profil = "Administrateur" Then
DoCmd.OpenForm "menu_admin", acNormal, , , , acWindowNormal 'mettre Le formulaire Menu admin
DoCmd.Close acForm, "Identification"
rs.MoveLast
Else
If User_profil = "Opérateur" Then
DoCmd.OpenForm "DA_user", acNormal, , , , acWindowNormal 'mettre Le formulaire Menu user
DoCmd.Close acForm, "Identification"
rs.MoveLast
Else
rs.MoveNext
End If
End If
Wend
If rs.EOF Then
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
rs("Statut").Value = "Bloqué"
DoCmd.Quit
End If
End Sub |
Partager