Hi to all, I have a question about the "Control Wizards" generated record navigation buttons on a form. The form is generated from a table and I don't want to use the default record navigation buttons. I used the "Control Wizards" enable on the tool bar when I make a button so I can make my own buttons to navigate through the records.

My problem is that the buttons that go to the "Next" or "Previous" record gives an error message, "You can't go to the specified record.", when when I go to the EOF or BOF. Here's the code generated by the wizard for the button.

Private Sub cmdNext_Click()
On Error GoTo Err_cmdNext_Click

    DoCmd.GoToRecord , , acNext

Exit_cmdNext_Click:
    Exit Sub

Err_cmdNext_Click:
    MsgBox Err.Description
    Resume Exit_cmdNext_Click

End Sub

What I want to do is check for EOF or BOF and disable the button or if I could tell want the record count is I could keep track of that to not go past EOF or BOF. I'm still looking but I have not found any reference to this in the book.

Any help would be greatly appreciated.
Regards Mike G.

Mike,

The Wizards are reknowned for generating some fairly stodgey code. I'd be inclined to rewrite them:

Private Sub cmdMoveNext_Click()
    Me.cmdMovePrevious.Enabled = True

    If Not Me.NewRecord Then
        DoCmd.GoToRecord , , acNext
        If Me.NewRecord Then
            DoCmd.GoToRecord , , acPrevious

            Me.cmdMovePrevious.SetFocus
            Me.cmdMoveNext.Enabled = False
        End If
    End If
End Sub

Private Sub cmdMovePrevious_Click()
    On Error Resume Next

    Me.cmdMoveNext.Enabled = True

    If Not Me.RecordsetClone.BOF Then
        DoCmd.GoToRecord , , acPrevious

        If Err <> 0 Then
            Me.cmdMoveNext.SetFocus
            Me.cmdMovePrevious.Enabled = False
        End If
    End If
End Sub

In any case, for general questions about Access, refer to the following page for information about logging onto the Microsoft newsgroups, where you can get help 24/7.

http://www.pacificdb.com.au/MVP/newsgroup.htm

Graham R Seach
Microsoft Access MVP

Dear Graham, thank you very much for your quick reply, the info is exactly what I was looking for.

Thanks again, Mike G.

Mike,

I just realised - in cmdMovePrevious_Click(), you can omit the "If Not Me.RecordsetClone.BOF Then" line (and its associated "End If", because they're redundant.



Graham R Seach
Microsoft Access MVP