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
- Changer le mot de passe d'une base access
- Affecter mot de passe a une base access. - Codes sources - Visual Basic / VB.NET (VBA)
- Changer le mot de passe d'un BDD Access avec VISUAL BASIC 2005 ✓ - Forum - VB.NET
- Crée un mot de passe à une base Access ✓ - Forum - C / C++ / C++.NET
- Changement du mot de passe de base Access par code ✓ - Forum - C# / .NET
- Permettre aux utilisateurs de changer leurs mots de passe - Codes sources - PHP (Divers)
Commentaires
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.
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;)
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.