Test for no more records in a form

[cebrower]

I want to loop through the records in a form using the following structure:

DoCmd.OpenForm "MyForm"



Do While IsNull(MyForm!FieldName) = False
'Execute some commands
DoCmd.GoToRecord,,acNext
Loop

Normally the last record in the form is blank, so MyForm!FieldName is null. I've used this format successfully in many places, but now I have a form that does not have a blank record at the end and I get an error message that I can't go to the next record. In the form properties I allow additions, but there is no blank record. How can I tell when I've reached the last record?

Thanks for any suggestions.

[pbaldy]

Simplest might be to trap for the error number and handle it as desired. If needed:

http://www.baldyweb.com/ErrorTrap.htm

[June7]

Consider

Do While IsNull(MyForm!FieldName) = False
     'do something
     Me.RecordsetClone.Bookmark = Me.Bookmark
     If Not Me.RecordsetClone.EOF ThenDoCmd.GoToRecord , , acNext
Wend

[cebrower]

Thanks for the suggestions. I trapped the error and that did the job.

[pbaldy]

Glad you got it working.

[accesstos]

Why not

    
    With Me.RecordsetClone
        .MoveFirst
        While Not .EOF
            'Do something
            .MoveNext
        Wend
    End With

?