MS Access窗体录入数据无法写入关联表的报错问题求助

你的判断完全准确，该报错的核心触发逻辑是：点击「Add New」按钮时，Client_Details_frm上新建/编辑的客户记录还未写入Client_Details_tbl，此时提取的ClientID还没有对应的主键记录存于主表，后续保存Property_Details_tbl记录时，外键校验找不到匹配的ClientID值，就会抛出键值不匹配的错误。
下面是可直接落地的VBA实现方案：

操作路径：打开Client_Details_frm的设计视图，选中「Add New」按钮，右键选择「事件生成器」-「代码生成器」，进入VBA编辑界面后，删除原有向导生成的代码，粘贴以下代码：

Private Sub AddNewBtn_Click()
    ' 注意：请把上面的AddNewBtn替换为你按钮的实际控件名称
    On Error GoTo ErrorHandler
    ' 强制保存当前客户窗体的未提交数据
    If Me.Dirty Then
        Me.Dirty = False
    End If
    ' 校验客户记录是否保存成功：主键ClientID只有数据落表后才会生成值
    If IsNull(Me!ClientID) Then
        MsgBox "请先完善客户必填信息后再新增物业记录", vbExclamation
        Exit Sub
    End If
    ' 以新增模式打开物业窗体，通过OpenArgs参数传递当前ClientID
    DoCmd.OpenForm _
        FormName:="Property_Details_frm", _
        DataMode:=acFormAdd,
        WindowMode:=acDialog,
        OpenArgs:=Me!ClientID
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox "打开物业窗体出错：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

操作路径：打开Property_Details_frm的设计视图，点击窗体左上角的窗体选择器（行列交叉处的小方块）选中整个窗体，在属性表的「事件」选项卡找到「加载」事件，选择「事件过程」后点击右侧三个点进入VBA编辑界面，粘贴以下代码：

Private Sub Form_Load()
    ' 仅在新增记录模式下自动填充关联客户ID，避免修改已有记录时覆盖原值
    If Me.NewRecord And Not IsNull(Me.OpenArgs) Then
        Me!CID = Me.OpenArgs
    End If
End Sub

操作路径：在Property_Details_frm设计视图选中「Save」按钮，同第一步进入代码编辑界面，删除原有向导代码，粘贴以下代码：

Private Sub SaveBtn_Click()
    ' 注意：请把上面的SaveBtn替换为你按钮的实际控件名称
    On Error GoTo ErrorHandler
    ' 基础必填项校验，可按需新增其他物业字段的校验规则
    If IsNull(Me!CID) Then
        MsgBox "关联客户信息缺失，无法保存", vbExclamation
        Me!CID.SetFocus
        Exit Sub
    End If
    ' 强制保存当前物业记录
    If Me.Dirty Then
        Me.Dirty = False
    End If
    ' 保存成功后自动关闭当前窗体，不需要该逻辑可直接注释掉下一行
    DoCmd.Close acForm, Me.Name
ExitSub:
    Exit Sub
ErrorHandler:
    MsgBox "保存物业记录出错：" & Err.Description, vbCritical
    Resume ExitSub
End Sub

• 代码中所有控件名、字段名需要和你数据库内的实际命名完全匹配，比如如果你的「Add New」按钮实际命名为cmdAddNew，需要把代码里对应的过程名、控件引用同步修改
• 建议提前在Access关系面板中为Client_Details_tbl和Property_Details_tbl建立一对多关系，关联字段为Client_Details_tbl.ClientID（主键）和Property_Details_tbl.CID（外键），勾选「实施参照完整性」，从底层避免无效外键数据写入
• 不要直接在Property_Details_frm的CID控件默认值中写跨窗体引用公式，该方式在父窗体未保存、父窗体被意外关闭时会返回空值，通过OpenArgs参数传值的稳定性更高

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