Access窗体列表框自动填充绑定文本框报错求助

错误核心原因 #

这个报错的本质是：你试图向外部连接的“一”侧的空字段写入值，而Access默认禁止更新外部连接中“一”侧的无主记录。即便你没手动创建查询，也可能是以下隐性因素导致：

1. 窗体的RecordSource并非直接绑定tblReferrals，而是基于表关系自动生成的带外部连接的查询；
2. tblReferrals与tblStudies存在一对多关系，窗体记录集默认包含了外部连接逻辑；
3. 绑定的文本框字段是关联tblStudies的外键，但列表框返回的值在tblStudies中不存在，触发了引用完整性约束。

分步解决方法 #

1. 确认窗体记录源

打开frmReferrals设计视图，查看属性表的数据→记录源：

• 如果显示的是某个查询，打开该查询设计，检查是否存在左/右连接（外部连接），将记录源改为直接绑定tblReferrals；
• 若已经是tblReferrals，直接进入下一步。

2. 检查表关系约束

打开数据库工具→关系，查看tblReferrals与tblStudies的关联：

• 如果hrpo_number是tblReferrals的外键（关联tblStudies主键），确保列表框返回的Column(0)值在tblStudies中存在；
• 若勾选了强制引用完整性，必须保证外键值对应主表的有效记录，否则会触发写入失败。

3. 修改VBA代码，完善记录状态与空值处理

原代码未考虑新记录初始化和空值情况，调整后的代码如下：

Private Sub List_HRPO_Click()
    ' 确保当前记录可编辑（新记录时先初始化）
    If Me.NewRecord Then
        Me.Recordset.AddNew
    End If
    
    ' 用Nz函数处理空值，避免向必填字段写入Null
    Me.hrpo_number = Nz(Me.List_HRPO.Column(0), "")
    Me.hrpo_short_title = Nz(Me.List_HRPO.Column(1), "")
    Me.ccir_number = Nz(Me.List_HRPO.Column(2), "")
    
    ' 自动保存当前记录（可选，按需开启）
    If Me.Dirty Then
        Me.Dirty = False
    End If
End Sub

4. 验证文本框绑定属性

确认每个文本框的控件来源确实指向tblReferrals的对应字段（比如hrpo_number的控件来源为[hrpo_number]），而非tblStudies的字段。

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