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

Question

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

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

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

感谢您的回复

干杯

沙巴

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 

干杯

沙巴