Access 2003 bouton avec mot de passe formulai
Résolu/Fermé
A voir également:
- Access 2003 bouton avec mot de passe formulai
- Piratage facebook changer mot de passe - Guide
- Voir mot de passe wifi android - Guide
- Mot de passe administrateur - Guide
- Mettre un mot de passe sur un dossier - Guide
- Outlook mot de passe oublié - Guide
26 réponses
Bonjour,
voici un exemple : http://www.self-access.com/cms/access/tutoriaux/formulaire-motdepasse/
Cdlt.
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 ?
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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.
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é.
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.
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
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
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.
J'aurais voulu qu'elle se referme.
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
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
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
Car si tu le mets après il ferme le form en cour donc celui qui s'ouvre :p
Cdlt ;)
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 ;)
