EXIBIR RELATORIO ACESS

FABIOPM 03/03/2005 16:18:56
#71000 Resposta escolhida

Faz o seguinte:

Private Sub ExibirRelatorio(Caminho as string,Nome as string)
' Referencia MS Access 8.0 Object Library
Dim MSAccess As Access.Application
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase Caminho, False
MSAccess.DoCmd.OpenReport Nome, acViewNormal
MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing
End Sub

espero ter ajudado!!!

qualquer dúvida... pergunte-me, blz

fuiii