Access 2016组合框偶发缺失预期行问题排查求助

环境与结构 #

• 数据库版本：Access 2016
• 核心对象：
  • 两个存在一对多关系的表（Series主表、Episodes子表）
  • 带子窗体的主窗体，主窗体包含未绑定组合框cboSeries，用于筛选控制子窗体显示的记录

异常现象 #

多数场景下功能正常，但偶尔打开数据库时，组合框cboSeries会固定缺失某几行记录，其余时候加载完整。

相关对象细节 #

查询qryShowAll语句 #

SELECT S.SeriesID, S.SeriesName, ((SELECT Count(*) FROM Episodes as E WHERE E.SeriesID = S.SeriesID AND E.Watched = true) & "/" & (SELECT Count(*) FROM Episodes as E1 WHERE E1.SeriesID = S.SeriesID))
FROM Series AS S
ORDER BY S.SeriesName;

关联VBA代码 #

窗体加载事件（Form_Load）

Private Sub Form_Load()

cboSeries.RowSource = "qryShowAll"
cboSeries.Requery

Me.cboSeries.SetFocus
Me.cboSeries = Me.cboSeries.ItemData(0)

' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SeriesID] = " & str(Nz(Me![cboSeries], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

组合框更新后事件（cboSeries_AfterUpdate）

Private Sub cboSeries_AfterUpdate()

' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[SeriesID] = " & str(Nz(Me![cboSeries], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
     
End Sub

组合框cboSeries属性 #

列数为3，列宽分别设为0cm、5cm、2cm，绑定列设为1，行来源类型为“表/查询”

排查步骤建议 #

1. 验证查询本身的稳定性

   • 异常出现时，直接打开qryShowAll查看是否同样缺失记录：若查询也缺行，问题出在查询或底层数据/关系；若查询完整，问题在组合框加载逻辑或控件属性。
   • 替换嵌套子查询为LEFT JOIN写法，避免子查询执行异常：

     SELECT 
         S.SeriesID, 
         S.SeriesName, 
         Nz(COUNT(E.EpisodeID),0) & "/" & Nz(COUNT(E1.EpisodeID),0) AS WatchStatus
     FROM Series AS S
     LEFT JOIN Episodes AS E ON S.SeriesID = E.SeriesID AND E.Watched = True
     LEFT JOIN Episodes AS E1 ON S.SeriesID = E1.SeriesID
     GROUP BY S.SeriesID, S.SeriesName
     ORDER BY S.SeriesName;
     

   • 检查缺失行对应的Series记录，确认关联的Episodes数据是否存在空值、关系损坏等异常。

2. 优化组合框加载逻辑

   • 移除Form_Load中重复的RowSource赋值：若组合框属性已设置行来源为qryShowAll，无需在代码中重复赋值，直接执行Requery即可；若必须用代码赋值，确保Requery前无控件锁定操作。
   • 调整加载顺序，确保窗体完全初始化后再操作组合框：

     Private Sub Form_Load()
         Me.Repaint ' 确保控件初始化完成
         cboSeries.Requery
         If cboSeries.ListCount > 0 Then
             Me.cboSeries.SetFocus
             Me.cboSeries = Me.cboSeries.ItemData(0)
             ' 后续定位逻辑
             Dim rs As Object
             Set rs = Me.Recordset.Clone
             rs.FindFirst "[SeriesID] = " & str(Nz(Me![cboSeries], 0))
             If Not rs.EOF Then Me.Bookmark = rs.Bookmark
         End If
     End Sub
     

   • 异常触发时，通过调试查看cboSeries.ListCount的值，确认是未加载完全还是显示问题。

3. 检查数据库完整性

   • 定期执行压缩修复：通过「文件>信息>压缩和修复数据库」排查数据页损坏问题。
   • 导出所有对象到新空白数据库，测试是否仍出现异常（排除原数据库文件的潜在损坏）。

4. 排查启动干扰因素

   • 检查是否存在启动宏、AutoExec宏或加载项，在窗体加载前修改了qryShowAll结果或锁定了表。
   • 确认异常出现时，是否有其他用户/进程访问数据库，导致表锁定或数据读取异常。

5. 验证组合框属性

   • 确认列宽设置未将行内容完全隐藏（排除视觉误解）。
   • 检查行来源类型是否确实为「表/查询」。
   • 测试将组合框绑定到临时表而非直接绑定查询，观察异常是否复现。

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