MS Access：将明细表关联至主表并创建带选项卡的表单

一、正确设置表间关系 #

• 先统一所有表的ID字段类型：Item表的ID设为自动编号（主键），TShirt、Scarf这类子表的ID设为长整型，同时将其设为主键+外键。
• 打开Access的「关系」窗口，添加所有涉及的表。
• 从Item表的ID字段拖到对应子表的ID字段，弹出关系设置框后：
  • 勾选「实施参照完整性」
  • 取消「级联更新相关字段」和「级联删除相关字段」（每个产品仅对应一个子表记录，级联操作易引发误操作）
  • 点击「创建」，重复此步骤建立Item与其他子表的关系。
• 额外校验：Access不会自动阻止同一ID出现在多个子表，需加逻辑限制。比如在子表表单的BeforeInsert事件中写入VBA代码，检查当前ID是否已存在于其他子表：

Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim rs As Recordset
    ' 检查围巾表是否已有该ID
    Set rs = CurrentDb.OpenRecordset("SELECT ID FROM Scarf WHERE ID = " & Me.ID)
    If Not rs.EOF Then
        MsgBox "这个产品ID已经在围巾表里了，不能重复添加", vbExclamation
        Cancel = True
    End If
    ' 其他子表同理，追加检查逻辑
    rs.Close
    Set rs = Nothing
End Sub

二、选项卡控件添加子表单实现联动 #

• 先为每个子表创建单独表单，比如frm_TShirt、frm_Scarf，将表单的「数据输入」属性设为「是」，删除、编辑权限按需配置。
• 创建主表单frm_Item，绑定到Item表，添加ID、Price、Item code等字段控件。
• 在主表单中插入「选项卡控件」，例如设置两个选项卡，标题改为「T恤」「围巾」。
• 将子表单拖入对应选项卡页面：
  • 选中选项卡页面，右键选择「子窗体/子报表」，选择对应子表单。
  • 设置子表单的「链接主字段」为ID，「链接子字段」为ID，确保主表单ID自动同步到子表单，保证子表记录与主表ID一致。
• 优化操作体验：在主表单的Current事件中添加逻辑，切换选项卡时自动检查当前ID是否存在对应子表记录，无记录则自动新增并填充ID：

Private Sub Form_Current()
    ' 切换到T恤选项卡时的逻辑
    If Me.TabCtl0.Value = 0 Then
        Dim rsT As Recordset
        Set rsT = CurrentDb.OpenRecordset("SELECT ID FROM TShirt WHERE ID = " & Me.ID)
        If rsT.EOF Then
            Me.frm_TShirt.Form.Recordset.AddNew
            Me.frm_TShirt.Form.ID = Me.ID
        End If
        rsT.Close
        Set rsT = Nothing
    End If
    ' 围巾选项卡逻辑照搬上述代码，替换表名即可
End Sub

• 增加操作限制：仅当主表单ID已保存（主产品信息已存入），子表单才允许输入。在子表单的Form_Load事件中添加判断：

Private Sub Form_Load()
    If IsNull(Parent.ID) Then
        Me.AllowAdditions = False
        MsgBox "先保存主产品信息再填明细", vbInformation
    Else
        Me.AllowAdditions = True
    End If
End Sub

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