A Microsoft Office (Excel, Word) forum. OfficeFrustration

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.

Go Back   Home » OfficeFrustration forum » Microsoft Access » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

Automation with Access 2003



 
 
Thread Tools Display Modes
  #1  
Old July 9th, 2009, 08:37 AM posted to microsoft.public.access
Maver1ck666
external usenet poster
 
Posts: 28
Default 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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:29 PM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.