when I click the next button it state runtime error '13' type mismatch. I dont know what part of the code is wrong. previously it worked !
please help.
Private Sub next_Click()
Dim rec As Recordset
Set rec = Me.RecordsetClone
'Move recordset to current form record
rec.Bookmark = Me.Bookmark
rec.MoveNext
If rec.EOF Then
'At last record, move to first
rec.MoveLast
Me.Bookmark = rec.Bookmark
Else
'Next record exists, move to next
rec.MovePrevious
Me.Bookmark = rec.Bookmark
DoCmd.GoToRecord , , acNext
End If
End Sub
please help.
Private Sub next_Click()
Dim rec As Recordset
Set rec = Me.RecordsetClone
'Move recordset to current form record
rec.Bookmark = Me.Bookmark
rec.MoveNext
If rec.EOF Then
'At last record, move to first
rec.MoveLast
Me.Bookmark = rec.Bookmark
Else
'Next record exists, move to next
rec.MovePrevious
Me.Bookmark = rec.Bookmark
DoCmd.GoToRecord , , acNext
End If
End Sub