Discussion :

[mavean]

Bonjour
Je voudrais protéger l'ouverture d'un formulaire par un mot de passe.
Comment faire le plus simplement possible.

Merci.

[Invité]

Salut

Essaye de mettre une inputbox sur l'ouverture (load) de ton formulaire, et suivant la réponse rien ou close celui-ci.

Starec

[mavean]

RE

peux tu m expliquer comment faire.
Merci.

[Boolean69]

Essai donc ça :

Private Sub Form_Load()

Dim mdp as String
mdp = inputbox("mot de pass ?")
If mdp <> "TonMotDePass" then
DoCmd.Close acForm, "NomDeTonFormulaire"
End If


End Sub

[stéphane_ais2]

Salut,

...et ajouter ceci indirectement en passant par la FAQ :http://access.developpez.com/faq/?pa...AffMdpInPutBox

pour faire plus pro...

SE

[mavean]

Re
Je met un bouton pour ouvrir le formulaire et dans propriété sur clic je met le code suivant
ESSAI est mon mot de passe
FMESSAIPOURCORRECTION est le nom de formulaire à protéger.

Option Compare Database
*************************
Private Sub Commande0_Click()
Private Sub Form_Load()

Dim mdp As String
mdp = InputBox("ESSAI")
If mdp <> "ESSAI" Then
DoCmd.Close acForm, "FMESSAIPOURCORRECTION"
End If


End Sub
***********************************
Cela ne marche pas et en plus dans la msbox j ai le code qui s affiche
A l'aide.
Et encore merci.

[Boolean69]

Supprime cette ligne :

Private Sub Commande0_Click()

et Dans l'inputbox, il faut que tu lui dise "Veuillez saisir le mot de passe" , et non ton mot de passe

[stéphane_ais2]

Cela ne marche pas et en plus dans la msbox j ai le code qui s affiche

http://access.developpez.com/faq/?pa...AffMdpInPutBox

SE

[mavean]

Re
J'ai mis cela dans le code du bouton de formulaire

Option Compare Database
**************
Private Sub Form_Load()

Dim mdp As String
mdp = InputBox("MON MOT DE PASSE ")
If mdp <> "ESSAI" Then
DoCmd.Close acForm, "FMESSAIPOURCORRECTION"
End If

End Sub
*****************
Et cela ne marche pas
Si je clique sur le nom du formulaire j'ai bien le Box qui me demande le mot de passe mais si je donne le bon mot de passe je n'ai pas l'ouverture du formulaire FMESSAIPOURCORRECTION mais je me retrouve sur le formulaire avec le bouton de meme si je tape un mauvais mot de passe.
Ou est l erreur
Merci.

[Arkham46]

slt,

je ne suis pas fan de la "protection" par inputbox mais pour annuler l'ouverture d'un formulaire on met :

Code :

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

Cancel = True

dans l'événement Sur Ouverture