Bonjour à Toute la Communauté
Je souhaite savoir comment proceder pour changer le mot de passe d'une base ACCESS à l'aide du Code VB ou VBA.
Merci.
Bonjour à Toute la Communauté
Je souhaite savoir comment proceder pour changer le mot de passe d'une base ACCESS à l'aide du Code VB ou VBA.
Merci.
Je suis ce que je suis grace à ce que nous sommes tous
Il faut appliquer la méthode NewPassword de l'objet DataBase en utilisant DAO
http://warin.developpez.com
Exemple :
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 Sub ChangeMotPass() On Error GoTo err Dim odb As DAO.Database Set odb = CurrentDb odb.NewPassword "ancien", "nouveau" MsgBox "Mot de passe changé" fin: Set odb = Nothing Exit Sub err: Select Case err.Number Case 3031 MsgBox "Mot de passe non valide", vbCritical, "Sécurité" Case Else MsgBox "Une erreur est survenue pendant le changement du mot de passe", _ vbCritical, "Erreur" End Select Resume fin End Sub
Ce message vous a été utile ? Si oui, cliquez sur
Mes tutoriels Access
La rubrique Microsoft Access
Cours et tutoriels pour apprendre Access
La FAQ Access
Le Forum Access
Offres d'emploi développeur Access
Exercice Résolu.
Merci une fois de plus à tous les rédacteurs et Annimateurs du Forum.
Ce que vous faites n'a pas de prix.
Je suis ce que je suis grace à ce que nous sommes tous
Bonjour,
je viens d'utiliser ton code dans un bouton mais quand je click sur le bouton il m'affiche le message d'erreur qui est dans le code !!
Good luck and never give up
Bonsoir,
Remplace
par
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Case Else MsgBox "Une erreur est survenue pendant le changement du mot de passe", _ vbCritical, "Erreur"
pour voir si tu as plus de précision sur l'erreur.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Case Else MsgBox Err.Description, _ vbCritical, "Erreur No." & Err.Number
A+
j'ai modifié le code comme ta dis et j'ai eu cette erreur :
Impossible de modifier le mot de passe d'une base de données ouverte en mode partager !!!
alors comment faire pour le modifier a ton avis??
Good luck and never give up
pour plus d'info, je viens de testé d'ouvrir ma bdd en mode exclusive mais j'ai eu une autre erreur :
Mot de passe non valide!
la je comprend pas !!! comment je doit ouvrir ma bdd??
Good luck and never give up
quelqu'un à une idée pour résoudre ce problème?
ça me casse la tête
Good luck and never give up
Bonsoir,
Effectivement il faut ouvrir la base de données en mode exclusif.
S'il n'y a pas de mot de passe, et que tu veux en mettre un :
S'il y a un de mot de passe, et que tu veux l'enlever :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'odb.NewPassword "ancien", "nouveau" odb.NewPassword "", "123456"
S'il y a un de mot de passe, et que tu veux le changer :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'odb.NewPassword "ancien", "nouveau" odb.NewPassword "123456", ""
A+
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 'odb.NewPassword "ancien", "nouveau" odb.NewPassword "123456", "abcdef"
Merci LedZeppII,
bon je testais ce que tu ma proposé mais ça ne marche pas. bon maintenant j'utilise une méthode facile par rapport a celle ci, j'ai créer un formulaire avec deux bouton (OK & Annuler) et une zone de texte, voila
merci pour vos réponses
Good luck and never give up
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager