Can not find Active X component issue, Version Problem?

[MikeAuz1979]

Hi,

I've devloped an Access 97 application on my PC (Which has Access 97, Access 2000, Access Version Checker [A program that allows multiple installs of access], the rest of office 2000 and MDAC 2.7

The app works fine on my pc and it works fine on a PC that has Office 97, Access 97 and MDAC 2.7 but I'm getting the error 'Can not find active X component' when it's opened on a pc that has Access97 with office 2000 (With no Access Version checker program.) and MDAC 2.7

I have a startup module as follows: (It's breaking on the db.name line)

Code Start-----
Public Function Startup()
Dim db As DAO.Database
Set db = Application.currentdb

DoCmd.SetWarnings False

'Check file loc
DBPathName = "G:\Bsprice\REPORTS\NSWConsumptionHistory\NSWConsumptionAnalyser.mde"
DBPath = "G:\Bsprice\REPORTS\NSWCON~1\NSWConsumptionAnalyser.mde"

If db.Name <> DBPath Then
MsgBox ("Sorry but to preserve version control this database must be run from the location: " & DBPathName)
Application.Quit
End If
DoCmd.OpenForm "frmConMDQ"
Code End-----

NB: The difference between the displayed DBPathName and the programatical DBPath is due to the db for some reason returning it's path using the ~ symbol.

My references are:
VBA
Access 8
DAO 3.6

I checked that the affected PC had the same as me and I also tried running with DAO 3.5 but to no avail.

Thanks heaps for any help
Mike

 

[CautionMP]

MikeAuz1979,
Here are a couple links that might help.
The Access web Bugs: Common Functions like CurrentDB, str$, Mid$ fail to work

AccessMVP.com Access Reference Problems

CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)