Automation with Access 2003

M

Maver1ck666

I have a central Access 2003 database which calls macros from other Access
2003 to update those particular systems. The code is:

stAppName = "C:\Program Files\Microsoft Office\Office\MSACCESS.EXE
M:\CSDSystems\Databases97\Downloads97\Downloads97.mdb /compact"
Call Shell(stAppName, 1)

Call Shell("M:\CSDSystems\Databases03\Downloads03\Dls\isaclienttransfer.bat")
Call Shell("M:\CSDSystems\Databases03\Downloads03\Dls\isaagentstransfer.bat")
Call Shell("M:\CSDSystems\Databases03\Downloads03\Dls\doisaholdings.bat")

Call UpdateErrorLogs
Call UpdateFPC

Call pause10

DoCmd.RunMacro "McrWeeklyDownloads_SHARED"

Call pause10

DoCmd.RunMacro "McrWeeklyDownloads_FUND"

Call pause10

DoCmd.RunMacro "McrWeeklyDownloads_PEP"

Call pause90

Call
Shell("M:\CSDSystems\Databases03\Downloads03\Dls\isaholdingstransfer.bat")

Call pause20

DoCmd.RunMacro "McrWeeklyDownloads_ISA"

The problem I have is in the first line, it opens an Access 97 database and
compacts it then when it goes on to call the updateErrorLogs, I get a run
time 429 error as it's trying to open an Access 2003 in the last instance of
Access opened (which would be 97). The code for the updateErrorLogs is:

Dim objACC As New Access.Application

Set objACC = Nothing

Set objACC = GetObject("M:\CSDSystems\Excel\Error
Logs\Central\CentralErrorLog.mdb")
objACC.DoCmd.RunMacro ("McrAppendAllDataToMaster")
objACC.Quit

Set objACC = Nothing

Is there a way for force the updateErrorLogs to open in Access 2003 please?

Kind regards,
Mav
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top