Displaying the "Database" window

[Jake]

Is there a way to display the stanadard database window programatically?

It doesn't normally open if there is a startup form set up, but I would like
to be able to display it under certain circomstances.

Thanks
Jacob

 

[dymondjack]

Try this

http://www.mvps.org/access/general/gen0031.htm


--
Jack Leach
www.tristatemachine.com

- "Success is the ability to go from one failure to another with no loss of
enthusiasm." - Sir Winston Churchill

 

[Marshall Barton]

Is there a way to display the stanadard database window programatically?

It doesn't normally open if there is a startup form set up, but I would like
to be able to display it under certain circomstances.

Sub ShowDbWindow()
DoCmd.SelectObject acTable, , True
End Sub

Sub HideDbWindow()
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub

 

[Dale Fye]

Jake, try the following:

DoCmd.SelectObject acTable, strTableName, true

Set the value of strTableName to the name of a table that you know is in the
database, and is not hidden. Or, if you want to add some error checking, you
can pass it any value and trap for err.number = 2544, which is the error
message that will display if Access is unable to find the table with the name
you pass it.

 

[dymondjack]

that should do <g>
--
Jack Leach
www.tristatemachine.com

- "Success is the ability to go from one failure to another with no loss of
enthusiasm." - Sir Winston Churchill

 

[Dale Fye]

Absolutely.

Thanks for the info.

Dale, the 2nd argument isn't required if the 3rd argument is true. The db
window will appear showing the tab for the object type. You can avoid
finding an appropriate table name and adding any error handling. Easier,
don't you think?

DoCmd.SelectObject acTable, , true

Chris

 

[Dale Fye]

Or maybe:

Sub DisplayDbWindow(Optional Setting as boolean = true)

DoCmd.SelectObject acTable, , True
if Setting = False then DoCmd.RunCommand acCmdWindowHide

End Sub