如何在Microsoft Access数据库中创建条件下拉列表？

首先明确：Access数据表视图里的字段下拉无法直接做动态联动，必须通过表单来实现，以下是具体步骤：

1. 准备数据源表 #

先建两个支撑表（如果还没有的话）：

• tbl_Categories：存储主分类（水果/蔬菜），字段：CategoryID（自动编号，主键）、CategoryName（文本，存“水果”“蔬菜”）
• tbl_Items：存储具体子项，字段：ItemID（自动编号，主键）、ItemName（文本，比如“苹果”“白菜”）、CategoryID（数字，关联tbl_Categories的主键）
  你的业务表Table1保持原有字段即可，后续表单会绑定它来存储选择结果。

2. 创建绑定表单并添加控件 #

• 新建一个绑定到Table1的表单（用表单向导快速生成即可）
• 给Column2添加组合框控件：
  • 行来源类型选「表/查询」
  • 行来源设置为：SELECT CategoryID, CategoryName FROM tbl_Categories;
  • 列数设为2，列宽设为0;5（隐藏ID列，只显示分类名称）
  • 绑定列设为1（存储CategoryID而非名称，避免分类名修改后数据混乱）
• 给Column3添加组合框控件，先暂时设置行来源为SELECT ItemID, ItemName FROM tbl_Items;，后续再改动态逻辑。

3. 编写VBA实现联动逻辑 #

打开表单设计视图，右键点击Column2组合框，选择「事件生成器」→「代码生成器」，添加以下代码：

Private Sub Column2_AfterUpdate()
    ' 清空Column3的现有选择
    Me.Column3 = Null
    
    If IsNull(Me.Column2) Then
        ' 如果Column2未选择，禁用Column3并清空下拉选项
        Me.Column3.RowSource = ""
        Me.Column3.Enabled = False
    Else
        ' 根据Column2的选择，动态加载对应子项
        Me.Column3.RowSource = "SELECT ItemID, ItemName FROM tbl_Items WHERE CategoryID = " & Me.Column2 & ";"
        Me.Column3.Enabled = True
        ' 刷新下拉列表
        Me.Column3.Requery
    End If
End Sub

' 表单加载时初始化Column3状态
Private Sub Form_Load()
    Me.Column3.RowSource = ""
    Me.Column3.Enabled = False
End Sub

4. 可选优化 #

• 如果需要在数据表视图里也能看到联动效果，可以把表单设为Table1的默认打开方式，用户打开Table1时自动进入表单视图。
• 若不想用VBA，可将Column3的行来源设为参数查询：SELECT ItemID, ItemName FROM tbl_Items WHERE CategoryID = [Forms]![你的表单名称]![Column2];，但这种方式依赖表单处于打开状态，联动响应不如VBA及时。

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