Access 2016：跨窗体传递组合框选中数据筛选下拉菜单

搞定这个需求完全不用为每个部门单独建窗体，我给你几个实用的方案，都是Access里常用的窗体数据传递+筛选方法，结合你的场景（部门筛选员工）来详细说明：

方法1：使用OpenArgs参数（最推荐，轻量无副作用） #

这是Access中传递窗体间数据的标准方式，代码简洁且不会留下全局变量或临时表的副作用：

1. 在部门选择窗体的打开按钮事件中传递数据
   假设你用列表框lst_部门选择来选部门，点击按钮cmd_打开员工窗体打开目标窗体，在按钮的点击事件里写：

   Private Sub cmd_打开员工窗体_Click()
       ' 获取选中的部门ID（推荐用ID而非名称，避免重名问题）
       Dim selectedDeptID As Long
       selectedDeptID = Me.lst_部门选择.Value
       
       ' 打开员工窗体，通过OpenArgs传递部门ID
       DoCmd.OpenForm "frm_员工列表", OpenArgs:=selectedDeptID
   End Sub
   

2. 在员工窗体加载时接收参数并筛选下拉菜单
   在目标窗体frm_员工列表的Load事件中，用传递过来的参数更新下拉菜单cbo_员工的行来源：

   Private Sub Form_Load()
       If Not IsNull(Me.OpenArgs) Then
           ' 拼接筛选SQL（如果是文本类型的部门名称，要加单引号：'" & Me.OpenArgs & "'）
           Me.cbo_员工.RowSource = "SELECT 员工ID, 员工姓名 FROM 员工表 WHERE 部门ID = " & Me.OpenArgs & " ORDER BY 员工姓名"
           Me.cbo_员工.Requery ' 强制刷新下拉内容
       End If
   End Sub
   

方法2：使用全局变量（适合多窗体共享数据场景） #

如果你的项目里多个窗体都需要用到这个部门筛选值，全局变量会更方便：

1. 定义全局变量
   新建一个标准模块（比如mod_GlobalVars），在里面定义全局变量：

   Public g_selectedDeptID As Long ' 用Long类型存储ID更高效
   

2. 在部门选择窗体中赋值
   在列表框的AfterUpdate事件里，把选中的部门ID赋值给全局变量：

   Private Sub lst_部门选择_AfterUpdate()
       g_selectedDeptID = Me.lst_部门选择.Value
   End Sub
   

3. 在员工窗体中使用全局变量筛选
   在frm_员工列表的Load事件中，用全局变量来更新下拉菜单：

   Private Sub Form_Load()
       If g_selectedDeptID > 0 Then ' 假设部门ID从1开始，避免旧值干扰
           Me.cbo_员工.RowSource = "SELECT 员工ID, 员工姓名 FROM 员工表 WHERE 部门ID = " & g_selectedDeptID & " ORDER BY 员工姓名"
           Me.cbo_员工.Requery
       End If
   End Sub
   

   小提醒：记得在部门选择窗体关闭时重置全局变量，避免下次打开窗体用旧值：

   Private Sub Form_Close()
       g_selectedDeptID = 0
   End Sub
   

方法3：使用临时表（适合复杂筛选或需保留筛选状态） #

如果你的筛选条件比较复杂，或者需要在关闭窗体后仍保留筛选数据，临时表是不错的选择：

1. 创建临时表
   新建一个表tbl_临时筛选，只需要一个字段部门ID（Long类型）。

2. 在部门选择窗体中更新临时表
   在打开员工窗体的按钮事件里，先清空临时表再插入选中的部门ID：

   Private Sub cmd_打开员工窗体_Click()
       ' 清空临时表旧数据
       CurrentDb.Execute "DELETE * FROM tbl_临时筛选"
       ' 插入选中的部门ID
       CurrentDb.Execute "INSERT INTO tbl_临时筛选 (部门ID) VALUES (" & Me.lst_部门选择.Value & ")"
       ' 打开员工窗体
       DoCmd.OpenForm "frm_员工列表"
   End Sub
   

3. 在员工窗体中关联临时表筛选
   在frm_员工列表的Load事件里，直接用临时表作为筛选条件：

   Private Sub Form_Load()
       Me.cbo_员工.RowSource = "SELECT 员工ID, 员工姓名 FROM 员工表 INNER JOIN tbl_临时筛选 ON 员工表.部门ID = tbl_临时筛选.部门ID ORDER BY 员工姓名"
       Me.cbo_员工.Requery
   End Sub
   

额外优化技巧 #

• 避免SQL注入风险：虽然Access中风险低，但推荐用参数查询代替SQL拼接，更安全：

  Dim qdf As QueryDef
  Set qdf = CurrentDb.CreateQueryDef("", "SELECT 员工ID, 员工姓名 FROM 员工表 WHERE 部门ID = [@DeptID]")
  qdf.Parameters("@DeptID") = Me.OpenArgs
  Me.cbo_员工.RowSource = qdf.SQL
  Set qdf = Nothing
  

• 实时更新已打开的窗体：如果员工窗体已经打开，想要在部门选择变化时实时更新下拉菜单，可以加个辅助函数：

  ' 部门选择列表框的AfterUpdate事件
  Private Sub lst_部门选择_AfterUpdate()
      If IsOpen("frm_员工列表") Then
          Forms!frm_员工列表.cbo_员工.RowSource = "SELECT 员工ID, 员工姓名 FROM 员工表 WHERE 部门ID = " & Me.lst_部门选择.Value & " ORDER BY 员工姓名"
          Forms!frm_员工列表.cbo_员工.Requery
      End If
  End Sub
  
  ' 判断窗体是否打开的辅助函数
  Function IsOpen(formName As String) As Boolean
      IsOpen = (SysCmd(acSysCmdGetObjectState, acForm, formName) <> 0)
  End Function
  

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