| Vincent Verheul 2005-09-18, 3:24 am |
| Hello Mike,
See the code example below; I use a menu bar called "MyMenu" and also a
toolbar called "MyToolbar". The first sub loads these two items and hides
all built-in menus and toolbars. The variable "Cbr" can also be declared as
type Office.CommandBar, but then you need to include this in the library
reference. The second sub hides the custom menu and toolbar and displays the
default menu & toolbar.
Vincent
Public Sub LoadMymenu()
Dim Cbr As Variant 'Office.CommandBar
'On Error Resume Next
CommandBars("Menu Bar").Enabled = False
CommandBars("MyMenu").Visible = True
For Each Cbr In CommandBars
If Cbr.Visible And Cbr.BuiltIn Then Cbr.Visible = False
Next
CommandBars("MyToolbar").Visible = True
End Sub
Public Sub ClearMymenu()
CommandBars("MyMenu").Visible = False
CommandBars("Menu Bar").Enabled = True
CommandBars("MyToolbar").Visible = False
CommandBars("Database").Visible = True
End Sub
"Michael Allen" <mw.allen@ntlworld.com> wrote in message
news:oCnPe.10$s4.3@newsfe7-win.ntli.net...
>I have a textbox in form bound to a Hyperlink field. I have set the
>database startup options not to allow full menus.
>
> Therefore when a user attempts to edit the Hyperlink, this option is not
> available. Is it possible to have a procedure to temporarily allow full
> menus to allow updating the Hyperlink or do I have to allow full menus at
> startup?
>
> Mike Allen
>
|