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

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Draconagi)