I used the following code to transfer the data from Access database into an Excel file, but when I want to make another transfer like this imediatly (with the same procedure) I received an error message which says that the table tabWork doesn't exist.
Can you tell me how can I do a real Refresh of the Table or Query?
Set dbWork = Workspaces(0).OpenDatabase(C:\Access.mdb", False, False, ";pwd=")
dbWork.Execute "SELECT tabDoctors.DocTown AS Town,tabDoctors.DocWPlace AS [Work Place], tabDoctors.DocCode AS Code, tabDoctors.DocFName AS [First Name], tabDoctors.DocLName AS [Last Name], tabDoctors.DocStreet AS Street, tabDoctors.DocBuilding AS Building, tabDoctors.DocWPhone AS [Work Phone], tabDoctors.DocHPhone AS [Home Phone], tabDoctors.DocMPhone AS [Mobil Phone], tabDoctors.DocPosition AS Position, qryTotalCtg.Cat, qryTotalSpc.Spec" _
& " INTO tabWork" _
& " FROM ((tabReps INNER JOIN tabDoctors ON tabReps.RepCode = tabDoctors.RepCode) INNER JOIN qryTotalCtg ON tabDoctors.DocCode = qryTotalCtg.DocCode) INNER JOIN qryTotalSpc ON tabDoctors.DocCode = qryTotalSpc.DocCode" _
& " Where (((tabReps.RepCode) =" & RepCodePr & ") And ((tabReps.RepActuality) = True)) ORDER BY tabDoctors.DocTown, tabDoctors.DocWplace, tabDoctors.DocFName, tabDoctors.DocLName"
DoCmd.OutputTo acOutputTable, "tabWork", "Microsoft Excel (*.xls)", "C:\Temp\Lista Doctori Rep_" & txtRepCodePr & ".xls"
dbWork.Execute "DROP TABLE tabWork"
dbWork.TableDefs.Refresh
[This message has been edited by Dark Hacker (edited 07-05-1999).]
