[Resolvido]Chamar relatório através da listbox

Bom dia amigos,

Tenho um formulário que é um menu principal criado no formato de menu TreeView, ao clicar no item ele abre uma listbox, nesta lista tenho alguns itens que são relatórios e necessito que seja aberto em visualizar impressão, estou utilizando as instruções abaixo, porém a instrução está retornando erro. Como poderia solucionar este problema.

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.OpenReport lista.Column(1)
End Function



E no evento ao carregar do form:


Call AbreObjetos(Me)

Moacir quando eu desenvolvi esse menu eu o usava para abrir apenas formulário, para sua necessidade faça o seguinte:

Na tabela onde você insere os nomes dos objetos, crie mais uma coluna com o tipo de objeto, exemplo:

Formulários - 1
Relatórios - 2

Insira mais essa coluna na listbox e dentro da função OpcaoMenu insira um If, exemplo:

Private Function OpcaoMenu(lista As ListBox)
'Abre o Formulário ou Relatório listado na 2ª coluna da listbox clicada
If lista.Column(4) = 1 Then 'Informei como coluna 4 para exemplo
   DoCmd.OpenForm lista.Column(1)
   Else
   DoCmd.OpenReport lista.Column(1)
End If
End Function

OK, Obrigado

Att.

Moacir