How to stop message box appears after the database is closed

[Apple08]

Hi All

I have created the macros below and the message box appears twice while the form is loaded and also after the database is closed. I only want the message box to appear once when the form is load and once user has selected 'OK' then the message box should be disappeared and no longer required. Please could anyone help to point out my mistake:

Private Sub Form_Load()

Application.RunCommand acCmdAppMaximize

DoCmd.ShowToolbar "Ribbon", acToolbarNo

Call SetEnabledState(False)

Call Menu_Load

Me.lblWelcome.Caption = "User: " & strPeopleName

' Sets the time in the 'userUseRecord' table when the user logs into the database
Call setLogin

'Restricts access to the database to LTI staff members
Call LTIstaffPermission

'Sets users editing permissions
Call setUsersEditingPermissions

Call Msg_Box

End Sub

Private Sub Msg_Box()

MsgBox "Please note the form is no longer in use.", vbInformation, "Important Information"

End Sub

 

[Micron]

Put a break point at the start of the code. Do whatever it is you're doing to run it and watch what happens line by line (F8). I see nothing in that code that should present a message box more than once. It is probably one of the many procedures that you're branching off to that's doing it.

 

[xenou]

Agree with the above. Also, you might get this behavior if the form is actually loaded more than once.

 

[Apple08]

Thanks both, I will have a look. many thanks.

 

[welshgasman]

PMFJI,

Never been a fan of showing a user something, then saying they cannot use it?
I'd prefer to not show it in the first place?