2013-03-19 46 views
0

我有以下代碼來運行保存的查詢並將數據導出到excel報表。 如果此查詢位於不同的數據庫中,應該如何更改代碼?如何在ms訪問中運行不同的數據庫查詢表格

DoCmd.Requery Q_Check_Mismatches 
DoCmd.RunSavedImportExport "Export-Q_Check_Mismatches" 

我知道我們可以將所有相關錶鏈接到當前數據庫,然後在本地運行查詢。但由於DB大小問題,我需要這個 。

感謝您迴應

乾杯

Shabar

+0

HAV e您認爲「壓縮」數據庫以減小其大小?這可能會解決問題 – Katana24 2013-03-19 15:20:22

+0

是的Katana24,但我仍然在此設置後,因爲我計劃訪問不同的數據庫時運行查詢 – shabar 2013-03-20 05:19:32

+0

看看這個:http://answers.microsoft.com/en-us/office/forum/officeversion_other-access/run-query-in-another-database/fba90dc9-606c-4938-b926-14c8bd3bc019 – Katana24 2013-03-20 15:21:23

回答

0

下面的代碼爲我工作

Function QueryRun(strDBPath As String, strImportExport As String) 

Dim objAccess As Access.Application 

Set objAccess = CreateObject("Access.Application") 
objAccess.OpenCurrentDatabase 

strDBPath objAccess.DoCmd.RunSavedImportExport strImportExport 
objAccess.CloseCurrentDatabase 
objAccess.Quit 
Set objAccess = Nothing 
End Function 

乾杯

Shabar

相關問題