MS Access中新增客户时自动关联Contact主键至Customers表

子窗体引用问题分析 #

你之前的SetProperty宏失败，核心原因是控件引用格式错误：SetProperty的Control Name字段只需填写子窗体内控件的直接名称（即sub_Contact_ID），而非完整的窗体路径。此外，宏的触发时机也很关键——必须等到Contact表的主键（ID_Contact）生成后再执行，比如绑定到主窗体的AfterInsert事件。但更重要的是：你完全不需要写这个宏，Access自带的窗体链接功能就能自动完成关联。

推荐：利用窗体链接字段实现自动关联 #

既然表关系是Contact.ID_Contact → Customers.Contact_ID（一个联系方式对应多个客户），直接用Access的原生功能就能解决，步骤如下：

1. 主窗体绑定Contact表，放入所有Contact字段；
2. 子窗体绑定Customers表，放入所有Customers字段；
3. 选中子窗体控件（sub_info），打开属性窗口：
   • 设置链接主字段为ID_Contact（主窗体中Contact的主键字段名）；
   • 设置链接子字段为Contact_ID（子窗体中Customers的外键字段名）；
4. 将子窗体的Contact_ID控件设为隐藏或锁定，避免手动修改。

效果 #

• 新增带全新联系方式的客户时：先在主窗体录入Contact信息并保存，切换到子窗体录入Customer信息，Access会自动将主窗体的ID_Contact值填入子窗体的Contact_ID字段；
• 给已有联系方式的客户新增记录：只需在主窗体找到对应Contact，直接在子窗体添加Customer即可自动关联。

无绑定窗体方案修正（备选） #

如果坚持用无绑定窗体，禁止用MAX(ID)获取主键（多用户环境下会拿到他人刚插入的ID），改用@@IDENTITY函数获取当前会话刚插入的自增主键，宏步骤如下：

1. RunSQL：执行Contact插入语句，示例：

   INSERT INTO Contact (Phone, Email, Address) VALUES ([Forms]![UnboundForm]![txtPhone], [Forms]![UnboundForm]![txtEmail], [Forms]![UnboundForm]![txtAddress])
   

2. SetTempVar：创建临时变量存储新主键，名称填NewContactID，表达式填=@@IDENTITY；
3. RunSQL：执行Customers插入语句，示例：

   INSERT INTO Customers (Name, Contact_ID) VALUES ([Forms]![UnboundForm]![txtCustomerName], [TempVars]![NewContactID])
   

4. RemoveTempVar：清除临时变量NewContactID。

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