Navigation Record Buttons in Forms

[jaarons]

Hi,



Quick question. (Well, quicker than my last few)
I have a form that scrolls through records. It has a previous records and a next records button.
When its on the first record and you accidentally go previous record, it comes up with an error message (saying you can't go to the specified record), then a break in the macro. Same with, obviously, if you're in the last record and user chooses next.

Is there a way for the button to be inactive if its the first record and user presses previous? Is there a way of there simply being an error message, and that's it, rather than the user seeing a macro dialogue box?

Just wondering. Thanks.

[ssanfu]

I don't use macros... this is the VBA I use:

'Previous record
Private Sub GoPrevious_Click()
   On Error GoTo Err_GoPrevious_Click

   DoCmd.GoToRecord , , acPrevious

Exit_GoPrevious_Click:
   Exit Sub

Err_GoPrevious_Click:
   If Err.Number <> 2105 Then
      MsgBox Err.Description & "   Error# " & Err.Number
   End If

   Resume Exit_GoPrevious_Click

End Sub

'Next record
Private Sub GoNext_Click()
   On Error GoTo Err_GoNext_Click

   DoCmd.GoToRecord , , acNext

Exit_GoNext_Click:
   Exit Sub

Err_GoNext_Click:
   If Err.Number <> 2105 Then
      MsgBox Err.Description & "   Error# " & Err.Number
   End If
   
   Resume Exit_GoNext_Click

End Sub

[jaarons]

Thanks. Excuse my ignorance with VBA code, but where do I put it?
I first of all deleted the On Click macros I had with the two buttons "Previous Record" and "Next Record"
I then went to On Click with one of the buttons and chose Code Builder. I pasted in the code, but it didn't work. Do I need to name the buttons GoPrevious and GoNext for it to work? Because that didn't seem to work either.

[ssanfu]

Yes, if you use the code as is, the button names would have to be "GoPrevious" and "GoNext".

Open the form in design mode.
Open the properties dialog box for the button "GoPrevious".
Click on the EVENTS tab.
Find the "On Click" row. Click in it. A dropdown arrow should appear.
Click on the dropdown arrow.
Select "Event Procedure"
Click on the three periods (aka ellipsis)
That should bring you to the IDE.
For the code "GoPrevious", copy and paste everything from my example except the first line and the last line (ie "Private Sub GoPrevious_Click()" and "End Sub")

Do the same for "GoNext".

Save the form.
Change to "Form View". Try the buttons.

[jaarons]

Great! That worked! Thanks again!