5/5 (5 avis)
Snippet vu 17 756 fois - Téléchargée 90 fois
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
13 mai 2008 à 19:07
29 mai 2007 à 14:58
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;)
24 sept. 2004 à 12:50
21 févr. 2001 à 15:36
22 déc. 2000 à 13:46
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.
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.