Error Message 3021 (1 Viewer)

[hascons]

Hello,

I've created an unbound form to for experimental purposes. I have navigation buttons to move to first,last,next,previous. I get an error message if I'm at the last record and hit the move next command button. I've been experimenting with EOF and BOF if statements But I keep getting the Error message 3021.

Am I missing something in my code?

Function UnBoundMoveNext(frm As Form) As Integer
Dim ctlName As String
Dim x As Integer

If rstEmployees.EOF = True Then

rstEmployees.MoveNext

'Cycle Through the Recordset Setting the Value of Each Control On Form
For x = 0 To rstEmployees.Fields.Count - 1
ctlName = rstEmployees.Fields(x).Name
frm.Controls(ctlName).Value = rstEmployees.Fields(x).Value
Next x
End If
End Function

 

[SpentGeezer]

I have a textbox which is locked and has the current record number in it. Then I use this to check if it is the last record:

If Not txt_record.Value = Me.Recordset.recordCount Then
DoCmd.GoToRecord , , acNext
txt_record.Value = txt_record.Value + 1
Else
MsgBox "This is the last Record", vbInformation, "Last Record"
End If

 

[MarkK]

What is the error message? At what line does the error occur?

 

[gemma-the-husky]

you just need someting like

if rs.eof then
msgbox "No more records
exit sub
end if

if rs.bof then
msgbox "Already at Start"
exit sub
end if