Report VBA Issue

[Marianna_Air]

Hello,
I'm a bit new so be patient with me. I’m trying to use a database (Access 2003 32bit) that my company has to track purchase orders and restructure it to track request for quotes (Access 2010 64bit). All has gone smoothly until I started working on the reports, when I try to open a report with the open report button on my form I get an error that says “Compile error: Sub or Function not Defined” below is the code I’m trying to run. Please note this works just fine in the original access 2003 database

I also have not changed any of the database object names, I'm holding off on this until I know for sure that I've imported all of the objects I need from the original database

Private Sub Report_Open(Cancel As Integer)
intLineNum = 0


If Not IsLoaded("Purchase Orders(inventory)") Then
MsgBox "Open this report using the Preview button on the Purchase Orders form."
Cancel = True
Exit Sub
End If
End Sub


Thanks in advance for any help I can get on this
Kevin

[pbaldy]

IsLoaded is not a built-in function, it's a property (check in help for its syntax). If you haven't created a public function with that name, as many people do, you can't use it like that.

[Marianna_Air]

Hi,
Thanks for the response, I'm new at this so I'm still lost. This code works on the original database so is there something I need to import from it into my new one to make this work? How would I see if there is a public function for it?

Thanks

[pbaldy]

Open the VBA editor in the original database (ALT-F11). Hit CRTL-F to search. Type in IsLoaded and search Current Project. You should find the function that would start with:

Public Function IsLoaded

Copy the entire function into a standard module in the new db.

[Marianna_Air]

Got it, found the module for "isloaded"

Thanks a million

[pbaldy]

No problem, and welcome to the site by the way!

[Marianna_Air]

I've been out of the database building game for about 11 years now but it's comming back to me slow but sure

Thanks again