基于多对多关系实现Access表单作者选择下拉菜单的问题

首先建议先优化表关联逻辑：将VolumeWithAuthor表的Volume字段改为关联Volume表的主键ID，而非Volume名称字段，可避免音卷重名导致的关联错误。

步骤1：添加组合框（下拉菜单）控件 #

打开绑定Volume表的主表单的设计视图，按以下操作添加下拉控件：

• 在表单合适位置（如关联作者子表单上方）插入「组合框」控件，弹出向导后选择我要让组合框在其他表或查询中查找这些值
• 数据源选择Author表，下一步同时勾选AuthID、AuthName两个字段，可设置按AuthName升序排列
• 调整列宽时将AuthID列的宽度拉至0，隐藏主键列仅展示作者名称，完成后将组合框命名为cbo_SelectAuthor

步骤2：编写新增关联记录的事件代码 #

右键组合框选择「事件生成器」→「代码生成器」，进入VBA编辑界面，在组合框的AfterUpdate（选择后触发）事件中写入以下代码：

Private Sub cbo_SelectAuthor_AfterUpdate()
    ' 校验是否选中作者、当前主表单音卷记录已保存
    If Not IsNull(Me.cbo_SelectAuthor) And Not IsNull(Me.ID) Then
        Dim rs As DAO.Recordset
        ' 校验是否已存在重复关联
        Dim existCount As Integer
        ' 若VolumeWithAuthor的Volume字段存的是音卷ID，将下方Me.Volume改为Me.ID
        existCount = DCount("*", "VolumeWithAuthor", "Volume='" & Replace(Me.Volume, "'", "''") & "' And AuthID=" & Me.cbo_SelectAuthor)
        If existCount > 0 Then
            MsgBox "该作者已关联当前音卷，无需重复添加"
            Me.cbo_SelectAuthor = Null
            Exit Sub
        End If
        ' 新增关联记录
        Set rs = CurrentDb.OpenRecordset("VolumeWithAuthor", dbOpenDynaset)
        rs.AddNew
        ' 若VolumeWithAuthor的Volume字段存的是音卷ID，将下方Me.Volume改为Me.ID
        rs!Volume = Me.Volume
        rs!AuthID = Me.cbo_SelectAuthor
        rs.Update
        rs.Close
        Set rs = Nothing
        ' 刷新子表单展示新添加的作者，将下方[子表单控件名]替换为你自己的子表单控件名称
        Me![子表单控件名].Requery
        ' 清空下拉框方便下次选择
        Me.cbo_SelectAuthor = Null
    End If
End Sub

常见问题处理 #

如果运行时提示DAO相关报错，可在VBA编辑器顶部菜单栏选择「工具」→「引用」，勾选Microsoft DAO 3.6 Object Library（或更高版本的DAO库）后保存即可。

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