MS Access：子窗体首次录入数据时自动创建父窗体新记录故障排查

问题诊断 #

你的代码未生效主要有以下几个原因：

• 父窗体引用错误：子窗体中直接用Me.FrmSubGrantsAgreements无法正确引用父窗体，应该使用Me.Parent来获取当前子窗体所属的父窗体对象。
• 事件绑定位置不对：代码绑定在单个控件GRAgrNbr的Dirty事件上，只有当用户修改这个控件时才会触发；如果用户录入的是子窗体其他字段，事件不会执行，应该绑定到子窗体的窗体级Dirty事件。
• 缺少外键关联步骤：父记录创建后，子窗体的外键字段（关联父窗体GrAgrID的字段）没有自动绑定新生成的父ID，导致子记录无法关联到新父记录，看起来像没生效。
• 记录存在性判断逻辑可能不准确：如果GrAgrID是自动编号类型，父窗体新建未保存时GrAgrID为Null，但如果是手动输入主键，仅判断IsNull(!GrAgrID)可能不够，结合NewRecord属性判断更准确。

可行解决方案 #

修正后的代码（绑定到子窗体FrmSubGAFndngSrcPrtnrs的窗体Dirty事件） #

Private Sub Form_Dirty(Cancel As Integer)
    Dim parentForm As Form
    Set parentForm = Me.Parent ' 正确引用父窗体

    ' 判断父窗体是否为新建未保存状态，或无有效主键
    If parentForm.NewRecord Or IsNull(parentForm!GrAgrID) Then
        ' 给父窗体必填字段赋值（根据实际表结构调整，必须覆盖所有必填项）
        parentForm!Description = "Auto-created from subform"
        ' 示例：如果父表有其他必填字段，比如GRAgrNbr，需补充赋值
        ' parentForm!GRAgrNbr = "AUTO-" & Format(Now(), "YYYYMMDDHHMMSS")

        ' 保存父窗体记录，生成有效GrAgrID
        parentForm.Dirty = False

        ' 将子窗体的外键字段绑定到新生成的父主键
        ' 替换为你子窗体中关联父GrAgrID的实际字段名
        Me!ParentGrAgrID = parentForm!GrAgrID
    End If
End Sub

关键注意事项 #

• 父表主键类型：推荐将GrAgrID设为自动编号主键，这样保存父记录时会自动生成唯一ID，避免手动输入冲突。
• 必填字段覆盖：父表中所有必填字段都要在代码中赋值，否则父记录无法保存，操作会失败。
• 外键字段设置：子窗体中关联父GrAgrID的外键字段需确保可绑定（即使隐藏也没关系），这样才能自动赋值新的父ID。
• 测试验证：打开父窗体（处于新建状态），直接在子窗体录入任意数据，检查父窗体是否自动生成记录，且子记录的外键是否正确关联。

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