Relatorios do access no VB

[daniel_passarini 0]

e aih masters..senhores, tem alguma forma de utilizar o relatrios do access no vb? Tipo, chamar um relatorio do access no vb?desde ja obrigado!Daniel[]'s

[luiz humberto 0]

Para que o código abaixo funcione, tem que estar atento a dois detalhes, um é que terá que referenciar os objetos Access em seu projeto, o outro é necessário que tenha o Access instalado.

 

Dim ObjectAccess As Object Set ObjectAccess = CreateObject("Access.Application") 'VisualizarWith ObjectAccess .OpenCurrentDatabase filepath:="Arquivo.mdb" .Visible = True .DoCmd.OpenReport ReportName:="NomeRelatorio", View:=Access.acPreview End 'ImprimirWith ObjectAccess .OpenCurrentDatabase filepath:="Arquivo.mdb" .DoCmd.OpenReport ReportName:="NomeRelatorio" End With