how to call an access report from vb application ?

[Joe Saliba]

hi,
how to call an access report from a vb application ??
i don't want to make a report from vb thx.

*** Sent via Developersdex http://www.developersdex.com ***

[AP]

Not sure if this will work from VB, but I imagine it should if you add
the MS Access reference. I use this from Excel to call Access Reports.

'+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++
Sub Factoring()
Dim db As AccessObject
Dim accAppl As Access.Application
Dim strDBPath As String

On Error GoTo ErrHandler
DoCmd.Hourglass True
Set accAppl = New Access.Application 'Start a new instance of
Access
strDBPath = "V:\XXX\Import.mdb"
accAppl.Visible = True 'Optional if you want the Access Window to
display
accAppl.OpenCurrentDatabase strDBPath
AccAppl.DoCmd.OpenReport "rptImport"
accAppl.Visible = False

ExitProc:
DoCmd.Hourglass False
DoCmd.SetWarnings True
accAppl.Quit 'Close Access
Set accAppl = Nothing 'Dispose of objectvariable
Exit Sub

ErrHandler:
MsgBox Err.Number & " " & Err.Description
GoTo ExitProc

End Sub