如何基于主窗体的组合框设置子窗体的Record Source

这个方案完全可行，以下是基于Access的具体实现步骤：

• 配置组合框
  确保主窗体的组合框（假设名为cbo_InspectionType）行来源包含两个核心信息：数据表名称和显示的检查类型名称。比如行来源可设置为：

  SELECT "Table1" AS TableName, "安全检查" AS DisplayName UNION ALL
  SELECT "Table2" AS TableName, "质量检查" AS DisplayName UNION ALL
  SELECT "Table3" AS TableName, "环境检查" AS DisplayName UNION ALL
  SELECT "Table4" AS TableName, "设备检查" AS DisplayName;
  

  接着设置组合框的绑定列为1（对应TableName列），并将该列的列宽设为0cm隐藏，只显示DisplayName列的内容。

• 编写组合框的AfterUpdate事件代码
  打开VBA编辑器（按Alt+F11），找到主窗体frm_Inspections，双击组合框cbo_InspectionType，添加以下代码：

  Private Sub cbo_InspectionType_AfterUpdate()
      Dim targetTable As String
      targetTable = Me.cbo_InspectionType.Value
      
      ' 验证表名有效性
      If Len(targetTable) > 0 Then
          ' 更新子窗体记录源并刷新
          Me.sub_Questions.Form.RecordSource = targetTable
          Me.sub_Questions.Requery
      End If
  End Sub
  

• 补充注意事项

  • 必须保证四个数据表的结构完全一致（字段名、数据类型、字段顺序均匹配），否则子窗体控件会出现数据不匹配错误。
  • 若需要主窗体加载时默认显示某张表，可在主窗体的Load事件中添加类似代码，指定初始记录源。
  • 确认当前数据库用户对四个数据表拥有读取权限，避免运行时出现权限报错。

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