Access 2016拆分窗体更新txtPMT闪退踢人问题求助

一、后端与表链接基础排查 #

• 检查后端表的主键与索引：确保txtPMT所在的后端表有唯一主键，且txtPMT字段或关联字段设置合理索引，避免多用户更新时触发锁表冲突。无主键的表在多用户环境下极易引发编辑崩溃。
• 重新生成前端表链接：删除现有链接表，通过Access的外部数据>导入并链接>链接到表功能重新建立链接，避免旧链接文件损坏。可使用以下VBA批量刷新链接（运行一次即可）：

  Sub RefreshLinkedTables()
      Dim tdf As TableDef
      Dim strBackendPath As String
      strBackendPath = "\\共享驱动器路径\后端文件名.accdb" '替换为你的后端实际路径
      
      For Each tdf In CurrentDb.TableDefs
          If tdf.Connect <> "" And Left(tdf.Connect, 10) = ";DATABASE=" Then
              tdf.Connect = ";DATABASE=" & strBackendPath
              tdf.RefreshLink
          End If
      Next tdf
      Set tdf = Nothing
      MsgBox "链接刷新完成"
  End Sub
  

• 确认共享驱动器权限：确保所有用户对后端文件及所在文件夹拥有读写/修改权限，避免因权限不足触发更新崩溃。

二、拆分窗体事件与属性调整 #

• 移除On Change事件的Me.Requery：On Change会在文本框每输入一个字符时触发，频繁重查询会加剧多用户锁冲突，直接删除该事件代码。改用After Update事件处理必要的局部刷新：

  Private Sub txtPMT_AfterUpdate()
      '仅刷新需要更新的关联控件，而非整个窗体
      Me.txt关联控件名称.Requery 
      '或直接强制保存当前记录，避免未提交数据丢失
      Me.Dirty = False
  End Sub
  

• 调整窗体锁定属性：打开窗体属性表，将记录锁定设置为编辑记录（缩小锁冲突范围），数据输入设置为否（允许编辑现有记录）。
• 拦截数据表区域的回车默认行为：将窗体Key Preview属性设为是，添加KeyDown事件代码，把回车改为移动焦点，避免触发默认的提交+跳转引发冲突：

  Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
      If KeyCode = vbKeyReturn Then
          KeyCode = 0 '取消默认回车行为
          DoCmd.GoToControl "下一个控件名称" '替换为实际需要跳转的控件名
      End If
  End Sub
  

三、前端文件维护 #

• 分发编译后的ACCDE前端：将前端保存为.accde格式分发给用户，避免VBA代码编译错误引发崩溃，同时提升运行稳定性。
• 定期压缩修复前端：指导用户定期通过文件>压缩和修复数据库维护本地前端文件，避免文件长期使用后损坏。

四、其他排查点 #

• 修复后端文件：将后端文件复制到本地，用Access打开并执行压缩和修复，再放回共享驱动器，排查是否因后端文件损坏导致编辑崩溃。
• 单用户环境测试：先让单个用户在本地打开后端+前端测试，确认无问题后再逐步增加用户，排查是否为多用户并发冲突导致的问题。

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