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

On Error GoTo ErrorTrap
    DoCmd.GoToRecord , , acNext
 
ErrorTrap:
    Select Case Err.Number
        Case Is = 2105
            MsgBox "End of Records"
        Case Else
        MsgBox (Err.Description & vbCrLf & Err.Number & vbCrLf & Me.Name)
    End Select
 

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

On Error GoTo ErrorTrap
    DoCmd.GoToRecord , , acNext
 
ErrorTrap:
    Select Case Err.Number
        Case Is = 2105
            MsgBox "End of Records"
        Case Else
        MsgBox (Err.Description & vbCrLf & Err.Number & vbCrLf & Me.Name)
    End Select
 

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 !