[Resolvido]Exibir relatrorios atraves de listBox..

Boa tarde amigos.. gostaria de saber se tem como criar uma lstBox para exibir os relatorios do form?
e ao click abril-los...

Se puderem ajudar..

Então, cria uma tabela com os nomes dos relatórios e depois fazes a list. Nota que para abrir rekatórios, mas se tiveres que abrir individualmente, tipo ID & ID, não consegues fazer isso.

não são relatórios filtrados nao amigao...

Sao relatorios gerais.. sem filtro

use no botão ao clicar

so usar docmd.openreport me.listbox

Vou Jantar

Hary

Importe o Form para a sua BD
http://dl.dropbox.com/u/8169944/Documenta%C3%A7ao.mdb

Obrigado assis.. apenas nao vou mexer nisso hoje.. ja importei e amanha dou retorno

Grato

Vierao.. consegui..
mas esta imprimindo. como visualizar apenas?

Private Sub lstRelatorio_Click()
Selecionado = True
DoCmd.OpenReport Me.lstRelatorio.Column(1)
End Sub

Tente assim:

DoCmd.OpenReport Me.lstRelatorio.Column(1), acViewPreview
ou assim:
DoCmd.OpenReport Me.lstRelatorio.Column(1), acViewReport

Deixo aqui mais uma dica: sempre que for escrever o código no módulo vba, observe as dicas que o próprio Access vai mostrando. Por exemplo, se você digitar DoCmd. já lhe serão mostradas todas as opções possíveis de comandos com o DoCmd. Quando você digitar DoCmd.Open já serão exibidas as opções para o comando Open, que pode ser Report, Form, etc. Quando você digitar DoCmd.OpenReport e der um espaço, lhe serão mostradas as opções de personalização, como o modo de visualização, de filtragem, etc, para o comando digitado. Basta ir digitando a opção desejada e ao digitar uma vírgula, a opção atual será destacada, mostrando o que você pode personalizar naquela seção.

Prezado criquio, me perdoe uma gafe..

a linha e apenas assim:

DoCmd.OpenReport Me.lstRelatorio

coloquei a AcviewPreview

mas aparece a seguinte mensagem:

O nome do relatório "1" que voce inseriu na folha de propriedades ou macro esta incorreto ou refere-se a umk relatorio que nao existe..

DoCmd.OpenReport Me.lstRelatorio, acViewPreview

Ops..

Funcionou assim:

DoCmd.OpenReport Me.lstRelatorio.Column(1), acViewPreview

grato

Agora uma questao..

eu clico na lstBox.. e abro o documento...

como faco para no findar do codigo a linha na lst box nao ficar selecionada?

Tente assim:

Me.NomeDaListBox = ""

Ok. Grato Amigão..