基于另一组合框变更组合框RowSource的Access表单开发问题

你想要实现的是：当combo1选择房间号后，先筛选frmDatasheet里的记录，再根据筛选后的结果更新combo2的可选租户代码对吧？咱们先梳理下现有代码里的几个问题，再给出修正后的版本：

原代码的主要问题 #

• 变量声明语法错误：比如Dim Qry1 As String As String重复了As String，这会导致编译报错
• 拼写错误：多处把combo写成了cobo，还有RowSourse应该是RowSource（少了一个字母c）
• SQL逻辑错误：
  • 直接在SQL里写Room = combo1.Value，Access无法识别VBA控件的变量值，需要用控件引用或者字符串拼接
  • 尝试引用[Qry3]作为查询，但Qry3只是VBA里的字符串变量，不是已保存的查询对象，不能直接在SQL中调用
• With块使用不当：With Me.Combo1块里操作的是子窗体和combo2，完全没必要用With块，反而容易混淆

修正后的完整代码 #

Private Sub Form_Load()
    Dim Qry1 As String
    Dim Qry2 As String
    
    Qry1 = "SELECT DISTINCT Room FROM tblBuilding WHERE Room IS NOT NULL"
    Qry2 = "SELECT DISTINCT TenancyCode FROM tblBuilding WHERE TenancyCode IS NOT NULL"
    
    ' 设置combo1的行源并刷新
    Me.combo1.RowSource = Qry1
    Me.combo1.Requery
    
    ' 设置combo2的初始行源并刷新
    Me.combo2.RowSource = Qry2
    Me.combo2.Requery
End Sub

Private Sub combo1_AfterUpdate()
    Dim filterRoom As String
    Dim datasheetSQL As String
    Dim combo2SQL As String
    
    ' 处理combo1为空的情况，避免SQL报错
    If IsNull(Me.combo1.Value) Then
        ' 清空筛选，恢复初始状态
        datasheetSQL = "SELECT * FROM tblBuilding ORDER BY ItemName ASC"
        combo2SQL = "SELECT DISTINCT TenancyCode FROM tblBuilding WHERE TenancyCode IS NOT NULL"
    Else
        ' 转义单引号，避免房间号含特殊字符导致SQL语法错误
        filterRoom = Replace(Me.combo1.Value, "'", "''")
        ' 生成子窗体的筛选SQL
        datasheetSQL = "SELECT * FROM tblBuilding WHERE Room = '" & filterRoom & "' ORDER BY ItemName ASC"
        ' 直接基于combo1的筛选条件生成combo2的行源（比依赖子窗体更高效）
        combo2SQL = "SELECT DISTINCT TenancyCode FROM tblBuilding WHERE Room = '" & filterRoom & "' AND TenancyCode IS NOT NULL"
    End If
    
    ' 更新子窗体的记录源并刷新
    Me.NavigationSubform.Form.frmDatasheet.Form.RecordSource = datasheetSQL
    Me.NavigationSubform.Form.frmDatasheet.Form.Requery
    
    ' 更新combo2的行源并刷新
    Me.combo2.RowSource = combo2SQL
    Me.combo2.Requery
End Sub

关键修正说明 #

1. 语法修正：去掉重复的变量声明后缀，统一拼写错误，保证代码能正常编译
2. SQL安全处理：用Replace转义单引号，避免因为房间号包含特殊字符导致SQL执行失败
3. 逻辑优化：直接基于combo1的选择条件生成combo2的行源，比依赖子窗体记录源更高效，也避免了引用不存在的查询对象
4. 空值兼容：增加combo1清空时的逻辑，恢复初始状态，提升用户体验
5. 强制刷新：每次设置行源后调用Requery，确保组合框和子窗体立即同步最新数据

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