Prevent the next button to create new record

[tanya68]

I use a "next button" to enable user to cycle the data in a form. Behind the click_button I just use runcommand. But i need to prevent this button to create new record - when it arrived at last record. Please help me.

[mshmyob]

Try the following in the ON CLICK event of the button

[code=vb]
On Error GoTo ErrorTrap
DoCmd.GoToRecor d , , acNext

ErrorTrap:
Select Case Err.Number
Case Is = 2105
MsgBox "End of Records"
Case Else
MsgBox (Err.Descriptio n & vbCrLf & Err.Number & vbCrLf & Me.Name)
End Select
[/code]

cheers,

I use a "next button" to enable user to cycle the data in a form. Behind the click_button I just use runcommand. But i need to prevent this button to create new record - when it arrived at last record. Please help me.

[missinglinq]

I believe for that code to work, the form's AllowAdditions Property also has to be set to No.

Welcome to bytes!

Linq ;0)>

[mshmyob]

You are right Linq - I forgot to mention that. I always turn that off and have a button to let a user make chnages or add or delete just so they don't do anything by accident. That way I can have things bound without them changing things without a concerted effort on their part.

cheers,

I believe for that code to work, the form's AllowAdditions Property also has to be set to No.

Welcome to bytes!

Linq ;0)>

[missinglinq]

Me, too, that's how I spotted it! I actually run all my apps full screen with pretty much everything turned off, using custom buttons to do everything.

Linq ;0)>

[tanya68]

I believe for that code to work, the form's AllowAdditions Property also has to be set to No.

Welcome to bytes!

Linq ;0)>

So nice of you ! Thank you..your advise is working now ! And the answer is incredible fast.....!

[tanya68]

Try the following in the ON CLICK event of the button

[code=vb]
On Error GoTo ErrorTrap
DoCmd.GoToRecor d , , acNext

ErrorTrap:
Select Case Err.Number
Case Is = 2105
MsgBox "End of Records"
Case Else
MsgBox (Err.Descriptio n & vbCrLf & Err.Number & vbCrLf & Me.Name)
End Select
[/code]

cheers,

Thanks a lot ! it's working ! The help that immediately arrive....thank a lot !

[mshmyob]

Well you know what they say .... "Great minds think alike".... or is that ... "Fools seldom differ".

cheers,

Me, too, that's how I spotted it! I actually run all my apps full screen with pretty much everything turned off, using custom buttons to do everything.

Linq ;0)>

[mshmyob]

You're welcome, glad we could help.

cheers,

Thanks a lot ! it's working ! The help that immediately arrive....thank a lot !