Private Sub cmdEdit_Click()
    sBenutzerAnmeld = Label2
    sPassAlt = Text1(1).Text
    Dim oRs As DAO.Recordset
    Set oRs = Db.OpenRecordset("SELECT * FROM Passwort WHERE Passwort = '" & _
      sPassFeld & "' and Benutzer = '" & sBenutzerFeld & "'")
    If oRs.RecordCount > 0 And Text1(2) = Text1(3) Then
      'Neuen Datensatz hinzufügen
      Tabelle.Edit
      Tabelle("Passwort") = Text1(2)
      Tabelle.Update
      Tabelle.Bookmark = Tabelle.LastModified
      Text1(1) = ""
      Text1(2) = ""
      Text1(3) = ""
      Text1(1).SetFocus
    End If

Thanks 4 Help

Das wichtigste ist Ruhe bewaren!

Surftip:
Allroundforum
www.mt-arens.de