Bonjour
Je voudrais protéger l'ouverture d'un formulaire par un mot de passe.
Comment faire le plus simplement possible.
Merci.
Bonjour
Je voudrais protéger l'ouverture d'un formulaire par un mot de passe.
Comment faire le plus simplement possible.
Merci.
Salut
Essaye de mettre une inputbox sur l'ouverture (load) de ton formulaire, et suivant la réponse rien ou close celui-ci.
Starec
RE
peux tu m expliquer comment faire.
Merci.
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
Guilty for being the best
Il y a des choses qui semblent naturelles... Jusqu'au jour où on ne les a plus...
Salut,
...et ajouter ceci indirectement en passant par la FAQ :http://access.developpez.com/faq/?pa...AffMdpInPutBox
pour faire plus pro...
SE
Si le monde explose, la dernière voix audible sera celle d’un expert, disant que la chose est impossible. - P. Ustinov
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.
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
Guilty for being the best
Il y a des choses qui semblent naturelles... Jusqu'au jour où on ne les a plus...
http://access.developpez.com/faq/?pa...AffMdpInPutBoxEnvoyé par mavean
SE
Si le monde explose, la dernière voix audible sera celle d’un expert, disant que la chose est impossible. - P. Ustinov
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.
slt,
je ne suis pas fan de la "protection" par inputbox mais pour annuler l'ouverture d'un formulaire on met :
dans l'événement Sur Ouverture
Code : Sélectionner tout - Visualiser dans une fenêtre à part Cancel = True
Assistant de création/modification de rubans Office
Utilisez en VBA les librairies graphiques GDI, GDI+ et openGL
Blog Office Mon Site DVP
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager