Run Public Sub HOW?? 1

[Cpreston]

Hi

I am trying to create a public sum that will run the following code when I open a database.

DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "Status Bar", acToolbarNo
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide

How do I make the module so it runs when my database opens please. I have tried to follow some google links but cannot seem to get it working.
Using Access 2010. Could someone explain how I achieve this please.

Thanks

 

[1DMF]

This is how you create a public subroutine.

public Sub MySub(MyParameters)

End Sub

To make it globally accessible you need to put it in a Module.

Then I assume you have a main form that opens when the app starts? A lot of the time it's the 'Switchboard'.

Simply put a call to your sub in the form open event handler.

I actually have a dedicated login form as my app start form which runs version checking code, login authentication and other stuff.

You'll find this setting under 'File' -> 'Options' -> 'Current Database'


"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music

 

[strongm]

Create an AutoExec macro

 

[Cpreston]

Hi Strongm, I don't know how to do an AutoExec macro for this scenario, I tried copying an example from a link I found but failed.

I added the suggestion from 1DMF and oput into on load for the form and it works ok.

Public Sub Form_Load()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.ShowToolbar "Status Bar", acToolbarNo
DoCmd.NavigateTo "acNavigationCategoryObjectType"
DoCmd.RunCommand acCmdWindowHide
End Sub


Thanks for the replies

 

[1DMF]

Both ways are shown here :

https://support.office.com/en-ie/ar...database-98ba1508-dcc6-4e0f-9698-a4755e548124

"In complete darkness we are all the same, it is only our knowledge and wisdom that separates us, don't let your eyes deceive you."

"If a shortcut was meant to be easy, it wouldn't be a shortcut, it would be the way!"
Free Electronic Dance Music