Private Sub cmdändern_click()
On Local Error GoTo fehler_ändern
 
änderntext = Nr.Text
 
Form3.Show
 
Exit Sub
 
fehler_ändern:
MsgBox "Bitte klicken Sie auf AKTUALISIEREN und markieren Sie den Datensatz in" & _
  "der Spalte Nr."
 
End Sub

Option Explicit
 
Private Sub form_load()
 
TextNr.Text = ""
TextTitel.Text = ""
TextInterpret.Text = ""
TextAlbum.Text = ""
TextTracklänge.Text = ""
TextVÖJahr.Text = ""
TextGenre.Text = ""
TextBewertung.Text = ""
TextCDNr.Text = ""
 
sqländern = "Select * from tabelle1 where Nr = " & änderntext & ""
Set rsändern = dbmp3db.OpenRecordset(sqländern)
 
TextNr = rsändern.Fields("Nr")
TextTitel = rsändern.Fields("titel")
TextInterpret = rsändern.Fields("Interpret")
TextAlbum = rsändern.Fields("album")
TextTracklänge = rsändern.Fields("tracklänge")
TextVÖJahr = rsändern.Fields("VÖJahr")
TextGenre = rsändern.Fields("Genre")
TextBewertung = rsändern.Fields("Bewertung")
TextCDNr = rsändern.Fields("CDNr")
 
End Sub
 
Private Sub Cmd2DSaktualisieren_click()
 
  With rsändern
    .Edit
    .Fields("Nr") = TextNr.Text
    .Fields("Titel") = TextTitel.Text
    .Fields("Interpret") = TextInterpret.Text
    .Fields("Album") = TextAlbum.Text
    .Fields("Tracklänge") = TextTracklänge.Text
    .Fields("VÖJahr") = TextVÖJahr.Text
    .Fields("Genre") = TextGenre.Text
    .Fields("Bewertung") = TextBewertung.Text
    .Fields("CDNr") = TextCDNr.Text
    .Update
  End With
 
dbmp3db.Close
 
MsgBox "Der Datensatz Nr. " & änderntext & " wurde geändert. " & _
       "Klicken Sie auf AKTUALISIEREN um eine aktuelle Ansicht zu erhalten."
 
Form3.Hide
Form1.Show
 
End Sub
 
Private Sub Cmdzurück2_click()
 
Form3.Hide
Form1.Show
 
End Sub