If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Automation with Access 2003
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\i saclienttransfer.bat") Call Shell("M:\CSDSystems\Databases03\Downloads03\Dls\i saagentstransfer.bat") Call Shell("M:\CSDSystems\Databases03\Downloads03\Dls\d oisaholdings.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\i saholdingstransfer.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 |
Thread Tools | |
Display Modes | |
|
|