Início
A função abaixo pode ser usada para abrir os controles listados no menu treeview postado nesse tópico.
Private Function AbreObjetos(frm4 As Form)
'Insere a função OpcaoMenu no evento "ao clicar" da listbox
Dim ctl4 As Control
For Each ctl4 In frm4.Controls
Select Case ctl4.ControlType
Case acListBox
ctl4.OnClick = "=OpcaoMenu(" & ctl4.Name & ")"
End Select
Next
End Function
Private Function OpcaoMenu(lista As ListBox)
'Abre o formulário listado na 2ª coluna da listbox clicada
DoCmd.OpenForm lista.Column(1)
End Function
E no evento ao carregar do form:
Call AbreObjetos(Me)
Private Function AbreObjetos(frm4 As Form)
'Insere a função OpcaoMenu no evento "ao clicar" da listbox
Dim ctl4 As Control
For Each ctl4 In frm4.Controls
Select Case ctl4.ControlType
Case acListBox
ctl4.OnClick = "=OpcaoMenu(" & ctl4.Name & ")"
End Select
Next
End Function
Private Function OpcaoMenu(lista As ListBox)
'Abre o formulário listado na 2ª coluna da listbox clicada
DoCmd.OpenForm lista.Column(1)
End Function
E no evento ao carregar do form:
Call AbreObjetos(Me)