new_2_prog
Registered User.
- Local time
- Today, 15:28
- 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
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