Discussion :

[thomawok]

Bonjour,

Voila, j'ai un petit soucis.
J'aimerais sécuriser l'acces à un formulaire qu'on accede via un bouton grace à une demande de mot de pass.
Seulement, je ne veux pas utiliser la gestion des utilisateurs et des droits.
Juste une fenetre qui s'ouvre, la personne tape son mot de pass, si c'est bon, le formulaire s'ouvre, sinon, message d'erreur "mauvais mot de pass".

J'ai eu beau chercher, je n'ai pas vu la réponse a cette question dans la FAQ ni dans le forum.

Merci à celles et ceux qui voudront bien m'aider.
Au fait, je suis assez mauvais en VBA, merci de détailler la réponse.

Version Access utilisé: Access 2002

[marot_r]

Apparement tu as besoin d'un truc léger mais j'ai besoin d'un peu plus de détails.

Le mot passe sera-t'il le même pour tous tes utilisateurs ?

Devra-t'il pouvoir être changé sans modification de l'appli ?

A+

[mout1234]

Bonsoir,

...
J'ai eu beau chercher, je n'ai pas vu la réponse a cette question dans la FAQ ni dans le forum....

Y a pas que moi qui soit mauvais à chercher .... tu as vu cela ?

[thomawok]

Bonjour, oui le mot de passe devra etre changé (quitte a aller de temps en temps le changer directement dans le code VB), et sera le meme pour tous les utilisateurs : soit je le donne et ils ont acces au formulaire, soit je ne le donne pas.

Quand a la FAQ, elle ne repond pas a ma question puisque l'utilisateur doit se logger.

Merci pour votre aide.

[mout1234]

Bonjour,

Je me rend compte que j'avais lu un peu vite ta demande.

Si j'ai bien compris, il te suffit de faire un petit formulaire avec un textBox et deux boutons Ok Annuler. Sur Ok, tu vérifies par code que le mot de passe saisi est le bon et tu ouvres le formulaire souhaité.

Voir par ici concernant le textbox de ce petit formulaire.

[thomawok]

C'est bon je me suis débrouillé, pour celui qui cherche a faire la meme chose,
J'ai créé une zone de texte avec pour masque de saisie "Password" qui permet de metre des asterix a la place des lettres tapées.

Ensuite, j'ai creer un bouton, sur clik:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Commande45_Click()
On Error GoTo Err_Commande45_Click
 
    Dim Pswd As String
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim stDocName2 As String
 
   stDocName = "FS Article"
   stDocName2 = Texte43
 
 'inserer ici votre nouveau mot de pass
    Pswd = "Toto"
 
    If stDocName2 = Pswd Then
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    Else
        MsgBox ("Erreur mot de pass")
    End If
 
Exit_Commande45_Click:
    Exit Sub
 
Err_Commande45_Click:
    MsgBox Err.Description
    Resume Exit_Commande45_Click
 
End Sub

-----------
Pour changer le mot de passe, je rentre dans le code du bouton et je le change.
Si le mot de pass est bon, mon formulaire s'ouvre, sinon, msgbox "mauvais mot de pass"
Voila, si quelqu'un avait trouvé mieu, qu'il n'hesite pas à le faire partager.

Merci a ceuw qui se sont penchés sur mon probleme

[mout1234]

N'oublies pas de cliquer sur le bouton