2- ACCESS VBA MOT DE PASSE 2/2 password

La vidéo explique comment créer un formulaire authentification avec logon et mot de passe pour les utilisateurs d'une application ACCESS. N’hésitez pas a poser vos questions.

groupe Facebook PROG EXPERT:
https://m.facebook.com/groups/2657827...


Partie 1 :    • 1- ACCESS VBA MOT DE PASSE 1/2 password  


Code VBA :
Private Sub BTANNULER_Click()
Me.TX_LOGON = ""
Me.TX_MOTPASSE = ""
Me.TX_LOGON.SetFocus
End Sub

Private Sub BTOK_Click()
If IsNull(Me.TX_LOGON) Then
MsgBox "Champ obligatoire", vbInformation, "Erreur"
Me.TX_LOGON.SetFocus
ElseIf IsNull(Me.TX_MOTPASSE) Then
MsgBox "Champ obligatoire", vbInformation, "Erreur"
Else
If (IsNull(DLookup("LOGON", "T_IDENT", "LOGON = '" & Me.TX_LOGON.Value & "'"))) Or _
(IsNull(DLookup("MOT_PASSE", "T_IDENT", "MOT_PASSE ='" & Me.TX_MOTPASSE & "'"))) Then
MsgBox "Combinaison LOGON/MOT DE PASSE est incorrecte", vbCritical, "Erreur"
Else
DoCmd.OpenForm "F_OUVERTURE"
DoCmd.Close acForm, "F_IDENT"
End If

End If
End Sub


Source sur le site de Microsoft :
https://support.microsoft.com/fr-fr/o...