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
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