Mot de passe pour rentrer dans une application access

Commenter

Contenu du snippet

La table Utilisateurs qui conserve les données des utilisateurs (ID, Mot de passe, Nom, prénom,etc..). Ce code permet de vérifier les données saisies dans les champs du formulaire.
Ainsi à la fin de la vérification vous pourrez donner accés au menu principal.
Créer donc une table utilisateur et deux formulaire (un pour l'identification et l'autre pour le menu principal).
Vous mettez le formulaire d'identification ( Compte ID chez moi) en formulaire de démarrage et vous empêchez l'accés à la fenêtre de la base par un autre code ou par l'aide sécurité d'access. Ainsi vous vous retrouvez avec une protection plutôt sympas.
N'oubliez pas de crypter votre base.

Source / Exemple : 


Private Sub Commande15_Click()
On Error GoTo Err_Commande15_Click

     MonCritère = "[ID] = '" & Me.ID & "'"
     xd = DLookup("[ID]", "UTILISATEURS", MonCritère)
     MonCritère = "[Mot de passe] = '" & Me.Mot_de_passe & "'"
     mdp = DLookup("[Mot de passe]", "UTILISATEURS", MonCritère)
     If IsNull(xd) Then
         MsgBox ("ID incorrectes")
     End If
    
     If IsNull(mdp) Then
         MsgBox ("Mot de passe incorrect")
     Else
         Dim stDocName As String
         Dim stLinkCriteria As String
     
         stDocName = "MENU"
         
         stLinkCriteria = "[Mot de passe]=" & "'" & Me![Mot de passe] & "'"
         DoCmd.Close
         DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If
Exit_Commande15_Click:
    Exit Sub

Err_Commande15_Click:
    MsgBox Err.DESCRIPTION
    Resume Exit_Commande15_Click
End Sub

Conclusion :


Voilà et j'espère que cela pourra vous servir.
Bon courage à tous.

A voir également

Du même auteur (cs_Draconagi)