VB6 - Run an Access Report from VB6

I have a report (ClosingRpt) that was created in Access 2002.  I wish to run that report from my VB6 program by pressing a Command Button (RunClosingRpt).

Do I use OLE?  If so, how.  If not, what do I do?

When the report has been run I want control to return to the VB6 program named "Evaluation"

thanks
ljcorAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
Adel87Connect With a Mentor Commented:
The attached code is supposed to do the trick :

before adding this code to your command button please do the following :
1- in VB6 go to 'Project' menu and choose ''References'
2- check the following refrence or the relevent version that you have :
'Microsft Access 10.0 Object Library'
3- press ok

don't forget to change the strPath the path you have your file in as this code asumes the Access mdb file to be on the same folder as the executable. and change db.mdb with the correct file name for your database file.

put the first part of the code (before the comment) in the command button and the second part in the (form_unload) event.

Please contact me if you need further assistance.

Best Regards,
Dim AcApp As Access.Application
Set AcApp = New Access.Application
Dim strPath As String
 
strPath = App.Path
strPath = strPath & "\db.mdb"
 
AcApp.OpenCurrentDatabase strPath
AcApp.Visible = True
AcApp.DoCmd.OpenReport "ClosingRpt", acViewPreview
AcApp.DoCmd.Maximize
 
'don't forget to dispose of the object when you close the form you are calling from, _
'otherwise repeated calls will end up with loads of instances of MSAccess running on your PC
 
AcApp.Quit
Set AcApp = Nothing

Open in new window

0
 
ljcorAuthor Commented:
I thank you very much for this code.
Jack
0
All Courses

From novice to tech pro — start learning today.