How to stop 2105 Message, Can't go to next record (Urgent, please help!)

[Steed]

Hey all, this is hopefully so simple you want to laugh me off the forum but it would Really Really help if you could...well help me!

I've got this 'browse' form to allow user to go through records one by one, but when I get to the end of the data two things happen:

First, it goes to a blank page (to make a new record I assume) - This is fine.

One more click after that I get a "2105" Which states "You can't go to specified record". however when it does this its an ugly box with 'end debug help' - This I do not want!

How do I add my own message just saying 'no more records'?

Thank you kindly!

oh btw the code for the button is:

Private Sub btn_Next_Rec_Click()
DoCmd.GoToRecord , , acNext
End Sub

[nico5038]

Hey all, this is hopefully so simple you want to laugh me off the forum but it would Really Really help if you could...well help me!

I've got this 'browse' form to allow user to go through records one by one, but when I get to the end of the data two things happen:

First, it goes to a blank page (to make a new record I assume) - This is fine.

One more click after that I get a "2105" Which states "You can't go to specified record". however when it does this its an ugly box with 'end debug help' - This I do not want!

How do I add my own message just saying 'no more records'?

Thank you kindly!

oh btw the code for the button is:

Private Sub btn_Next_Rec_Click()
DoCmd.GoToRecord , , acNext
End Sub

You can test or the last record (you allow "new") is the new record and skip the action like:

Private Sub btn_Next_Rec_Click()
If Me.Newrecord then
   ' no action
else
   DoCmd.GoToRecord , , acNext
end if
End Sub
 

Personally I prefer to disable such a [Next] button on forhand by adding to the OnCurrent event of the form. As you'll also want to protect the btnPrevious, you could use code like:

Private Sub btnFirst_Click()
 
    DoCmd.GoToRecord , , acFirst
    Call subEnable
 
End Sub
Private Sub btnPrev_Click()
 
    DoCmd.GoToRecord , , acPrevious
    Call subEnable
 
End Sub
Private Sub btnLast_Click()
 
    DoCmd.GoToRecord , , acLast
    Call subEnable
 
End Sub
Private Sub btnNext_Click()
 
    DoCmd.GoToRecord , , acNext
    Call subEnable
 
End Sub
 
Sub subEnable()
 
    ' init buttons
    Me.btnFirst.Enabled = True
    Me.btnPrev.Enabled = True
    Me.btnLast.Enabled = True
    Me.btnNext.Enabled = True
 
    ' correct for first and last row reached
    If Me.CurrentRecord = 1 Then
       Me.btnNext.SetFocus
       Me.btnFirst.Enabled = False
       Me.btnPrev.Enabled = False
    End If
 
    If Me.CurrentRecord = Me.Recordset.RecordCount Then
       Me.btnPrev.SetFocus
       Me.btnLast.Enabled = True
       Me.btnNext.Enabled = False
    End If
 
 
End Sub
 
Private Sub btnTagTest_Click()
Dim ctl As Control
 
For Each ctl In Me.Controls
    If ctl.Tag <> "" Then
       Debug.Print ctl.Name, ctl.Tag
    End If
Next
End Sub
 

BTW, the above code doesn't allow new records, check the difference :-)

Getting the idea ?

Nic;o)