Option Explicit
 
Public Enum eMoveTo
  MoveBack = 0
  MoveForward = 1
End Enum
 
Public Function rs_CanMove(Rs As Recordset, _
  ByVal MoveTo As eMoveTo) As Boolean
 
  ' Prüfen, ob innerhalb eines Recordsets geblättert
  ' werden kann
 
  Dim bResult As Boolean
  Dim sCurRec As String
  Dim nRec As Long
 
  bResult = False
  On Error Resume Next
 
  ' Anzahl Datensätze
  With Rs
    nRec = .RecordCount
    If nRec > 0 Then
      sCurRec = .Bookmark
      Select Case MoveTo
        Case eMoveTo.MoveBack
          .MovePrevious
          bResult = (Not .BOF)
        Case eMoveTo.MoveForward
          .MoveNext
          bResult = (Not .EOF)
      End Select
 
      If sCurRec <> "" Then
        .Bookmark = sCurRec
      End If
    End If
  End With
  On Error GoTo 0
 
  rs_CanMove = bResult
End Function

' Zurückblättern
If rs_CanMove(Rs, MoveBack) Then
  Rs.MovePrevious
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de