Discussion :

[2ismawan]

salut,
j'ai créer un formulaire de navigation qui contient des onglets,dans chaque onglet s'affiche un formulaire j'ai fait un onglet pour consultation et l'autre pour la recherche et le dernier pour la mise a jour(modification,ajout suppression)et je veux que ce dernier n’affiche aucun information jusqu’à entrer un mot de passe si je clique sur l'onglet mise a jour un mot de passe est demandé est ce possible de le faire?

[accessisgood]

Bonjour

il y a plusieurs techniques, en voici une qui s'appuie sur l'attribut "Visible":

1) pour les champs que tu veux proteger, tu mets le Tag=1

2) sur l'evenement OnClick de l'onglet, tu efface ces champs

Code :

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

1
2
3
4
5
6
7
Private Sub TabCtl0_Click()
Dim ctl As Control
Me.Command6.SetFocus ' il faut donner le focus au bouton
For Each ctl In Me.Form
    If ctl.Tag = 1 Then ctl.Visible = False
Next ctl
End Sub

3) tu laisses un bouton visible sur l'onglet qui permet de reafficher les champs caches

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
Private Sub Command6_Click()
Dim prmPassword As String
Dim ctl As Control
 
prmPassword = InputBox("Mot de passe", "getInfo")
 
If UCase(prmPassword) = "ABCD" Then
    For Each ctl In Me.Form
        If ctl.Tag = 1 Then
            ctl.Visible = True
        End If
    Next ctl
Else
    MsgBox "password non correct"
End If

un peu grossier (tu dois coder en dur le mot de passe) mais ca fonctionne - ceci dit il est possible de mettre le mot de passe dans une variable temporaire (settempvar)

MotPassOnglet.zip

[2ismawan]

Merci pour la solution j'ai trouvé une autre,j'ai créer un formulaire qui contient un champ texte mot de passe et bouton pour valider mon mot de passe qui contient ce code:

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
Private Sub btn_Valider_Click()
If IsNull(Me.txt_MotDePasse) Then
MsgBox "Tapez un mot de passe !", vbInformation
Me.txt_MotDePasse.SetFocus
Exit Sub
End If
 
If Me.txt_MotDePasse = "secret" Then
DoCmd.Close
blnPasswordOK = True
Else
MsgBox "Mot de passe incorrect.", vbInformation
Me.txt_MotDePasse.SetFocus
End If
End Sub

et la formulaire que je l'a protège avec mot de passe je cris ce code a l'ouverture de formulaire

Code :

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

1
2
DoCmd.OpenForm "frm_Identification", acNormal, , , , acDialog
Cancel = Not blnPasswordOK