[elena]

Hi, All
I have Access report which i can print with no problem, but view feature
doesn't work, What am i doing wrong in the code?
Please, help

Set objAccess = New Access.Application
With objAccess
.OpenCurrentDatabase (strDB)
.DoCmd.OpenReport sReportName, acViewPreview - doesn't work....

.DoCmd.Close acReport, sReportName
.Application.CloseCurrentDatabase
End With
If Not objAccess Is Nothing Then
objAccess.Quit
Set objAccess = Nothing
End If

Archived from group: microsoft>public>vb>ole>automation

[Paul Clement]

On Wed, 2 May 2007 10:46:01 -0700, elena wrote:

¤ Hi, All
¤ I have Access report which i can print with no problem, but view feature
¤ doesn't work, What am i doing wrong in the code?
¤ Please, help
¤
¤ Set objAccess = New Access.Application
¤ With objAccess
¤ .OpenCurrentDatabase (strDB)
¤ .DoCmd.OpenReport sReportName, acViewPreview - doesn't work....
¤
¤ .DoCmd.Close acReport, sReportName
¤ .Application.CloseCurrentDatabase
¤ End With
¤ If Not objAccess Is Nothing Then
¤ objAccess.Quit
¤ Set objAccess = Nothing
¤ End If

What do you mean by "doesn't work"? Is an error message being generated?


Paul
~~~~
Microsoft MVP (Visual Basic)