Private Sub cmdändern_click()
 
Load Form3
Form3.Show
 
End Sub

Option Explicit
 
Private Sub form3_load()
 
ComboNr.Clear
ComboTitel.Clear
ComboInterpret.Clear
ComboAlbum.Clear
ComboTracklänge.Clear
ComboVÖJahr.Clear
ComboGenre.Clear
ComboBewertung.Clear
ComboCDNr.Clear
 
 
End Sub
 
Private Sub cmdaufrufen_click()
 
Set dbmp3db = OpenDatabase("C:\Eigene" & _
  "Dateien\Dokumente\Hessenkolleg\Info\Datenbank-Projekt\MP3DB-18-06-03\mp3db." & _
  "db")
sqländern = "Select * from tabelle1 where Nr = " & änderntext & ""
Set rsändern = dbmp3db.OpenRecordset(sqländern)
Do Until rsändern.EOF = True
ComboNr.AddItem rsändern.Fields("Nr")
ComboTitel.AddItem rsändern.Fields("titel")
ComboInterpret.AddItem rsändern.Fields("Interpret")
ComboAlbum.AddItem rsändern.Fields("album")
ComboTracklänge.AddItem rsändern.Fields("tracklänge")
ComboVÖJahr.AddItem rsändern.Fields("VÖJahr")
ComboGenre.AddItem rsändern.Fields("Genre")
ComboBewertung.AddItem rsändern.Fields("Bewertung")
ComboCDNr.AddItem rsändern.Fields("CDNr")
rsändern.MoveNext
Loop
 
End Sub
 
 
Private Sub Cmd2DSaktualisieren_click()
 
  With rsändern
    .Edit
    .Fields("Nr") = ComboNr.Text
    .Fields("Titel") = ComboTitel.Text
    .Fields("Interpret") = ComboInterpret.Text
    .Fields("Album") = ComboAlbum.Text
    .Fields("Tracklänge") = ComboTracklänge.Text
    .Fields("VÖJahr") = ComboVÖJahr.Text
    .Fields("Genre") = ComboGenre.Text
    .Fields("Bewertung") = ComboBewertung.Text
    .Fields("CDNr") = ComboCDNr.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