Option Explicit
 
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\datenbank\" & "buecher_97.mdb"
Data1.RecordSource = "sprachen"
txt_sprache.DataField = "Sprachen"
txt_sprache.DataSource = Data1
 
End Sub
 
Private Sub cmd_einfuegen_Click()
 
txt_sprache.SetFocus
Data1.Recordset.AddNew
End Sub
 
Private Sub cmd_loeschen_Click()
 
'Variablen deklarieren
Dim frage As String
Dim antwort As String
 
'Variable füllen
frage = "Wollen Sie den Datensatz wirklich löschen?"
 
'Mesagebox ausgeben mit dem Inhalt der Variable
antwort = MsgBox(frage, vbOKCancel, "Datensatz löschen")
 
'Wenn ok geklickt wurde, dann Datensatz löschen und
'nächsten anzeigen
'ansonsten nichts machen
If antwort = vbOK Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
 
End Sub
 
Private Sub schliessen_Click()
Unload Me
End Sub