commandbars second level

[iccsi]

I am able to use following code to access my shortcut menu to set
enabled to false.

CommandBars("Meeting Activity").Controls("&Update").Enabled = False

I just add a new level "Meeting Case", because popup menu is too long.

Are there any way to access "Meeting Activity"-->"Meeting Case"-->
"&Update" shortcut menu?


Your help is great appreciated,

 

[Albert D. Kallal]

I am able to use following code to access my shortcut menu to set
enabled to false.

CommandBars("Meeting Activity").Controls("&Update").Enabled = False

I just add a new level "Meeting Case", because popup menu is too long.

Are there any way to access "Meeting Activity"-->"Meeting Case"-->
"&Update" shortcut menu?


Your help is great appreciated,

You use hte "contorls" colleciton.

eg:

if IsInGroup(CurrentUser,"SuperUser" then

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

end if

or
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

I have "wrapped" the above commands...but, they would in practice be on one
line...

 

[iccsi]

You use hte "contorls" colleciton.

eg:

if IsInGroup(CurrentUser,"SuperUser" then

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

end if

or
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

I have "wrapped" the above commands...but, they would in practice be on one
line...

Thanks millions,