I've got troubles calling an Access Report usin vb6 (os is win 98).
I used the docmd but it doesn't work.

I wonder of it because the same try with an Access 97 db works correctly!!!!

If someone can help me ....

Thank you  
Clod.

You will need to change the Access Library in your Project References to "Microsft Access 10.0 Object Library"


____________________________
multi-tasking - the ability to hang more than one app. at the same time.

quote:

---

GeoffS wrote:
You will need to change the Access Library in your Project References to "Microsft Access 10.0 Object Library"

---

Try this Code :-
I have assumed that you have the Access Project in the same folder as the App so I have retrieved the path for the app first, rather than hard-coding a path.

Dim AcApp As Access.Application Set AcApp = New Access.Application Dim strPath As String strPath = App.Path strPath = strPath & "\reporting1.adp" AcApp.OpenAccessProject strPath AcApp.Visible = True AcApp.DoCmd.OpenReport "YourReport1", 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

If your Access is not an adp project but a standard "mdb" database then replace the open call with -
"AcApp.OpenCurrentDatabase strPath"




____________________________
multi-tasking - the ability to hang more than one app. at the same time.

I am trying to call an Access '97 report from VB 6.  How would I go about doing that?  I have tried several sites and I can't seem to find anyone who can answer this question for me.

Hi,
Just follow the advice above, but you will need to change the Access Library in your Project References to "Microsoft Access 8.0 Object Library"
You obviously also need to have a copy of MS Access installed on the machine on which you are running your app.


____________________________
multi-tasking - the ability to hang more than one app. at the same time.

Thank you.  I will try it.  I hope this works.

I added the correct reference, my database gets opened in the form load, but the code doesn't work and I'm getting this error message:

Run-time error '2486':

You can't carry out this action at the present time. @You tried to run a macro or used the DoCmd object in Visual Basic to carry out an action.  However, Microsoft Access is performing another activity that prevents this action from being carried out now.
For example, no actions on a form can be carried out while Microsoft Access repainting a control or calculating an expression.@Carry out the action later.@1@@1

    

quote:

---

GeoffS wrote:
Try this Code :-
I have assumed that you have the Access Project in the same folder as the App so I have retrieved the path for the app first, rather than hard-coding a path.

Dim AcApp As Access.Application Set AcApp = New Access.Application Dim strPath As String strPath = App.Path strPath = strPath & "\reporting1.adp" AcApp.OpenAccessProject strPath AcApp.Visible = True AcApp.DoCmd.OpenReport "YourReport1", 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

If your Access is not an adp project but a standard "mdb" database then replace the open call with -
"AcApp.OpenCurrentDatabase strPath"

---

This seems to work, but how do I handle it when there is a password on the database?

Ah - Now that starts to get a bit awkward when the Database itself has a password on it. As far as I know there is no way to pass the password as a parameter when calling the open command. ( If I am wrong PLEASE someone tell me how to do it!!)
In the past I have used a SendKeys command after calling Open, and that has worked. Don't forget to include "~" at the end of the password for the "Enter" key.


____________________________
multi-tasking - the ability to hang more than one app. at the same time.

Thanks for the help.  I am all set.