Access2000 on Win98 to XP

[Guest]

My Access2000 project works just fine on Windows98 but when I upgraded to
WindowsXP Serveral problems come up.

First, I get a message saying "Your Microsoft Access datbase or project
contains a missing or broken reference to the file "ImgEdit.ocx" Version 2.2
and "IMGSCAN.OCX" version 1.0". How do I fix this?

Second, I have the following code to provide a "Fiscal Year" for my database.
If I execute it, I get a gray box that says "Compile error: Can't find
project or library". The first line "Private......" is highlighted in yellow
and "Date" is highlighted in blue. How do I fix this?

Private Sub ReCal_Click()
Call LYM.GetFiscalYear(Date)
Fyear = LYM.GetFiscalYear(Date)
FiscalYear = [Lyear] & "-" & ([Lyear] + 1)
CMonth = LYM.GetFiscalMonth(Date)
End Sub

 

[Douglas J. Steele]

Go into the VB Editor, and select Tools | References from the menu.

You should find some references with "MISSING:" in front of them. Unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

Fixing the broken references should solve your other problem too.

 

[Norman Yuan]

Do what Douglas J. Steele suggests.

But the two files you mentioned (imgedit.ocx and imgscam.ocx) probably not
included in WinXP anymore (they are included in Windows prior to WinXP). At
least WinXP machines in my office do not have these 2 ActiveX control files,
while other Win2K machine all have them. So, if your Access app must use
these 2 controls and must run on WinXP computers, you need to find them
somewhere and get them installed properly, then do what Douglas suggests to
restore the reference.

 

[Guest]

Doug,

Where do I go into VB Editor in Access?

Go into the VB Editor, and select Tools | References from the menu.

You should find some references with "MISSING:" in front of them. Unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

Fixing the broken references should solve your other problem too.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

My Access2000 project works just fine on Windows98 but when I upgraded to
WindowsXP Serveral problems come up.

First, I get a message saying "Your Microsoft Access datbase or project
contains a missing or broken reference to the file "ImgEdit.ocx" Version 2.2
and "IMGSCAN.OCX" version 1.0". How do I fix this?

Second, I have the following code to provide a "Fiscal Year" for my database.
If I execute it, I get a gray box that says "Compile error: Can't find
project or library". The first line "Private......" is highlighted in yellow
and "Date" is highlighted in blue. How do I fix this?

Private Sub ReCal_Click()
Call LYM.GetFiscalYear(Date)
Fyear = LYM.GetFiscalYear(Date)
FiscalYear = [Lyear] & "-" & ([Lyear] + 1)
CMonth = LYM.GetFiscalMonth(Date)
End Sub

 

[Douglas J. Steele]

Ctrl-G will take you there, or Alt-F11, or open any code module.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

Doug,

Where do I go into VB Editor in Access?

Go into the VB Editor, and select Tools | References from the menu.

You should find some references with "MISSING:" in front of them. Unselect
them, and back out of the dialog. If you really need the reference(s) you
just unselected (you can tell by doing a Compile All Modules), go back in
and reselect them.

Fixing the broken references should solve your other problem too.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)

My Access2000 project works just fine on Windows98 but when I upgraded to
WindowsXP Serveral problems come up.

First, I get a message saying "Your Microsoft Access datbase or project
contains a missing or broken reference to the file "ImgEdit.ocx"

Version
2.2

and "IMGSCAN.OCX" version 1.0". How do I fix this?

Second, I have the following code to provide a "Fiscal Year" for my database.
If I execute it, I get a gray box that says "Compile error: Can't find
project or library". The first line "Private......" is highlighted in yellow
and "Date" is highlighted in blue. How do I fix this?

Private Sub ReCal_Click()
Call LYM.GetFiscalYear(Date)
Fyear = LYM.GetFiscalYear(Date)
FiscalYear = [Lyear] & "-" & ([Lyear] + 1)
CMonth = LYM.GetFiscalMonth(Date)
End Sub