Microsoft Access主窗体加载/更新时自动创建子窗体记录

核心思路 #

放弃子窗体Enter事件的复杂判断逻辑，直接在主窗体保存完成后，检查三个子数据表中是否存在当前主记录的关联条目，不存在则自动插入一条带ApplicantID（关联主窗体ID）的记录，复选框默认设为False（匹配用户未使用该子窗体的场景）。

具体VBA代码 #

在主窗体frmUpload的AfterUpdate事件中添加以下代码（主窗体保存后，自动编号的ID才会生成并可用，避免外键为空问题）：

Private Sub Form_AfterUpdate()
    Dim mainID As Long
    mainID = Me.ID ' 获取当前主窗体的主键ID
    
    ' 检查tblIdentifiers，无关联记录则插入
    If DCount("*", "tblIdentifiers", "ApplicantID = " & mainID) = 0 Then
        CurrentDb.Execute "INSERT INTO tblIdentifiers (ApplicantID) VALUES (" & mainID & ")"
    End If
    
    ' 检查tblFIdentifiers，无关联记录则插入
    If DCount("*", "tblFIdentifiers", "ApplicantID = " & mainID) = 0 Then
        CurrentDb.Execute "INSERT INTO tblFIdentifiers (ApplicantID) VALUES (" & mainID & ")"
    End If
    
    ' 检查tblOther，无关联记录则插入
    If DCount("*", "tblOther", "ApplicantID = " & mainID) = 0 Then
        CurrentDb.Execute "INSERT INTO tblOther (ApplicantID) VALUES (" & mainID & ")"
    End If
End Sub

代码说明 #

• DCount("*", 表名, 条件)：统计指定表中符合条件的记录数，这里用来判断是否已有当前主窗体ID的关联记录。
• CurrentDb.Execute SQL语句：直接操作数据表执行插入，比用DoCmd切换控件的方式更稳定、不易出错。
• 若子表复选框需要默认值（比如False），可直接在数据表设计中给复选框字段设置默认值，插入记录时会自动继承该值，无需在SQL中额外指定。

纯SQL替代方案 #

如果不想用VBA，可创建以下查询，在主窗体保存后手动执行（自动化程度不如VBA，但适合简单场景）：

-- 给tblIdentifiers补全记录
INSERT INTO tblIdentifiers (ApplicantID)
SELECT frmUpload.ID
FROM frmUpload
WHERE frmUpload.ID NOT IN (SELECT ApplicantID FROM tblIdentifiers);

-- 给tblFIdentifiers补全记录
INSERT INTO tblFIdentifiers (ApplicantID)
SELECT frmUpload.ID
FROM frmUpload
WHERE frmUpload.ID NOT IN (SELECT ApplicantID FROM tblFIdentifiers);

-- 给tblOther补全记录
INSERT INTO tblOther (ApplicantID)
SELECT frmUpload.ID
FROM frmUpload
WHERE frmUpload.ID NOT IN (SELECT ApplicantID FROM tblOther);

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