[AC-2003] Créer un login/mdp dans un formulaire [Résolu]

[Magno]

Bonjour,

J'ai un livre sur Access, qui me parle des utilisateurs en interne (outils/sécurité...chose qui ne m'intéresse absolument pas). Je n'ai pas trouvé de tutoriel concernant la création d'utilisateur dans un formulaire sur votre forum. (p-e mal cherché)
Donc j'aimerai avoir un petit coups de main ou je pourrais trouver un lien sur un tutoriel.

Objectif :

Je voudrais quand j'ouvre Access, qu'une page de formulaire s'ouvre (facile à faire) et que dans ce formulaire il y aurait un système de login/mdp qui m'ouvre mon formulaire "menu" grâce à un bouton connection.
Je débute dans Access, je n'ai donc aucune notion de code.

Merci de votre attention
Bonne journée

[f-leb]

bonjour,

si si il y a des trucs dans la

en particulier:
Formulaire Login/mot de passe

[Magno]

je l'avais déjà vu celui la, l'ennui ce n'est que du code... hors je ne comprend pas grand chose, et je n'aime pas trop faire un copier coller sans comprendre, comprends tu ?

[lucas-18]

Salut, dans ton formulaire tu crée une zone de texte nommée Password et 1 bouton de commande nommé OK.
Sur l'évènement surclick du bouton de commande OK mets le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub OK_Click()
If IsNull(Me.Password) Then
MsgBox "Veuillez entrer le mot de passe svp.", vbInformation
Me.Password.SetFocus
Exit Sub
End If
 
If Me.Password = "Le mot de passe que tu veux" Then
DoCmd.OpenForm ("le nom du formulaire que tu veux ouvrir")
DoCmd.CLOSE acForm, "ton formulaire de mot de passe"
Else
MsgBox "Le mot de passe est incorrect !", vbExclamation
Me.Password.SetFocus
Me.Password = Null
End If
End Sub

[Magno]

bon voila pour commencer j'ai fait cela :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub connection_Click()
 
UserName.SetFocus
If UserName = "Administrateur" And Passeword = "admin" Then
    MsgBox "Bienvenue"
    DoCmd.Close
    DoCmd.OpenForm "Formulaire2"
 
ElseIf UserName = "FIFI" And Passeword = "fifi" Then
    MsgBox "Bienvenue"
    DoCmd.Close
    DoCmd.OpenForm "Formulaire1"
ElseIf UserName = "RIRI" And Passeword = "riri" Then
    MsgBox "Bienvenue"
    DoCmd.Close
    DoCmd.OpenForm "Formulaire2"
 
Else
    MsgBox "entrer à nouveau le nom de l'utilisateur et le mdp"
End If
End Sub

Dans mon formulaire 1 j'ai pleins d'informations concernant des élève s FIFI,RIRI... et je voudrais filtrer quand je me log avec FIFI le champ élève par FIFI, est ce possible?

[Magno]

quelqu'un aurait une solution à me proposer ?? svp

[RoZyk]

Bonjour,
Tu voudrais en fait, que si tu te log avec FIFI, n'avoir que les infos de FIFI, et si tu te log avec admin, tout avoir?
J'ai bien compris?

[Magno]

oui c'est tout à fait cela !

[f-leb]

bonjour,

Envoyé par Magno

...et je n'aime pas trop faire un copier coller sans comprendre, comprends tu ?

Tout à ton honneur mais maintenant que tu t'es résolu à passer par du code, pourquoi ne pas essayer de comprendre et adapter celui de la FAQ.
Plutôt que de ré-inventer la roue...

A priori si tu crées une table des utilisateurs, il ne reste plus qu'à adapter la ligne avec Docmd.OpenForm (cf aide Access pour les arguments de la fonction) pour ouvrir ton formulaire sur l'utilisateur correspondant.

[Magno]

justement, je ne sais faire que des choses facile, comme je l'ai montré plus haut, je ne sais pas faire mieux... et le code qu'il y a dans la FAQ je ne comprends pas du tout !
C'est pourquoi je demandais un peu d'aide la dessus, j'essaie par moi même (le code que j'ai établi) mais mes compétences sont limitées...

Rozyk avait l'aire d'avoir compris ce que je voulais mais je n'ai plus de nouvelles...

[RoZyk]

Me revoilà,
J'avais un peu de boulot aujourd'hui...

Moi j'ai créer un formulaire de connexion pour ma propre base.

J'ai en premier lieu créer un table "TblConnexion" avec les identifiants et les mdp associé. Ensuite lorsque que je clique sur le bouton valider de mon formulaire, je vérifie si l'identifiant est dans ma table et si le mdp correspond ensuite j'ouvre mon formulaire accueil.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub valider_Click()
Me.Requery
Dim SQL As String
Dim rs As DAO.Recordset
Static i As Byte
SQL = "SELECT TblConnexion.Utilisateur, TblConnexion.MotDePasse FROM TblConnexion WHERE TblConnexion.Utilisateur = '" & Me.txtutilisateur & "' AND TblConnexion.MotDePasse ='" & Me.txtmotdepasse & "';"
Set rs = CurrentDb.OpenRecordset(SQL)
If Not rs.EOF Then
    MsgBox "Identification réussie" & vbCrLf & "Ouverture de la gestion en cours...", vbInformation, "Veuillez patientez..."
    DoCmd.Hourglass True
    DoCmd.OpenForm "FormAccueil "
    DoCmd.Close acForm, "FormConnexion"
    DoCmd.Hourglass False
Else
    MsgBox "Votre identifiant et/ou votre mot de passe sont incorrects", vbInformation, "Connexion"
    i = i + 1
End If
If i = 3 Then
    MsgBox "Vous avez dépassé le nombre de tentatives autorisées", vbCritical
    DoCmd.Quit
End If
End Sub

Ensuite pour ton problème à toi, soit tu créer un formulaire pour chaque profil utilisateur, soit tu gardes le même formulaire que tu remplis en fonction de l'utilisateur connecté??

Voilà, j'espère avoir pu t'aider (je commente très mal mon code... Toujours le même défaut...)

Après je suis d'accord avec f-leb, il y a beaucoup de chose dans la FAQ, c'est la que j'ai tout appris... Il n'y a jamais le code qu'il te faut exactement, mais en recoupant les informations.... C'est comme ça que tu vas t'en sortir

[Magno]

oui merci je vais faire plusieurs formulaires alors, pq je n'arrive pas à trouver une solution sans passer par du code, pq comme tu as put le voir, j'ai un niveau plus que débutant.
Pour revenir a la FAQ, oui il y a plein de chose, mais l'ennui quand tu n'y comprends pas grand chose, c'est un peu difficile... et le copier coller ne m'intéresse pas du tout !
Je vais essayer d'analyser ton code et essayer de me faire un truc...

[Magno]

ha mais non je ne peux pas, j'ai un cahier des charges bien complexes, je ne connaitrais pas les utilisateurs (en avance). donc je ne peux pas avoir plusieurs formulaire, il faut absolument que je trouve un moyen de faire une requête selon la personne qui se connecte pour "filtrer" ses champs...

je suis toujours preneur de solutions, d'ailleurs je peux envoyer par mail ma bd

Merci