Help with a Custom Menu Module

[cross5900]

I have created a module that will enable a custom menubar if it meets the specified requirements. The only problem I have right now is I can not get rid of the standard menu bar. My code I am using is below:

Public Function CmdBars()
'This Function will allow for a custom menu bar to be activated and is set by the user's Rights Level.

    Dim aEmp As Variant
    aEmp = DLookup("RightsLevel", "Users", "UserID='" & Environ("username") & "'")

    If aEmp = 100 Then
        CommandBars("Menu Bar").Enabled = False
        CommandBars("Menu Bar").Visible = False
        CommandBars("SOC_Sup_Bar").Enabled = True
        CommandBars("SOC_Sup_Bar").Visible = True
    End If
    
    If aEmp = 0 Then
        CommandBars("Menu Bar").Enabled = False
        CommandBars("Menu Bar").Visible = False
        CommandBars("SOC_Assoc_Bar").Enabled = True
        CommandBars("SOC_Assoc_Bar").Visible = True
    End If
 End Function

Any ideas?

 

[RuralGuy]

Have you single stepped the code to see what is hapening?

 

[ghudson]

DoCmd.ShowToolbar "Menu Bar", acToolbarNo

DoCmd.ShowToolbar "Database", acToolbarNo

 

[cross5900]

I did but it really did not tell me anything. ghudson I am at home but I will give that a shot and let ya know.

I do know that having it set to default on one of the menu's on load and doing the code without the "menu bar" lines it works perfectly...but I still wanna know how to do it in code.

Thanks for the responses btw