Bis zu dem Punkt mit If Me.txtPWNeu1 = Me.txtPNeu2 Then funktioniert alles wie es soll.
Ich möchte nur, dass der Wert, der im txtPWNeu1 steht dann auf dem Formular tblUser in die Spalte Passwort eingetragen wird.
Irgendwo habe ich da einen gedankenfehler.
Es kann mir hoffentlich einer helfen.
Ich wünsche euch ein schönes Wochenende
Private Sub KnopfLogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "UserID='" & Me.txtUserID & "'"
If rs.NoMatch = True Then
Me.lbUserFalsch.Visible = True
Me.txtUserID.SetFocus
Exit Sub
End If
Me.lbUserFalsch.Visible = False
If rs!Passwort <> Nz(Me.txtPasswort, "") Then
Me.lbPWFalsch.Visible = True
Me.txtPasswort.SetFocus
Exit Sub
End If
Me.lbPWFalsch.Visible = False
If Me.txtPWNeu1 = Me.txtPwNeu2 Then
acForm tblUser.Passwort.Value = txtPWNeu1
DoCmd.OpenForm "login"
DoCmd.Close acForm, "PWechsel"
Exit Sub
End If
End Sub
|