如何将窗体新增数据同步至MS Access联结表并插入对应主键？

一、核心思路：用主窗体+子窗体自动关联，无需手动维护联结表 #

多对多关系的本质是通过联结表关联两张表，我们可以通过主窗体展示其中一张表的记录，子窗体绑定联结表与另一张表的查询，新增关联时Access会自动把两张表的主键写入联结表的同一条记录，完全不用手动输入ID。

二、分步操作（以「学生表」×「课程表」→「学生选课表」为例） #

1. 确认表结构与关系 #

• 学生表：主键学生ID（自动编号），其他字段如姓名
• 课程表：主键课程ID（自动编号），其他字段如课程名称
• 联结表「学生选课表」：仅需两个字段——学生ID（数字型，匹配学生表主键）、课程ID（数字型，匹配课程表主键），将这两个字段设为复合主键（防止重复关联同一学生和课程）
• 关系设置：打开「关系」窗口，分别把学生表的学生ID连到学生选课表的学生ID，课程表的课程ID连到学生选课表的课程ID，每条连线都勾选「实施参照完整性」（避免无效ID写入联结表）

截图说明：关系窗口中，三张表的连线清晰显示一对多关系，每条连线属性里勾选了「实施参照完整性」，学生选课表的两个ID字段标有主键标识（钥匙图标）。

2. 创建用于子窗体的查询 #

子窗体需要同时显示联结表的关联关系和另一张表的友好字段（比如课程名称，不用输ID），所以先建查询：

• 新建查询→添加「学生选课表」和「课程表」→通过课程ID关联两张表→勾选学生选课表的学生ID、课程ID，以及课程表的课程名称→保存为「学生选课查询」

截图说明：查询设计视图里，上方是关联好的两张表，下方字段行包含三个字段：学生ID（学生选课表）、课程ID（学生选课表）、课程名称（课程表）。

3. 搭建主窗体+子窗体 #

步骤1：制作主窗体（绑定学生表）

• 新建窗体→选择学生表作为数据源→选「纵栏式」布局→添加学生ID、姓名等字段→保存为「学生主窗体」

步骤2：制作子窗体（绑定学生选课查询）

• 新建窗体→选择「学生选课查询」作为数据源→选「数据表」布局→只保留课程名称字段（学生ID和课程ID可隐藏，会自动填充）→保存为「学生选课子窗体」

步骤3：把子窗体嵌入主窗体

• 打开「学生主窗体」的设计视图→从「控件」面板选「子窗体/子报表」→拖到主窗体下方→向导里选「使用现有的窗体」，选择「学生选课子窗体」→下一步，匹配主窗体的学生ID和子窗体的学生ID→完成

截图说明：主窗体设计视图中，上方是学生的基本信息，下方嵌入的子窗体显示课程名称列；子窗体的属性窗口里，「链接主字段」设为学生ID，「链接子字段」也设为学生ID。

4. 测试自动同步 #

• 打开「学生主窗体」，选择一个已有的学生记录
• 在子窗体的空白行点击课程名称的下拉框（会显示所有课程），选择一门课→Access自动把当前学生的学生ID和所选课程的课程ID写入「学生选课表」的同一条记录
• 新增学生后直接关联课程：在主窗体新增学生（自动生成学生ID），然后在子窗体选课程，同样自动写入联结表

三、要不要用VBA？ #

如果上面的窗体方案能满足需求，完全不需要VBA。但如果有特殊场景（比如新增课程时自动关联指定学生、批量同步），可以用简单的VBA代码实现：

示例：新增课程后自动关联到指定学生 #

在课程窗体的「保存」按钮点击事件里添加这段代码：

Private Sub cmdSave_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim newCourseID As Long
    Dim targetStudentID As Long
    
    ' 获取刚保存的课程ID
    newCourseID = Me!课程ID
    ' 指定要关联的学生ID（比如学生ID=1）
    targetStudentID = 1
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("学生选课表")
    
    rs.AddNew
    rs!学生ID = targetStudentID
    rs!课程ID = newCourseID
    rs.Update
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    
    MsgBox "课程已自动关联到指定学生"
End Sub

四、确保主键写入同一条记录的关键 #

• 主窗体和子窗体的「链接主字段」「链接子字段」必须匹配（比如都是学生ID），这样子窗体新增记录时会自动带入主窗体的当前记录主键
• 联结表设置复合主键（学生ID+课程ID），避免重复关联
• 表关系勾选「实施参照完整性」，防止写入不存在的主键值（比如学生表里没有的学生ID）

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