Hide default menu bars

[wazza]

Hi

I have set some start-up properties for my access application. I am trying to eliminate ALL access tools bars..

my application runs in a run-time environment - do i need to create extra vb code to remove the default tool bar: (Menu Bar)

??

regrds

 

[ecniv]

Public Sub SetToolbarsEnable(ByVal blnChangeTo As Boolean)
    Dim lngToolbars As Long
    
    On Error Resume Next
    
'---- reenable the toolbars
    For lngToolbars = 1 To CommandBars.Count
        CommandBars(lngToolbars).Enabled = blnChangeTo
    Next
End Sub

Turns off all toolbars/menus

Use carefully and make sure your toolbar/menu is enabled.

Vince

 

[wazza]

where and how would i use this ??

 

[ghudson]

Check this out... Hide all Access Toolbars and Menubars

 

[josajoes]

same problem

where and how would i use this ??

Have you managed to find the solution?

I am also looking for a solution. Please let me know if you have the answer.


Thanks

 

[dealwi8me]

Hide Menus:
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = False
Next i

Unhide Menus:
Dim i As Integer
For i = 1 To CommandBars.Count
CommandBars(i).Enabled = True
Next i

I hope that helps