License information - Error on new machine

[MariamS]

I have a working instance of a *.mdb Access 2002-2003 on my machine. When I access it from a brand new PC with Access 2003 (same SP2) and the same OS (XP SP2 -- all updates applied). I get the following error from within the forms:

"License information for this component not found. You do not have an ppropriate license to use this functionality in the design environment" from within a form.

I have a brand new install of access 2003 on the machine in question and have looked up the error to find only solutions on reinstalling vb6/vb6cli. I don't have vb6 installed on my machine where it does work (however, I do have Visual Studio 2005). I only used access to compile/modify the code.

Has anyone seen this? Any suggestions?

Thanks,
Mariam

 

[kjv1611]

Have you tried just installing VS2005 on the computer that's not working? Maybe it started using some reference within VS.

 

[SuryaF]

I had a similar problem.
There's probably an error referencing a library.
You're using an ActiveX control from a library that is not registered on the computer you're working on. The thing is, sometimes it doesn't show it as missing reference in VBA.
What you need to do is:
1. find what control is that (it's usually a non-standard one like a calendar control)
2. see what library is part of (look at the class name)
3. register that library using the Tools/ActiveX Controls menu
See if it works. Good luck!

 

[MariamS]

Here is a snippet of my code. When it comes to the second to last line below where I "opendatabase" this is where the licensing msg appears. If I comment this line out and all subsequent code that pertains to it (accessing the foxpro table) then the error didsappears:


Dim dbsJet As Database
Dim rstfoxpoap As Recordset
Dim foxpath As String
Dim FoxDbf As String

Dim PURCHORD_PONO As Double
Dim Supplier_ID As Double

T4.Seek "=", Forms![Global Values]![txtPONO]
Supplier_ID = T4.supplierid
T5.Seek "=", Supplier_ID

foxpath = T3.JcPoApDir
FoxDbf = T3.JcPoApDbfName

T3.Close

Set dbsJet = OpenDatabase _
(foxpath, False, False, "Foxpro 2.6;")

Set rstfoxpoap = dbsJet.OpenRecordset(FoxDbf)