Module works on desktop issues on server

new_2_prog

Registered User.
Local time
Today, 13:55
Joined
Aug 4, 2008
Messages
58
This module worked fine until recently and now cannot figure out why.
I mode the whole database onto my desktop and execute the module (becuase it deletes tables, imports new ones out of MAS200 an accounting program, then runs queries). Does what its suppose to but I put it back on the server and run the module it tells me it can't find the last table it deleted but shows that it wants to execute the import.
I have created created a new database and imported all tables, queries etc thinking it was corrupt, compact and repaired both old and new.
I comment out the last deleteobject command then it tells me can't find the last table but the debug break is at transferdatabase line.
Any ideas would be great.
Thanks!!

Function UpDateData()
Dim stDocName As String
DoCmd.SetWarnings False

On Error Resume Next
DoCmd.DeleteObject acTable, "JC2_JobCostDetail"
DoCmd.DeleteObject acTable, "ARD_SalespersonMasterfile"
DoCmd.DeleteObject acTable, "AR1_CustomerMaster"
DoCmd.DeleteObject acTable, "ARN_InvHistoryHeader"
DoCmd.DeleteObject acTable, "JC1_JobMaster"
DoCmd.DeleteObject acTable, "JC3_TransactionDetail"
DoCmd.DeleteObject acTable, "PR1_EmployeeMaster"
DoCmd.DeleteObject acTable, "TC1_TimecardMastefile"
DoCmd.DeleteObject acTable, "JC3"
DoCmd.DeleteObject acTable, "JobCost-Detail"
DoCmd.DeleteObject acTable, "JobCost-Summary"
DoCmd.DeleteObject acTable, "AP4_OpenInvoice"
DoCmd.DeleteObject acTable, "AP1_VendorMaster"


On Error GoTo 0

DoCmd.TransferDatabase acImport, "ODBC", "ODBC;DSN=SOTAMAS90;UID=SPC|KMS;PWD=BLUE;DBQ=C:\WINDOWS\DESKTOP;CODEPAGE=1252;;TABLE=JC2_JobCostDetail", acTable, "JC2_JobCostDetail", "JC2_JobCostDetail", False
 
Sounds to me like you should be using linked tables so they are always up to date.
Then you would not have to repeatedly delete and reimport them.
 

Users who are viewing this thread

Back
Top Bottom