Changer le mot de passe d'une base access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 947 fois - Téléchargée 88 fois


Contenu du snippet


Source / Exemple :


Public Function ChangerMotDePasse(CheminBase As String, NouveauPass As String, VieuxPass As String) As Boolean
On Error Resume Next

If Dir(CheminBase) = "" Then Exit Function

Dim db As DAO.Database

Set db = OpenDatabase(CheminBase, True, False, ";pwd=" & VieuxPass)
If Err.Number <> 0 Then 
    ChangerMotDePasse = False
    Exit Function
End If
db.NouveauPass VieuxPass, NouveauPass
ChangerMotDePasse = True
db.Close

End Function

' Pour changer le mot de passe :
Dim ChangerPass As Boolean
ChangerPass = ChangerMotDePasse("c:\LeChemin\LeFichier.mdb","AncienPass","NouveauPass","AncienPass")

If ChangerPass = True Then 
    MsgBox("Mot de passe bien changé")
Else
    MsgBox("Mot de passe non changé")
End If

A voir également

Ajouter un commentaire

Commentaires

Bonjour ,
J'aimerais pouvoir faire un petit moteur de recherche en access se basant sur des pages html ex: 1 fournisseur avec plusieurs type de marchandises différentes et de pouvoir lancer la pages correspondantes .
Merci d'avance , Bruno.
tariktarik
Messages postés
12
Date d'inscription
mardi 25 mai 2004
Statut
Membre
Dernière intervention
26 juillet 2006
-
ou ont doit mettre cette foction ? merci
Magic_dav
Messages postés
1
Date d'inscription
lundi 15 janvier 2007
Statut
Membre
Dernière intervention
29 mai 2007
-
Merci pour la source;)Elle m'a été trés utile!!!:D

La fonction il est préferable de la mettre dans le module, et le reste du code dans le formulaire ou tu souhaite changer le passe;)
psykospy
Messages postés
1
Date d'inscription
vendredi 30 mars 2007
Statut
Membre
Dernière intervention
13 mai 2008
-
merci
Commenter la réponse de bruno

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.