hide submenu items

[Morten]

I have digged around for ages to find out how to gray out
a specific item in a menu. It is easy to hide the top
manu item, but I want to be able to hide or gray out any
item under each menu item but have not found out how to
do this. Assistance would be very much apreciated...

RGDS
Morten

 

[Albert D. Kallal]

The format is somting like:

if IsInGroup(CurrentUser,"SuperUser") = True then

CommandBars("menu bar").Controls("records").
Controls("refresh").Visible = True

end if

if IsInGroup(CurrentUser(),"InvoideDeleteGroup") = true then

CommandBars("myCustomBar").Controls("AdminOptions").
Controls("DleeteInvoice").Visible = True

end if

Note that short cut menus are their own name also:

commandbars("your shortcut name").
Contorls("contorlName").visiable = false

You can replace the above 'visible with "enabled"

Also, I have broken those examples in to two lines...but they need to be on
one line...

 

[Morten]

Albert,

Thanks. Worked a dream. I used the line I left
underneath. Only tried it and one working solution is
plenty.

RGDS
Morten