Thema Datum  Von Nutzer Rating
Antwort
Rot Access Werte Tausch
 07.09.2018 21:42:21 Arkon
NotSolved

Ansicht des Beitrags:
Von:
Arkon		 Datum:
07.09.2018 21:42:21		 Views:
956		 Rating:
     
Antwort:
  Ja
Thema:
Access Werte Tausch		 
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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Access Werte Tausch
 07.09.2018 21:42:21 Arkon
NotSolved