Batouf80
Messages postés1Date d'inscriptionjeudi 16 mars 2006StatutMembreDernière intervention23 avril 2006
-
23 avril 2006 à 15:29
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 2006
-
24 avril 2006 à 09:52
Salut,
j'essaye de changer le mot de passe, mais j'obtiens toujours error 3033. je n'ai pas le droit de faire ce changement dans ma base de donnée.
Avez vous une idee? voici mon code.
Private Sub Befehl8_Click()
Dim db As DAO.Database
Dim ak As String
Dim nk As String
Dim Ungleich As String
Ungleich = "Nouveau mot der passe et confirmation different"
If Me!txtNewPWD = Me.txtNewPwd2Then
ak = Me!txtAltPWd
nk = Me!txtNewPWD
DBEngine.Workspaces(0).Users(CurrentUser).NewPassword ak, nk
'DoCmd.Close
MsgBox ("Mot de passe changer ")
Else: MsgBox (Ungleich)
Me!txtNewPWD.SetFocus
End If
Me!txtNewPW.SetFocus
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 24 avril 2006 à 09:52
Pour le changement de mot de passe, si je me souviens bien il faut que ta base soit ouverte en mode exclusif. Je pense que ton problème vient de là <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />