Bonjour
Ci-dessous la formule pour saisir dans une fenêtre un mot de passe.
Malheureusement le mot de passe est affiché visiblement en haut comme nom de la fenêtre dans le bord gris autour.
Comment éviter que le mot de passe s'affiche?
Merci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Private Sub cmdPWD_Click() Const MyPWD As String = "test2" If InputBox("Saisissez le mot de passe", "test2") = MyPWD Then DoCmd.OpenForm "F_transfert" Else MsgBox "Désolé, mais vous faites fausse route !", vbExclamation, "Raté !" End If End Sub
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 Private Sub saisie_Click() On Error GoTo Err_saisie_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "f_saisie-client" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_saisie_Click: Exit Sub Err_saisie_Click: MsgBox Err.Description Resume Exit_saisie_Click End Sub
Partager