Sub NeuenDatensatzZufuegen()
'fehler    Tabelle.AddNew                           'neue Daten einlesen
'fehler    Tabelle("Anrede") = "Herrn"
'fehler    Tabelle("Name") = "Dieter Otter"
'fehler    Tabelle("Strasse") = "Riemenschneiderstr. 32"
'fehler    Tabelle("PLZ") = "97708"
'fehler    Tabelle("Ort") = "Steinach"
'fehler    Tabelle("Telefon") = ""
'fehler    Tabelle("Email") = "info@vbarchiv.de"
'fehler    Tabelle.Update                           'neue Daten speichern
End Sub
 
Sub OderNeuenDatensatzZufuegen()
    Dim i As Integer
'fehler    Tabelle.AddNew
    For i = 1 To 7
'fehler      Tabelle(i) = Text1(i).Text
    Next i
'fehler    Tabelle.Update
End Sub
 
Sub ZumLetztenDatensatz()
'fehler    Tabelle.Bookmark = Tabelle.LastModified
End Sub
 
Sub ErstenDatensatzAnzeigen()
'fehler    If Tabelle.RecordCount > 0 And Not Tabelle.BOF Then _
'fehler      Tabelle.MoveFirst
End Sub
 
Sub VorigenDatensatzAnzeigen()
'fehler    If Tabelle.RecordCount > 0 And Not Tabelle.BOF Then _
'fehler      Tabelle.MovePrevious
End Sub
 
Sub NaechstenDatensatzAnzeigen()
'fehler    If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then _
'fehler      Tabelle.MoveNext
End Sub
 
Sub LetztenDatensatzAnzeigen()
'fehler    If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then _
'fehler      Tabelle.MoveLast
End Sub
 
Sub AktuellenDatensatzBearbeiten()
'fehler    Tabelle.Edit
'fehler    Tabelle("Name") = "Otter Dieter"
'fehler    Tabelle("Ort") = "Bad Bocklet/Steinach"
'   ...
'fehler    Tabelle.Update
End Sub
 
Sub AktuellenDatensatzLoeschen()
'fehler    Tabelle.Delete
End Sub
 
Sub SiebenDatensatzLoeschen()
'fehler    Tabelle.MoveFirst
'fehler    For i = 1 To 6
'fehler      Tabelle.MoveNext
'fehler    Next i
'fehler    Tabelle.Delete
End Sub
 
Sub NachDemLoeschen()
'fehler    If Not Tabelle.EOF Then
'fehler      Tabelle.MoveNext
'fehler    Else
'fehler      Tabelle.MoveLast
'fehler    End If
End Sub