Instellen navigatie pane vanuit vba

[linkav]

Beste forummers,

Ik blijf maar klungelen met het navigatiepanel.

Ik heb een tabel met gebruikers en gebruikersgroepen. Bij de gebruikersgroepen heb ik het veld usrGrpBalkNavigatie. De bedoeling is om per groep aan te geven of het navigatiepanel getoond moet worden of niet. Afhankelijk van de ingelogde persoon ga ik een globale variabele vullen gblusrGrpBalkNavigatie. En daarna heb ik de code:

    If gblusrGrpBalkNavigatie = False Then
        DoCmd.NavigateTo "acNavigationCategoryObjectType"
        DoCmd.RunCommand acCmdWindowHide
    Else
        DoCmd.SelectObject acTable, , True
        DoCmd.NavigateTo "acNavigationCategoryObjectType"
        DoCmd.Minimize
    End If

Is gblusrGrpBalkNavigatie = true wordt het panel netjes geminimaliseerd, maar is gblusrGrpBalkNavigatie = false dan wordt het panel steeds getoond en kunnen de gebruikers zaken doen die ik niet wil dat ze kunnen doen.

Wat doe ik fout? Help?

 

[linkav]

Niemand een oplossing?

 

[linkav]

Dit werkt wel:

    If gblusrGrpBalkNavigatie = False Then
          'select the navigation pange 
        Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
        'hide the selected object 
        Call DoCmd.RunCommand(acCmdWindowHide)    
    Else
        DoCmd.SelectObject acTable, , True
        DoCmd.NavigateTo "acNavigationCategoryObjectType"
        DoCmd.Minimize
    End If