Allow Additions Msg Box

[rossi45]

Hi all.

I have set my form to 'No' for Allow Additions. (i.e. I do not want the user to add new records to the table)



When I get to the last record and try to click the 'Next Record' button, a message box appears:



I do not like the text string used in this box. Is there anyway to change it? I tried to go to the event to see if it is set there, but it just calls the:

MsgBox Err.Description

It looks like there's a default message that gets called. I'm wondering if this can be altered.

Thanks,
Mike

[TG_W]

Try adding the below code. The "Chr$(10)" are line breaks.

Private Sub ErrMsg()
    Dim x As Variant
    x = MsgBox("Enter the text you want to be read here" & Chr$(10) & Chr$(10) & "Please check the data entry and re-submit.", , "Title for window")
End Sub

[John_G]

Hi -

Are you using your own code for that button, or you using the navigation bar at the bottom of the form? If you are using the navigation bar, and the form has Allow Additions = No, then you shouldn't be getting an error message at all.

In answer to your question, you can easily change the text. Instead of err.description in the msgbox line, just replace err.description with whatever text you want to use.

Two useful properties of the err object are err.number and err.description, which you saw. err.number is useful if you want to take different actions depending on what error has occurred, for example using Select Case err.number ....

HTH

John

[rossi45]

Thanks TG_W. That's what I needed!

Mike