Changer le mot de passe d'une base access


Commenter

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

S'inscrire maintenant

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.

Du même auteur (Nix)