<div>
See: <a href="https://www.devhut.net/2011/05/25/ms-access-vba-hide-nav-pane/" rel="ugc">https://www.devhut.net/201<wbr />1/05/25/ms<wbr />-access-vb<wbr />a-hide-nav<wbr />-pane/</a>
</div>


See: https://www.devhut.net/2011/05/25/ms-access-vba-hide-nav-pane/ [https://www.devhut.net/2011/05/25/ms-access-vba-hide-nav-pane/]

SteveL13

<div>
<div class="content wysiwyg-content">
I'm trying to figure out how to open the navigation pane via VBA code after a password has been entered. &nbsp;Here is what I have so far...<br />
<br />
&nbsp; &nbsp; Dim strName As String<br />
&nbsp; &nbsp; strName = InputBox(&quot;Please enter the database password.&quot;, &quot;VBA InputBox Function&quot;)<br />
&nbsp; &nbsp; If strName = Empty Then Exit Sub<br />
&nbsp; &nbsp; If strName &lt;&gt;&nbsp;DLookup(&quot;[DBpassword]&quot;, &quot;tblDBPassword&quot;) Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;You do not have access to this function&quot;<br />
&nbsp; &nbsp; &nbsp; &nbsp; Exit Sub<br />
&nbsp; &nbsp; End If<br />
<br />
&nbsp; &nbsp; 'Code here to open the navigation pane...
</div>
</div>


I'm trying to figure out how to open the navigation pane via VBA code after a password has been entered.  Here is what I have so far...

    Dim strName As String
    strName = InputBox("Please enter the database password.", "VBA InputBox Function")
    If strName = Empty Then Exit Sub
    If strName <> DLookup("[DBpassword]", "tblDBPassword") Then
        MsgBox "You do not have access to this function"
        Exit Sub
    End If

    'Code here to open the navigation pane...

VBA code to open the navigation pane

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.