Access运行VBA函数报参数不足错误，仅压缩修复后单会话生效

• Access前端文件的查询元数据缓存存在隐性损坏：多年使用的Access文件会积累未被常规压缩修复完全清理的元数据错误，会话启动时加载的查询参数定义错误，所以首次运行报错。手动压缩修复会重建当前会话的查询缓存，所以临时生效，但关闭后下次启动缓存又会加载错误的持久化元数据，自动压缩是关闭时执行，无法修复下次启动时的缓存加载问题。
• 代码中复用同一个ADODB.Command对象产生参数串扰：你全程复用了同一个cmd实例执行多个不同的参数查询，前序查询的参数没有被清空，后续调用cmd.Parameters.Refresh时，受损的缓存无法正确覆盖残留参数，导致实际传入的参数数量和查询预期不匹配。
• Office版本更新的兼容性影响：近期的Office安全更新调整了ADODB调用Access保存查询的参数校验逻辑，老代码的参数处理不严谨的问题在新版本下被触发报错。

按优先级从高到低排序：

1. 修复代码中的参数处理逻辑（最稳妥，永久生效） #

针对报错的qryAccSelectRealData查询部分 #

不要混合使用Parameters.Refresh和手动追加参数的模式，要么完全自动读取参数，要么完全手动定义，避免缓存影响。修改对应代码段：

'Get real Data (from WIL) dataset
cmd.CommandText = "qryAccSelectRealData"
cmd.CommandType = adCmdStoredProc
' 先清空所有残留参数
cmd.Parameters.DeleteAll
' 删掉原来的Parameters.Refresh，完全手动创建参数避免缓存影响
cmd.Parameters.Append cmd.CreateParameter("LabID", adChar, adParamInput, 10, LabID)
cmd.Parameters.Append cmd.CreateParameter("OrderID", adBigInt, adParamInput, 10, OrderID)

rstRealData.Open cmd, , adOpenDynamic, adLockOptimistic

全局优化 #

所有切换查询的位置都先执行cmd.Parameters.DeleteAll清空参数，或者为每个查询单独新建ADODB.Command实例，彻底避免参数串扰。

2. 彻底清理前端文件的隐性损坏 #

新建空白Access数据库，将原数据库的所有对象（表、查询、窗体、模块、宏等）全部导入新库，替换所有员工使用的旧前端文件。这个操作会彻底清除旧文件积累的元数据损坏，比单次压缩修复的清理更彻底。

3. 临时兜底方案 #

如果暂时无法修改代码，可以在数据库的AutoExec启动宏中添加启动时自动编译所有模块、刷新查询缓存的逻辑，避免员工手动操作。

内容的提问来源于stack exchange，提问作者Michael Bates