Database Window

[John liem]

How can I hide the "Display Database Window" if I open a Form?
I don't want to disable from the Startup
Thanks, J

 

[ghudson]

The below code will disable (hide) all menu bars and tool bars. Ensure that you have a way to enable (unhide) the menu bars and tool bars (transparent command button) before you hide them!

'this will disable all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

'this will enable all menu bars and tool bars
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i

An added bonus is the right click option is disabled if the menu bars are disabled with the above code.

Use the 'ShowToolbar' command if you need to display a toolbar...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarYes

This will hide a toolbar when needed...
DoCmd.ShowToolbar "YourToolBarNameHere", acToolbarNo

You can also hide/unhide the database window with code...

'Hide the database window
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide

'Unhide the database window
DoCmd.SelectObject acTable, , True


HTH

 

[John liem]

Hi Ghudson,

Thanks, Iwill try and let you know
John

 

[John liem]

Ghudson,

I have tried to use this:

'UnHide the database window
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowUnhide

And I got error 2046: The command or action "Window Unhide" isn't available now.

John.

 

[ghudson]

Then the "window" was not "hidden", thus the error. There is nothing to unhide.