MS Access 2007：莫名出现“数据库引擎无法找到表中记录”错误

这个问题我太熟了！Access在处理子窗体无匹配记录的时候经常会弹出这个恼人的提示，咱们用几个靠谱的方法解决它：

方案1：用带空记录占位的查询作为子窗体数据源 #

这是最稳妥的方法之一，通过查询确保即使没有对应子记录，也能返回一条空行给子窗体：

1. 新建一个查询，编写如下SQL（记得替换成你实际的字段名和表名）：

   -- 先取现有匹配的子记录
   SELECT TableB.*
   FROM TableB
   WHERE TableB.[TableA外键字段] = Forms![Form Y]![TableA主键字段]
   -- 如果没有匹配记录，返回一条空记录
   UNION ALL
   SELECT 
       [TableA外键字段] AS [对应外键字段名],
       Null AS [TableB字段1],
       Null AS [TableB字段2],
       Null AS [TableB字段3]  -- 把TableB的所有字段都列出来，用Null填充
   FROM (SELECT 1 AS Dummy) AS Temp
   WHERE NOT EXISTS (
       SELECT * FROM TableB 
       WHERE TableB.[TableA外键字段] = Forms![Form Y]![TableA主键字段]
   )
   

2. 把子窗体的数据源设置为这个查询，这样无论主记录有没有子记录，子窗体都能拿到有效的记录集，不会触发找不到记录的错误。

方案2：用VBA动态控制子窗体记录集 #

通过代码判断是否存在子记录，动态给子窗体绑定合适的记录集：

1. 打开Form Y的代码编辑器，在Form_Current事件里添加如下代码（替换实际名称）：

   Private Sub Form_Current()
       Dim childRS As Recordset
       Dim db As Database
       
       Set db = CurrentDb
       ' 查询当前主记录对应的子记录
       Set childRS = db.OpenRecordset( _
           "SELECT * FROM TableB WHERE [TableA外键字段] = " & Me![TableA主键字段] _
       )
       
       If childRS.EOF And childRS.BOF Then
           ' 没有子记录，绑定一个空的记录集给子窗体
           Set childRS = db.CreateRecordset("SELECT * FROM TableB WHERE 1=0")
           Me![子窗体控件名称].Form.Recordset = childRS
       Else
           ' 有子记录，绑定正常的记录集
           Me![子窗体控件名称].Form.RecordSource = _
               "SELECT * FROM TableB WHERE [TableA外键字段] = " & Me![TableA主键字段]
       End If
       
       childRS.Close
       Set childRS = Nothing
       Set db = Nothing
   End Sub
   

这个方法的好处是灵活，能根据实际情况切换子窗体的显示状态。

方案3：调整子窗体的「数据输入」属性（简易版） #

如果你的需求只是允许用户新增子记录，不需要查看现有记录（或者可以配合代码切换），可以试试这个快速方法：

1. 打开子窗体的设计视图，找到数据输入属性，设置为「是」。这样子窗体默认会显示一条空记录，用于新增数据，不会报错。
2. 但如果需要在有子记录时显示现有数据，就需要在Form Y的Form_Current事件里加代码切换这个属性：

   Private Sub Form_Current()
       ' 检查是否存在子记录
       Dim hasChildRecords As Boolean
       hasChildRecords = DCount("*", "TableB", "[TableA外键字段] = " & Me![TableA主键字段]) > 0
       
       ' 有子记录时显示现有数据，没有时显示空行用于新增
       Me![子窗体控件名称].Form.DataEntry = Not hasChildRecords
   End Sub
   

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