Mot de passe pour bouton

bonjour
ton mot de passe toto
dans la sub clic du bouton (en premier)
If inputbox("Saisir votre mot de passe") <> "toto" then exit sub

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
Access http://www.mpfa.info

<lolo_bob2@yahoo.fr> a écrit dans le message de news: 1155805831.085407.268460@b28g2000cwb.googlegroups.com...
Bonjour à tous

Voila j'ai un bouton sur un formulaire qui me permet d'importer des
données d'excel dans Access le problème c'est qu'a chaque fois que
l'on clique sur ce bouton les données sont réimportées...
Existe t-il un moyen de mettre un mot de passe sur ce bouton pour le
verrouiller et eviter que n'importe quelle personne puisse cliquer
dessus

Merci de votre aide à tous

A+

lolo_bob2@yahoo.fr wrote:

Bonjour à tous

Voila j'ai un bouton sur un formulaire qui me permet d'importer des
données d'excel dans Access le problème c'est qu'a chaque fois que
l'on clique sur ce bouton les données sont réimportées...
Existe t-il un moyen de mettre un mot de passe sur ce bouton pour le
verrouiller et eviter que n'importe quelle personne puisse cliquer
dessus

Merci de votre aide à tous

A+

bonjour,
ben OUI.

dans le code VBA de ton bouton tu inseres une INPUTBOX
puis
IF saisie = motdepasse then tu lances l importation
Else "message d insultes pour vulgaire manant qui petent plus haut que leur
cul."
end if

sinon moi j'ai fait (surtout) vite fait (presque) bien fait, une verif sur
le nom de uset NT connecté par rapport à une table de PowerUsers
si ca t'interresse.
De rien.
DJ

Salut à vous merci pour vos réponses

Voici le code associé à mon bouton

Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click


DoCmd.TransferSpreadsheet acImport, 5, "Product Test", "S:CEBDD
Qualitévierzon.xls", True, "A1:G9999"


Exit_Commande17_Click:
Exit Sub

Err_Commande17_Click:
MsgBox Err.Description
Resume Exit_Commande17_Click

End Sub


Je ne sais pas où inserer la condition if pour que le mot de passe
soit verifié...

Pouvez vous m'aider ?

Merci beaucoup

A+

Salut tout lme monde et salut lolo.
Remplace ton code par celui-ci.
'-------Debut
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click
If inputbox("Saisir votre mot de passe") <> "toto" then exit sub

DoCmd.TransferSpreadsheet acImport, 5, "Product Test", "S:CEBDD
Qualitévierzon.xls", True, "A1:G9999"


Exit_Commande17_Click:
Exit Sub

Err_Commande17_Click:
MsgBox Err.Description
Resume Exit_Commande17_Click

End Sub
'-----Fin
A+...

Salut à vous merci pour vos réponses

Voici le code associé à mon bouton

Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click


DoCmd.TransferSpreadsheet acImport, 5, "Product Test", "S:CEBDD
Qualitévierzon.xls", True, "A1:G9999"


Exit_Commande17_Click:
Exit Sub

Err_Commande17_Click:
MsgBox Err.Description
Resume Exit_Commande17_Click

End Sub


Je ne sais pas où inserer la condition if pour que le mot de passe
soit verifié...

Pouvez vous m'aider ?

Merci beaucoup

A+

lolo_bob2@yahoo.fr wrote:

Salut à vous merci pour vos réponses

Voici le code associé à mon bouton

Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click


DoCmd.TransferSpreadsheet acImport, 5, "Product Test", "S:CEBDD
Qualitévierzon.xls", True, "A1:G9999"


Exit_Commande17_Click:
Exit Sub

Err_Commande17_Click:
MsgBox Err.Description
Resume Exit_Commande17_Click

End Sub


Je ne sais pas où inserer la condition if pour que le mot de passe
soit verifié...

Pouvez vous m'aider ?

Merci beaucoup

A+

YOYO !

si je suis pas trop bourré apres la bouffe
ca devrait donner ca (a toi de changer le blabla entre """):


Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click

Const MotDePasse = "TOTO"
Dim strReponse
strReponse = InputBox("message", "titre")
If strReponse = MotDePasse Then
DoCmd.TransferSpreadsheet acImport, 5, "Product Test", "S:CEBDD
Qualitévierzon.xls", True, "A1:G9999"
end if


Exit_Commande17_Click:
Exit Sub
Err_Commande17_Click:
MsgBox Err.Description
Resume Exit_Commande17_Click

End Sub

DJ

Salut

Merci beaucoup

cela fonctionne parfaitement....

A+