newrecord in detail vs footer - Microsoft Access Forum


	Back to Access Forum Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

newrecord in detail vs footer

Kirby Records

5 years ago

I have made larger navigation buttons for my forms. the docmd.gofirst, docmd.golast and docmd.goprevoius work fine. The docmd.gonext works fine until the last record when it wants to bring up a new blank record. I don't want the user to enter a record this way so I was using the following code:

Private Sub btnNextRec_Click()
   On Error Resume Next
   DoCmd.GoToRecord , , acNext
   If Me.NewRecord Then docmd.GoToRecord , , acPrevious
End Sub

This code works fine in the detail section of any form, but is not working in the form footer.
What could be causing the code to function differently in the two situations?

Thanks,

	Adam Schwanz @Reply 5 years ago
Try Me.Recordset.MoveNext If Recordset.EOF Then Recordset.MoveLast End If

Kirby Records OP @Reply

5 years ago

I solved my imediate issue.
Use the following code in place of the above:

Private Sub btnNextRec_Click()
   On Error Resume Next
   Me.AllowAdditions = False
   DoCmd.GoToRecord , , acNext
   Me.AllowAdditions = True
End Sub

This stops .GoToRecord from finding a new record only when the btnNextRec is clicked , and sets the form back to normal before exiting the sub.
It still doesn't explain why the original code functions differently in detail and footer sections.

	Kirby Records OP @Reply 5 years ago
Thanks Adam, your solution works well!

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Forum.

Next Unseen

New Feature: Comment Live View