Access VBA修改表数据未立即生效，表单重查询无更新问题咨询

问题根因 #

这类不同表单操作延迟不一致的问题，绝大多数是拆分库场景下Jet引擎的本地读写缓存未及时同步、绑定表结构/表单配置异常导致的，可按以下步骤逐一排查解决：

解决步骤 #

• 优化绑定表结构
  检查慢表单对应的表（你案例中的tblCards）是否设置主键，确认你查询语句中用到的排序、筛选字段（如CardID、Active）已添加索引。无索引的表在跨库操作时需要全表扫描同步状态，会明显放大同步延迟。
• 修改数据写入代码，强制刷新缓存
  你现有的写入代码在执行rs.Update后直接释放对象，拆分库场景下本地缓存可能还没同步到后端数据库，后续的requery拉取的还是旧缓存数据。新增强制刷新缓存的指令，修改后代码如下：

  Dim db As Database
  Dim rs As Recordset
  Set db = CurrentDb
  Set rs = db.OpenRecordset("SELECT * FROM tblCards ORDER BY CardID", dbOpenDynaset)
  rs.AddNew
  rs!CardID = mintCardID
  rs!CardType = Nz(txtType, "")
  rs!CardNumber = Nz(txtCardNumber, "")
  rs!CardAccount = Nz(txtAccount, "")
  rs!Active = True
  rs.Update
  ' 新增两行强制完成写入同步
  DBEngine.Idle dbRefreshCache
  rs.Requery
  Set rs = Nothing
  Set db = Nothing
  

• 调整列表框刷新逻辑
  不要直接调用列表框的Requery方法，先强制刷新缓存再重新赋值行数据源，完全跳过本地缓存拉取最新数据，示例代码如下：

  ' 替换原有Me.列表框名.Requery
  DBEngine.Idle dbRefreshCache
  Dim sourceStr As String
  sourceStr = Me.列表框名.RowSource
  Me.列表框名.RowSource = ""
  Me.列表框名.RowSource = sourceStr
  

• 排查表单及链接表配置
  1. 打开前端库的链接表管理器，重新链接一次慢表单对应的表，清除旧的链接缓存
  2. 检查慢表单的「记录集类型」属性，确认设置为动态集，不要设置为快照（快照默认不会同步后端更新）
  3. 检查表单的「记录锁定」属性，设置为不锁定，避免锁机制导致的同步延迟

内容的提问来源于stack exchange，提问作者Matt Kelly