Modifier password Access via VBA ???

Bonsoir,

Comment peut-on permettre à un utilisateur de modifier son mot de passe sans passer par le barre du menu sécurité d'Access ?

(Je parle du mot de passe qu'Access utilise pour l'identifier)

Je pensais réaliser un formulaire avec ses données "User" car j'ai caché la fenêtre principale d'access dès le début de l'ouverture de mon appli.

Y'a donc que cette solution pour lui permettre cela, mais je ne sais comment on codifie en VBA le changement du mot de passe Access.

J'espère avoir été sufisamment clair et d'avance merci de votre aide.

:wink:

slt,

:faq: :merci:

Re salut à toi Arkham46,

J'ai bien vu que le sujet est traiter dans la FAQ, mais le soucis de ce type de formulaire est qu'il ne se base pas sur la sécurité Access.

On peut donc avec un peu de manip rentrer dans l'appli; même sans mot de passe.

Et cela je n'en veux pas ! :x

Je voudrais le même procédé mais sur le DBEngine d'access .

J'ai essayé cela sur le click d'un bouton de mon Form "User":

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim wrkODBC As Workspace   Set wrkODBC = CreateWorkspace("ChangePass", Me.CurrentUser, Me.AncPass) Workspaces.Append wrkODBC   With DBEngine.Workspaces("ChangePass") .Users(.UserName).NewPassword Me.AncPass, Me.NewPass End With   wrkODBC.Close

---

Mais là, erreur d'ouverture de mon WorkSpace , car apparement déjà utilisé !
Why :?: :?: :?:

désolé je ne comprend rien du tout à ton histoire de WorkSpace.... :cry:

Apparement, d'après ce que j'ai compris, l'ouverture d'un WorkSpace permet de modifier les éléments du DbEngine;

mais comme j'utilise déjà un "espace de travail" de mon DBEngine, je croyais qu'il ne permettais pas d'y modifier mon mot de passe et finalement, si avec ce code :

Code:

---

1 2 3

With DBEngine.Workspaces(0) .Users(.UserName).NewPassword Me.AncPass, Me.NewPass End With

---

Tout simplement, comme le disait Tofalu, je crois dans un post.

Merci à tous. :wink: