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
| Private Sub connexion_Click()
Dim sql As String, ID_connexion As String, profil As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT pk_utilisateur, profil FROM t_utilisateur WHERE login = '" & Me.login & "' AND password ='" & Me.password & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
ID_connexion = rs("pk_utilisateur").Value
profil_utilisateur = rs("profil").Value
' suppression des données de l'utilisateur connecté dans la tale locale
sql = "delete * from tblConnexionLocale;"
currentdb.execute sql
' chargement des données de l'utilisateur connecté dans la tale locale
sql = "insert into tblConnexionLocale (utilisateur, profil) values('" & ID_connexion & "', '" & profil_utilisateur & "');"
currentdb.execute sql
DoCmd.Close acForm, "f_connexion"
DoCmd.OpenForm "f_navigation", acNormal, , , , acWindowNormal
Else
MsgBox "Identifiant ou mot de passe incorrect ", vbInformation, "Connexion"
i = i + 1
End If
rs.close
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
DoCmd.Quit
End If
End Sub |
Partager