' Nächster Datensatz
Private Sub cmdNext_Click()
On Error GoTo GoNextError
    ModEigentuemer.cmdNext_Click
    text1(0) = EigentuemerAnrede
    text1(1) = EigentuemerVorname
    text1(2) = EigentuemerNachname
    text1(3) = EigentuemerStrasse
    text1(4) = EigentuemerPLZ
    text1(5) = EigentuemerOrt
    lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
 
 
lfd = ADOrs.AbsolutePosition
 
Max_Zaehler = ADOrs.RecordCount
 
If lfd = Max_Zaehler Then
    cmdNext.Enabled = False
    cmdLast.Enabled = False
Else
    cmdNext.Enabled = True
    cmdLast.Enabled = True
    cmdPrevious.Enabled = True
    cmdFirst.Enabled = True
End If
 
 
Exit Sub
 
GoNextError:
MsgBox "Es kommt doch noch ein Fehler"
 
End Sub

Public Sub cmdNext_Click()
    ' vorblättern
  ADOrs.EOF
    With ADOrs
      If .RecordCount > 0 Then
        .MoveNext
        EigentuemerDaten
        If .EOF Then
          .MoveLast
          EigentuemerDaten
        End If
      End If
    End With
End Sub

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.