sub_technique

카테고리

검색,필터,sort, 정렬

제목

RecordsetClone을 이용한 MoveNext, MovePrevious

Private Sub Form_MoveNext()
On Error GoTo EHandle
     Me.RecordsetClone.Bookmark = Me.Bookmark
     Me![txtRecNo] = Me.RecordsetClone.AbsolutePosition + 1
EExit:
     Exit Sub
EHandle:
     If Err.Number = 3021 Then
         Me![txtRecNo] = "New Record"
         Resume EExit
     End If
     MsgBox Err.Number & " " & Err.Description
     Resume EExit
End Sub

Private Sub Form_MovePrevious()
On Error GoTo EHandle
     Me.RecordsetClone.Bookmark = Me.Bookmark
     Me![txtRecNo] = Me.RecordsetClone.AbsolutePosition - 1
EExit:
     Exit Sub
EHandle:
     If Err.Number = 3021 Then
         Me![txtRecNo] = "Start Record"
         Resume EExit
     End If
     MsgBox Err.Number & " " & Err.Description
     Resume EExit
End Sub

Copyright By AccessVision