Access VBA调用关联链接表的本地查询报3078错误如何解决？

问题根因 #

你遇到的3078错误核心是CurrentDb.OpenRecordset和Access查询视图的执行逻辑不一致，和你猜测的两点都相关，但架构本身没问题，查询保存在前端是合理的，无需迁移到后端（如果迁移到后端，反而会因为后端数据库不识别DATEVALUE、HOUR这类Access内置函数导致查询失效）。
Access查询视图执行SQL时，会自动将语句中引用的本地保存查询展开为子查询，用Access本地引擎完整解析所有依赖（包括前端的本地查询、链接表），所以可以正常运行。而CurrentDb.OpenRecordset默认不会做这个展开，会直接把包含查询名的SQL语句发送给后端数据库解析，后端找不到你前端本地存储的HourlyDistinctMonitoringDates查询，就会抛出找不到表/查询的错误。 #

解决方案（按优先级排序） #

方案1：调用本地QueryDef对象执行（最稳定） #

直接读取前端保存的查询对象，追加筛选条件后打开记录集，完全规避解析问题：

Dim qdf As QueryDef
' 读取前端保存的查询
Set qdf = CurrentDb.QueryDefs("HourlyDistinctMonitoringDates")
' 追加筛选条件
qdf.SQL = qdf.SQL & " WHERE jobinstrumentid=" & rstJobInstruments!id
' 执行返回记录集
Set rstDistinctDatesHours = qdf.OpenRecordset()
' 用完释放对象
Set qdf = Nothing

方案2：显式指定执行参数强制本地解析 #

如果一定要用拼接SQL的写法，给OpenRecordset添加参数，强制用Access本地引擎执行语句：

distinctDaysAndHours = "SELECT * FROM HourlyDistinctMonitoringDates WHERE jobinstrumentid=" & rstJobInstruments!id
' 加dbOpenDynaset和dbSeeChanges参数，强制本地解析
Set rstDistinctDatesHours = CurrentDb.OpenRecordset(distinctDaysAndHours, dbOpenDynaset, dbSeeChanges)

方案3：合并查询逻辑（兜底方案） #

如果前两种方案都不生效，直接把HourlyDistinctMonitoringDates的定义合并到VBA的SQL语句中，避免嵌套引用本地查询：

distinctDaysAndHours = "SELECT DISTINCT JobInstrumentId, DATEVALUE(decibellog.readingdate) AS MonitoringDate, HOUR(decibellog.readingtime) AS MonitoringHour " & _
"FROM jobinstrumentimport INNER JOIN decibellog ON jobinstrumentimport.id = decibellog.jobinstrumentimportid " & _
"WHERE jobinstrumentid=" & rstJobInstruments!id
Set rstDistinctDatesHours = CurrentDb.OpenRecordset(distinctDaysAndHours)

内容的提问来源于stack exchange，提问作者Doug Kimzey