Access 2003 bouton avec mot de passe formulai Résolu

Question

Bonjour à tous,

J'ai access 2003 avec un formulaire dans lequel il y a un bouton que j'ai rendu invisible car il n'y a que moi qui doit y avoir accès.

Comme c'est un peu embêtant de toujours aller dessus et de lui redire bouton visible, je voulais savoir comment est-ce que je peux mettre un mot de passe sur ce bouton ?

Merci pour votre aide.


Configuration: Windows XP / Safari 533.4

Xavier · Answer

Bonjour,

voici un exemple : http://www.self-access.com/cms/access/tutoriaux/formulaire-motdepasse/

Cdlt.

rizoul · Answer

Merci pour le lien Xavier...

Mais je souhaiterais qu'un mot de passe soit demandé uniquement sur un bouton contenu dans le formulaire et pas au formulaire entier est-ce possible ?

Xavier · Answer

Oui c'est possible, le lien que je t'ai passé est juste un exemple.

Comme dans l'exemple tu crées un formulaire de saisie du mot de passe. Sur le clique du bouton tu affiches ton formulaire password si tu valides le bon mot de passe tu execute se que tu veux et si c'est pas bon ca n'exécute rien.

Cdlt.

rizoul · Answer

Ah ok je vais tester et te redis car ensuite si le mot de passe était ok j'aurais voulu ouvrir un autre formulaire qui est réservé à l'admin.

Xavier · Answer

tien je t'ai fais un exemple :

http://www.cijoint.fr/cjlink.php?file=cj201007/cijeOiyS87.zip

Cdlt.

rizoul · Answer

Merci ....
J'ai mis en place selon ton exemple mais j'ai juste encore une petite question...
Si le mot de passe est ok j'aimerais ouvrir le formulaire en question.

Je dois faire ceci ?

stDocName = "Formulaire à ouvrir"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Xavier · Answer

Oui, mais a mettre dans le test entre If Me.mdp.value et Else

Cdlt.

rizoul · Answer

Ok j'ai réussi ...
Encore un petite chose si je veux avoir comme dans ton lien la fenêtre de mot de passe au centre et juste ajuster au contenu ?
Merci

Xavier · Answer

Pour le centrage tu vas dans les propriétés de ton formulaire Format / Taille ajuster : Oui et Auto centrer : Oui

Cdlt.

rizoul · Answer

Alors si mon formulaire ou j'ai mon bouton est en plein écran mon form. password est aussi ?
Si je réduis un peu mon formulaire ou j'ai mon bouton mon form est ok bizarre...

Comme mon formulaire ou je presse ok est toujours en plein écran j'aimerais que lorsque l'on clique ok le formulaire de password s'affiche au centre et ajusté.

Xavier · Answer

Ah ok, il faut juste que pour le formulaire password tu le mette en fen indépendante (Propriété formulaire password / Autre et mettre fen indépendant à oui)

Cdlt.

rizoul · Answer

Super...  
Je vois encore un autre truc je remarque lorsque j'ai tapé mon mot de passe juste mon formulaire mot de passe reste à l'écran.

J'ai ça dans mon code 

If Me.txtMotDePasse = "xxx" Then
    ' Fermer la boîte de dialogue "Identification"
    stDocName = "Start"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    blnPasswordOK = True

Mais ma boîte d'identification reste en avant plan

rizoul · Answer

Bonjour,

Si vous avez encore une minutes pour ma dernière question...

Merci d'avance

Xavier · Answer

Salut :)

N'hésites pas !

Cdlt.

rizoul · Answer

Merci ben en fait selon mon avant-dernier post ma fenêtre de mot de passe une fois validée reste à l'écran.
J'aurais voulu qu'elle se referme.

Xavier · Answer

De rien, 

A mettre a la fin du code du click
docmd.close

rizoul · Answer

Euh oui j'ai essayé mais je ne dois pas le mettre au bon endroit:
Donc il irait ou ? Merci

Private Sub btnAnnuler_Click()
DoCmd.Close
End Sub

Private Sub btnOK_Click()
If IsNull(Me.txtMotDePasse) Then
    MsgBox "Tapez un mot de passe !", vbInformation
    Me.txtMotDePasse.SetFocus
    Exit Sub
End If

If Me.txtMotDePasse = "xxxt" Then
    ' Fermer la boîte de dialogue "Identification"
    stDocName = "Start"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    blnPasswordOK = True
Else
    MsgBox "Mot de passe incorrect.", vbExclamation
    Me.txtMotDePasse.SetFocus
    End If
End Sub

Xavier · Answer

If Me.txtMotDePasse = "xxxt" Then
' Fermer la boîte de dialogue "Identification"
stDocName = "Start"
DoCmd.OpenForm stDocName, , , stLinkCriteria
blnPasswordOK = True

DoCmd.Close

Else
MsgBox "Mot de passe incorrect.", vbExclamation
Me.txtMotDePasse.SetFocus
End If
End Sub

rizoul · Answer

Euh ça doit pas être ça car j'ai fait comme ceci, mais lorsque je tape le mot de passe juste je vois en quelques milisecondes le document qu'il doit ouvrir se refermer et la fenêtre de password qui est toujours là ? il me semble que ça ferme le formulaire start et non le formulaire password...

Private Sub btnOK_Click()
If IsNull(Me.txtMotDePasse) Then
    MsgBox "Tapez un mot de passe !", vbInformation
    Me.txtMotDePasse.SetFocus
    Exit Sub
End If

If Me.txtMotDePasse = "xxx" Then
    ' Fermer la boîte de dialogue "Identification"
    stDocName = "Start"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    blnPasswordOK = True
    DoCmd.Close
Else
    MsgBox "Mot de passe incorrect.", vbExclamation
    Me.txtMotDePasse.SetFocus
    End If
End Sub

Xavier · Answer

A oui, désolé ! Comme je suis au boulot je ne regarde pas spécialement :p

If Me.txtMotDePasse = "xxxt" Then
' Fermer la boîte de dialogue "Identification"

DoCmd.close

stDocName = "Start"
DoCmd.OpenForm stDocName, , , stLinkCriteria
blnPasswordOK = True
Else
MsgBox "Mot de passe incorrect.", vbExclamation
Me.txtMotDePasse.SetFocus
End If
End Sub

Car si tu le mets après il ferme le form en cour donc celui qui s'ouvre :p

Cdlt ;)

rizoul · Answer

C'est extra maintenant merci bcp.

Juste une chose tu peux éviter que l'utilisateur passe en mode création dans un formulaire ?

Xavier · Answer

Je suis désolé je ne sais pas, en tout cas tu peux protéger ton code VBA des utilisateurs :)

rizoul · Answer

ah oui et comment stpl ?

Xavier · Answer

Dans VB tu vas dans outils / Propriétés et tu as un onglet protection.

Cdlt.

rizoul · Answer

Super Merci Xavier

Euh pour mettre résolu ?!!?

Xavier · Answer

De rien et bonne continuation :)

Cdlt.

Access 2003 bouton avec mot de passe formulai - Page 2

Discussions similaires

Newsletters