LIBERAR/BLOQUEAR UM ITEM NO MENU
pessoall, será que alguem tem um EXEMPLO prático de como fazer a liberação/bloqueio de ÃÂÂtens de menu (estou fazendo as permissões de acessos de usuários em um sistema e não sei se estou fazendo corretamente, está dando muitos erros):
Do While Not rst.EOF
A = rst!MenuName
MDIFMenu.Controls(A).Enabled = False
rst.MoveNext
Loop
ele não me deixa bloquear o último ÃÂÂtem de cada menu...
Do While Not rst.EOF
A = rst!MenuName
MDIFMenu.Controls(A).Enabled = False
rst.MoveNext
Loop
ele não me deixa bloquear o último ÃÂÂtem de cada menu...
Tenta assim
On error resume next
Do While Not rst.EOF + 1
A = rst!MenuName
MDIFMenu.Controls(A).Enabled = False
rst.MoveNext
Loop
Olha, qto a esse tipo de acesso/bloqueio, eu costumo fazer assim: crio nÃÂÂveis de usuários, configuravéis, onde, no load do form, ele checa o nivel do usuário, checando o nÃÂÂvel, ele checa, quais os acessos livres e bloqueados deste nÃÂÂvel, e assim vai liberando e acessando os menus
Menu.Enabled = True ou False
boa sorte e sucesso
On error resume next
Do While Not rst.EOF + 1
A = rst!MenuName
MDIFMenu.Controls(A).Enabled = False
rst.MoveNext
Loop
Olha, qto a esse tipo de acesso/bloqueio, eu costumo fazer assim: crio nÃÂÂveis de usuários, configuravéis, onde, no load do form, ele checa o nivel do usuário, checando o nÃÂÂvel, ele checa, quais os acessos livres e bloqueados deste nÃÂÂvel, e assim vai liberando e acessando os menus
Menu.Enabled = True ou False
boa sorte e sucesso
Tópico encerrado , respostas não são mais permitidas