Access 2003 bouton avec mot de passe formulai

Bonjour,

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

Cdlt.

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 ?

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.

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.

tien je t'ai fais un exemple :

http://www.cijoint.fr/cjlink.php?file=cj201007/cijeOiyS87.zip

Cdlt.

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

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

Cdlt.

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

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

Cdlt.

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é.

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.

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

Bonjour,

Si vous avez encore une minutes pour ma dernière question...

Merci d'avance

Salut :)

N'hésites pas !

Cdlt.

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.

De rien,

A mettre a la fin du code du click
docmd.close

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

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

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

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 ;)