Greg Smith
GregSmith at starband.net
Fri Jul 30 13:48:30 CDT 2004
Thanks Charlotte! It works perfectly! Greg. > Try this: > > Public Function HideDBWindow() > On Error GoTo HideDBWindow_err > ' select a tab in the Database Window > DoCmd.SelectObject acTable, , True > ' Hide the database window > DoCmd.RunCommand acCmdWindowHide > HideDBWindow_exit: > Exit Function > HideDBWindow_err: > MsgBox Err.Description & " (#" & Err & ")" > Resume HideDBWindow_exit > End Function > > Charlotte Foust >