Discussion :

[spacesheep]

Bonjour les développezien(e)s et bonne année d^_^b

Comment faire pour que lors de l'ouverture d'un formulaire il demande un mot de passe (par InputBox par exemple). Si le mot de passe est correct il accède au formulaire si ce n'est pas bon il retourne à la page d'accueil.

je vous remercie par avance de l'aide que vous allez m'apporter.

[spacesheep]

j'ai trouvé une solution

j'ai créer un formulaire en plus ici j'ai choisi frm_mdp.

ce formulaire contient une zone de texte et deux boutons ok et quitter.

voici le code que j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Option Compare Database
 
Private Sub btn_ok_Click()
 
If IsNull(Me.zt_mdp) Then
MsgBox "Merci de taper le mode de passe", vbInformation
Me.zt_mdp.SetFocus
Exit Sub
End If
 
If Me.zt_mdp = "toto" Then
DoCmd.OpenForm ("frm_accueil_intervention")
DoCmd.Close acForm, "frm_mdp"
Else
MsgBox "Mot de passe incorrect", vbExclamation
Me.zt_mdp.SetFocus
End If
 
End Sub
 
Private Sub btn_quitter_Click()
 
DoCmd.Close
 
End Sub

si d'autre personne on une autre solution je suis prenant ^^

Merci

[stigma]

Voici ma méthode qui permet de masquer la saisie du mot de passe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
Dim s_PassUser As String
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
    If KeyCode = vbKeyEscape Then
        DoCmd.Close acForm, "F_mdp"
        Exit Sub
    End If
 
    lbl_ZonePass.Caption = lbl_ZonePass.Caption + "* "
 
    If KeyCode <> 13 Then s_PassUser = s_PassUser + Chr(KeyCode)
 
    If KeyCode = 13 Then
        lbl_ZonePass.Caption = ""
        Call verifier
    End If
 
End Sub
 
Sub verifier()
 
    If s_PassUser = "monmotdepasse" Then
        lbl_ZonePass.Visible = False: Etk_Password.Visible = False
        'suite de ton code
    Else
        MsgBox "Mauvais mot de passe !", vbCritical, "RECOMMENCEZ"
        s_PassUser = ""
    End If
 
End Sub

[spacesheep]

Merci stigma pour ton aide d^_^b