mot de passe dans une macro

Oui c'est tout à fait possible !

Il suffit d'utiliser la notion de "RecordSet" avec la
librairie DAO.

Pour ajouter cette librairie vas dans le menu :
Outils/Référence... puis coche "Microsoft DAO 3.6 Object
Library" si cette librairie n'y est pas clique sur
parcourir puis insère là via : c:program filesfichiers
communsMicrosoft shareddao...

Bonne continuation...

-----Message d'origine-----
Bonjour,
à partir d'un formulaire,je souhaite créer un bouton
demandant un mot de passe me permettant d'ouvrir un
second formulaire
En fait, j'aimerai protéger les éléments auxquels on a
accès via ce même bouton

je sais que l'on peut y arriver via un module Visual!!

j'espère que ma description est compréhensible et vous
remercie par avance
FRED
.

merci pour ton aide, je vais tester cette astuce

-----Message d'origine-----
Oui c'est tout à fait possible !

Il suffit d'utiliser la notion de "RecordSet" avec la
librairie DAO.

Pour ajouter cette librairie vas dans le menu :
Outils/Référence... puis coche "Microsoft DAO 3.6 Object
Library" si cette librairie n'y est pas clique sur
parcourir puis insère là via : c:program filesfichiers
communsMicrosoft shareddao...

Bonne continuation...

-----Message d'origine-----
Bonjour,
à partir d'un formulaire,je souhaite créer un bouton
demandant un mot de passe me permettant d'ouvrir un
second formulaire
En fait, j'aimerai protéger les éléments auxquels on a
accès via ce même bouton

je sais que l'on peut y arriver via un module Visual!!

j'espère que ma description est compréhensible et vous
remercie par avance
FRED
.

.

aurais-tu un exemple à me donner car je n'y parviens pas

merci d'avance
FRED

-----Message d'origine-----
Oui c'est tout à fait possible !

Il suffit d'utiliser la notion de "RecordSet" avec la
librairie DAO.

Pour ajouter cette librairie vas dans le menu :
Outils/Référence... puis coche "Microsoft DAO 3.6 Object
Library" si cette librairie n'y est pas clique sur
parcourir puis insère là via : c:program filesfichiers
communsMicrosoft shareddao...

Bonne continuation...

-----Message d'origine-----
Bonjour,
à partir d'un formulaire,je souhaite créer un bouton
demandant un mot de passe me permettant d'ouvrir un
second formulaire
En fait, j'aimerai protéger les éléments auxquels on a
accès via ce même bouton

je sais que l'on peut y arriver via un module Visual!!

j'espère que ma description est compréhensible et vous
remercie par avance
FRED
.

.

Salut,

"fred56"
à partir d'un formulaire,je souhaite créer un bouton
demandant un mot de passe me permettant d'ouvrir un
second formulaire
En fait, j'aimerai protéger les éléments auxquels on a
accès via ce même bouton



Le plus simple...
A coté de ton bouton qui ouvre le second formulaire,
place une zone de texte que tu nomme "txtMDP" et dont
le masque est fixé à "Mot de passe".

Crée (ou complète ) le bouton qui ouvre le second
formulaire pour que cela ressemble à ceci...


Dim stDocName As String
Dim stLinkCriteria As String

If Me.txtMDP.Value = "toto" Then
stDocName = "NomSecondFormulaire"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Mot de passe non valide..."
Me.txtMDP = ""
End If


Remarque:
Bien sûr, le fait de mettre "toto" en dur, dans le code, t'empêche de le modifier à ta guise.
Il peut aussi être placé dans une table, et recherché avec un DLookup("PSW","LaTable")
Mais, dans une table, il n'est pas à l'abri non plus... ;-)


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

merci pour ton aide 3stone

j'ai cliquer 2 fois de suite par erreur, voilà pourquoi il
y a 2 post de ma part!

-----Message d'origine-----
Salut,

"fred56"
à partir d'un formulaire,je souhaite créer un bouton
demandant un mot de passe me permettant d'ouvrir un
second formulaire
En fait, j'aimerai protéger les éléments auxquels on a
accès via ce même bouton



Le plus simple...
A coté de ton bouton qui ouvre le second formulaire,
place une zone de texte que tu nomme "txtMDP" et dont
le masque est fixé à "Mot de passe".

Crée (ou complète ) le bouton qui ouvre le second
formulaire pour que cela ressemble à ceci...


Dim stDocName As String
Dim stLinkCriteria As String

If Me.txtMDP.Value = "toto" Then
stDocName = "NomSecondFormulaire"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "Mot de passe non valide..."
Me.txtMDP = ""
End If


Remarque:
Bien sûr, le fait de mettre "toto" en dur, dans le code,
t'empêche de le modifier à ta guise.

Il peut aussi être placé dans une table, et recherché avec
un DLookup("PSW","LaTable")

Mais, dans une table, il n'est pas à l'abri non plus... ;-)


--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------




.