Automation code controlling MS Access 1

[Sheffield]

Help!!

While using VB to print out an Access report, I receive the following msgbox. Does anyone have any idea why?

2585 This action cannot be carried out while processing a form or report event

Dim MSAccess As Access.Application

Private Sub Command1_Click()
'References MS Access 9.0 object library.

Set MSAccess = New Access.Application

MSAccess.OpenCurrentDatabase ("c:\file\testfile.mdb&quot

MSAccess.DoCmd.OpenReport "rptResolved", acViewNormal

MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing

End Sub

 

[MikeCox]

What line of code is it complaining about? Everything you have looks ok to me. You may try late binding like this:
Set MSAccess = CreateObject("Access.Application&quot
just to see if the problem persists. It may help you troubleshoot, but you may notice a performance hit.

 

[Sheffield]

My mistake....

This is the line causing the error msg.

MSAccess.DoCmd.OpenReport "rptResolved", acViewNormal

I would like to avoid defining Automation objects as general Object data types. The reason: VB will then query the Automation server each time I access it, and determining which kind of object I'm trying to create.

The bold line above DOES print out my report, but why the msgbox error occurs, I have no idea

Many thanks in advance for your help.

 

[Sheffield]

Unfortuately, the 'late-binding' produced the same result: the report printed, but the msgbox error displayed as well.

I am at a complete dead end.....any and all help is very much appreciated.

 

[Sheffield]

Oddly enough, placing the following code avoids the msgbox error:

Option Explicit
Dim MSAccess As Access.Application

Private Sub Command1_Click()
'References MS Access 9.0 object library.

Set MSAccess = New Access.Application

MSAccess.OpenCurrentDatabase ("c:\file\testfile.mdb&quot

MSAccess.DoCmd.OpenReport "rptResolved", acViewPreview
MSAccess.DoCmd.OpenReport "rptResolved", acViewNormal

MSAccess.CloseCurrentDatabase
Set MSAccess = Nothing

End Sub