Preview a report

[robinsql]

Hi,

I am trying to preview an Access report from within my VB application.
Can somebody please tell me why the following code does not work?

strDBDir = g_Conn.Properties("Data Source&quot
Set objAccess = CreateObject("Access.Application&quot
objAccess.OpenCurrentDatabase strDBDir, False
objAccess.DoCmd.OpenReport "rptName", acViewDesign
objAccess.Reports(0).RecordSource = sSQL
objAccess.DoCmd.OpenReport "rptName", acViewPreview
objAccess.DoCmd.OpenReport "rptName", acViewNormal
objAccess.CloseCurrentDatabase
objAccess.Quit acQuitSaveNone


Any help gratefully received.
Thanks,
Robin

 

[randysmid]

Hi,
Do you have a line like this that declares objAccess?
Dim objAccess as Object
Additionally, I don't understand why you are creating another instance of Access if the report already exists inside your current database. Am I missing something here?

HTH,
Randy Smith, MCP
California Teachers Association

 

[robinsql]

Hi,
I just used the following and it worked...

objAccess.Visible = True

The only problem is that this shows the entire DB. Is it possible to just show the report as I don't want the user to edit the DB like this?

Thanks,
Robin