Arthur Fuller
fuller.artful at gmail.com
Wed Aug 29 08:16:23 CDT 2012
Ha ha ha! I whipped up a little test app to try it out, containing nothing but a form. The code you supplied bombed because there was no table to select LOL. So I created a table and re-ran the test form, and it worked like a charm. Then I selected Queries in the nav pane and the code still worked fine. So, in the real world, apps will have at least one table, so this will always work. LOL. Arthur On Wed, Aug 29, 2012 at 9:04 AM, Arthur Fuller <fuller.artful at gmail.com>wrote: > Thanks, Jim. I'll give that a try. > A. > > > On Wed, Aug 29, 2012 at 8:24 AM, Jim Dettman <jimdettman at verizon.net>wrote: > >> Arthur, >> >> This is one way to do it: >> >> Public Sub DisplayNavPane(Optional IsVisible As Boolean = True) >> >> DoCmd.SelectObject acTable, , True >> If IsVisible = False Then DoCmd.RunCommand acCmdWindowHide >> >> End Sub >> >>