I think I may have a solution for you.
Replace your line "&cForm..&cMenu..Visible = > &cForm..&cMenu..Visible = datPermission.Recordset("Allowed") " with
EnableMenu(cMenu, datPermission.Recordset("Allowed"))
Where EnabledMenu is the sub:
sub EnabledMenu(cMenu as string, bEnabled as boolean)
on error resume next
Me.Controls(cMenu).Enabled = bEnabled
end sub
Controls returns a collection of all the controls on your forms, including menu items. The On Error statement will allow the sub to ignore errors if the menu name is invalid.
hope that helps,
jody
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement