Access Reports

[bmoyer23]

How do I open an Access report in VB?

 

[lovell811]

Try something like this


Public mcnn As ADODB.Connection
Private dbs As ADODB.Recordset

Set mcnn = New ADODB.Connection
mcnn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = \\locationofdatabase\nameofdb.mdb"
mcnn.Open
Set dbs = New ADODB.Recordset
dbs.CursorType = adOpenKeyset
dbs.LockType = adLockOptimistic
dbs.Source = "SELECT * FROM (nameofreport)"
Set dbs.ActiveConnection = mcnn
dbs.Open
whatever you want to do with it
dbs.close
____
Joe

 

[CCLINT]

Set a reference to the MS Access Object Library

Dim DB As Access.Application

Set DB = New Access.Application

DB.OpenCurrentDatabase "C:\myDB.MDB"

DB.DoCmd.OpenReport "myReport", acViewPreview

Please Note: You will not be able to do this if Access is not installed on the same machine...