MS Access窗体展示联系人主联系方式并支持编辑新增的实现方法

现有视图无法显示无主号码联系人的原因 #

你写的视图问题出在WHERE B.IsPrimary = 1的位置：
左连接执行时，会先保留左表（联系人表）的全部记录，右表（电话表）匹配不上的行所有字段返回NULL。如果把IsPrimary=1写在WHERE子句中，会在连接完成后过滤结果集——所有没有主电话的联系人，对应B.IsPrimary为NULL，不满足等于1的条件，会被直接筛掉，最终效果和内连接完全一致。

第一步：修正查询，实现所有联系人正常展示 #

Access中多表左连接需要按层级加括号，同时把主联系方式的判断条件移到JOIN的ON子句中，同时补上主邮箱的关联，修正后的SQL如下：

CREATE VIEW v_DE_CustomerPeople
AS
SELECT 
    A.PersonID,
    A.CustomerID,
    A.NationalityID,
    A.GenderID,
    A.CommunicationLanguageID,
    A.FirstName,
    A.LastName,
    A.TitleBefore,
    A.TitleAfter,
    A.JobTitle,
    B.PhoneNumber,
    C.EmailAddress,
    A.IsOnMailingList,
    A.Notes
FROM (tbl1CustomerPeople A
LEFT JOIN tbl1PhoneNumbers B 
    ON A.PersonID = B.PersonID AND B.IsPrimary = True)
LEFT JOIN tblEmails C 
    ON A.PersonID = C.PersonID AND C.IsPrimary = True
;

这个查询会返回所有联系人记录，没有绑定主电话/主邮箱的联系人，对应字段自动显示为空值。注意Access中BIT类型的布尔值用True/False判断比写=1/=0兼容性更好。

重要提示：这个多表左连接生成的视图不支持直接更新电话、邮箱表的字段，Access对多表连接查询的更新规则限制很多，空值场景下直接绑定字段编辑大概率出现写入失败或数据错位，不要依赖查询本身的可更新性实现录入逻辑。另外Access桌面版（.accdb/.mdb）没有SQL Server那样的DML触发器，不需要在这个方向上耗费时间。

第二步：实现空字段输入自动新增主联系方式 #

直接通过子窗体控件的事件实现即可，不需要额外复杂组件，逻辑稳定可控：

1. 联系人子窗体的记录源绑定上面建好的v_DE_CustomerPeople查询，在子窗体中添加两个文本框，分别命名为txtPrimaryPhone、txtPrimaryEmail，控件来源分别绑定查询中的PhoneNumber、EmailAddress字段。
2. 分别给两个文本框编写AfterUpdate事件，处理新增、更新、删除主联系方式的逻辑，同时保证每个联系人同一类型的联系方式有且仅有一个主记录。

以主电话文本框为例，VBA事件代码如下：

Private Sub txtPrimaryPhone_AfterUpdate()
    Dim lngPersonID As Long
    Dim strInputVal As String
    
    lngPersonID = Nz(Me!PersonID, 0)
    If lngPersonID = 0 Then Exit Sub ' 未保存的新联系人不处理
    strInputVal = Nz(Me!txtPrimaryPhone, "")
    
    ' 先清除当前联系人所有电话的主标记，避免出现多个主联系方式
    CurrentDb.Execute "UPDATE tbl1PhoneNumbers SET IsPrimary = False WHERE PersonID = " & lngPersonID, dbFailOnError
    
    If strInputVal = "" Then
        ' 输入为空时，删除已有的主电话记录
        CurrentDb.Execute "DELETE FROM tbl1PhoneNumbers WHERE PersonID = " & lngPersonID & " AND IsPrimary = True", dbFailOnError
    ElseIf IsNull(Me!PhoneNumber) Then
        ' 原记录无主电话，插入新的主电话记录
        CurrentDb.Execute "INSERT INTO tbl1PhoneNumbers (PersonID, PhoneNumber, IsPrimary) " & _
            "VALUES (" & lngPersonID & ", '" & Replace(strInputVal, "'", "''") & "', True)", dbFailOnError
    Else
        ' 已有主电话，直接更新内容
        CurrentDb.Execute "UPDATE tbl1PhoneNumbers SET PhoneNumber = '" & Replace(strInputVal, "'", "''") & "' " & _
            "WHERE PersonID = " & lngPersonID & " AND IsPrimary = True", dbFailOnError
    End If
    
    ' 刷新窗体加载最新数据
    Me.Requery
End Sub

主邮箱文本框的事件逻辑完全一致，只需要把表名替换为tblEmails，字段名替换为EmailAddress即可。

数据一致性保障建议 #

• 拼接SQL时必须把输入内容中的单引号替换为两个单引号，避免输入内容带单引号时触发SQL语法错误。
• 所有CurrentDb.Execute语句带上dbFailOnError参数，遇到写入错误会直接抛出提示，不会静默失败产生脏数据。
• 在表层面加唯一约束：分别给tbl1PhoneNumbers、tblEmails创建复合索引，包含PersonID和IsPrimary两个字段，设置索引的「忽略Nulls」属性为「是」，从底层阻止一个联系人出现多个主联系方式的异常情况。

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