How to Stop Next Button creating a new record? (1 Viewer)

[Bee]

Hi

I have created a next button that goes to the next record each time the user presses it. however when records finish, it tries to create a new record. Is there anyway to stop it once it reaches the last record. I don't want it used to create new records.

Any suggestions will be very much appreciated.
Thanks,
Reda

 

[KeithG]

In the forms properties set Allow Addtitions to False

 

[Bee]

I want to allow additions in that form, it just not through the next button!

 

[Bee]

Anyone who can help with this will be great.
I basically want to add new records to this form, it just NOT through the next button. There is a linked subform and if the PK went blank on the main form, the database will save a new record without saving the main form's PK for it.

 

[DCrake]

Simple Software Solutions

Hi

On the OnClick event of the Next button attempt to discover if the user is at the last record in the table. If so, then add the following code

If MsgBox("Are you sure you want to add a new Record?",vbQuestion+vbYesNo,"Add New")=vbYes Then

DoCmd.GoToRecord , , acNewRec

End if

Good Luck!

 

[boblarson]

Hi

On the OnClick event of the Next button attempt to discover if the user is at the last record in the table. If so, then add the following code

Sorry, you do not have access to any events through the built-in navigation buttons. Bee - you'll have to create your own nav buttons so you can do this, then set the Navigation Buttons property to NO so the built-in ones don't show up.

 

[Bee]

attempt to discover if the user is at the last record in the table.

I have my own buttons, but I don't know how to find out when it reaches the last record.

 

[boblarson]

How about putting this in the click event of the NEXT button(although it may cause it to flicker briefly)

If Me.NewRecord Then
  DoCmd.RunCommand acCmdRecordsGoToLast
End If

 

[Bee]

That sounds good. Will try it. Cheers.

 

[CraigDolphin]

Another method I have used is

Private sub CmdNext_Click()
With Recordset
  If .AbsolutePosition = .RecordCount - 1 Then
'you are on the last record
        MsgBox "Sorry, this is the last Record.", vbInformation
  Else
'you are on some other record
        DoCmd.GoToRecord , , acNext
  End If
End With
End Sub

This avoids the flicker issue.

 

[Bee]

That's brilliant CraigDolphin. Cheers.

 

[CraigDolphin]

Glad to help