SABER NOME DOS MENUS E SUBMENUS

LUIS.FLAVIO 12/12/2006 21:21:59
#189592
Pessoal como faço para saber os nomes do menus e submenus do form, e depois fazer uma rotina de restrição de acesso exemplo na tabela vai ter o nome dos menus e submenus aí pego os nomes dos menus e submenus se na tabela estiver TRUE fica visível se estiver FALSE não fica visível.
USUARIO.EXCLUIDOS 12/12/2006 22:08:56
#189598 Resposta escolhida
Olha cara, aqui ele passa por todos os Menus da tela

    For Each obj In Me
        If TypeOf obj Is Menu Then
            MsgBox obj.Name
        End If
    Next


Ele vai dar um msgbox com o nome de cada menu, a partir disto, vc faz o select e coloca o visible do menu.

obj.Visible = True
ou
obj.Visible = False
LUIS.FLAVIO 13/12/2006 18:11:59
#189815
Amigão fiz da seguinte forma:

For Each Obj In Me
If TypeOf Obj Is Menu Then
Set RS = conexao.Execute("SELECT * FROM MENU")
Obj.Visible = RS(Obj.Name)
End If
Next
RS.Close
Set RS = Nothing


Mas dá um pequeno erro quando tenta não deixar nenhum SubMenu do Menu Arquivo invísivel ele aceita apenas se ficar algum vísivel.
USUARIO.EXCLUIDOS 13/12/2006 21:50:33
#189832
é cara... ai complica...

Acho que realmente tem que ficar um visivel...

pq vc não trabalha com enabled ao invés do visible???
Tópico encerrado , respostas não são mais permitidas
Voltar