cmdMoveFirst.Enabled = CanMovePrevious(Rs)
  cmdMovePrevious.Enabled = CanMovePrevious(Rs)
  cmdMoveNext.Enabled = CanMoveNext(Rs)
  cmdMoveLast.Enabled = CanMoveNext(Rs)

<font color=green>' Prüfen, ob zurückgeblättert werden kann</font>
Public Function CanMovePrevious(Tabelle As Recordset) As Boolean
  CanMovePrevious = False
  If Tabelle.RecordCount > 0 Then
    On Local Error Resume Next
    Tabelle.MovePrevious
    CanMovePrevious = (Not Tabelle.BOF And Err = 0)
    Tabelle.MoveNext
    On Local Error GoTo 0
  End If
End Function
 
<font color=green>' Prüfen, ob vorwärtsgeblättert werden kann</font>
Public Function CanMoveNext(Tabelle As Recordset) As Boolean
  CanMoveNext = False
  If Tabelle.RecordCount > 0 Then
    On Local Error Resume Next
    Tabelle.MoveNext
    CanMoveNext = (Not Tabelle.EOF And Err = 0)
    Tabelle.MovePrevious
    On Local Error GoTo 0
  End If
End Function