如何在ms访问表单中运行不同的数据库查询

Question

我有以下代码来运行已保存的查询并将数据导出到Excel报告。 如果此查询位于不同的数据库中，我应该如何更改代码？

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

我知道我们可以将所有相关表链接到当前数据库，然后在本地运行查询。但我需要这个 因为DB大小问题。

感谢您的回复

干杯

Shabar

Answer 1

以下代码为我工作

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