Hallo möchte Passwort ändern - Access meckert aber weil mehrere Benutzer ´da sind oder ich nicht der Admin bin oder so!
Private Sub Befehl7_Click()
'Neues Passwort für angemeldeten User ändern
'Prüfen ob die Wiederholung mit neuem Passwort übereinstimmt
If Me!txtPWNeu1 Me!txtPWNeu2 Then
MsgBox "Die Wiederholung stimmt nicht mit dem neuen " & _
"Passwort überein!", vbOKOnly, "Falsche Eingabe"
Exit Sub
End If
Dim datenbank As String
Dim gwrk As Workspace
Dim db As Database
datenbank = CurrentProject.Path & "\Knowledge-Base.mdb"
Set gwrk = DBEngine.Workspaces(0)
Set db = gwrk.OpenDatabase(datenbank, False, False, ";pwd=" & Me!txtPWAlt)
gwrk.Users(CurrentUser).NewPassword Me!txtPWAlt, Me!txtPWNeu2
'db.NewPassword Me!txtPWAlt, Me!txtPWNeu2 - das funktioniert auch nicht
DoCmd.Close acForm, Me.Name
End Sub
