Access VBA：通过组合框筛选无数据源表单及图表问题

核心问题分析 #

你的表单未绑定数据源，Me.Filter和Me.FilterOn属性完全不起作用——这两个属性仅对绑定了RecordSource的表单生效。另外原代码里用单引号包裹日期也是错误的，Access中日期类型需要用#符号包裹。

修正方案 #

无数据源表单的筛选逻辑需要直接更新每个控件的数据源（图表、文本框、列表），而非依赖表单级别的Filter。以下是调整后的代码示例：

Private Sub cmbFindCustomer_AfterUpdate()
    Dim selectedDate As Date
    Dim chartSQL As String
    Dim listSQL As String
    
    ' 校验选中的日期合法性
    If IsDate(Me.cmbFindCustomer) Then
        selectedDate = Me.cmbFindCustomer
        ' 格式化日期为通用格式，避免区域设置导致的识别错误
        Dim formattedDate As String
        formattedDate = Format(selectedDate, "yyyy-mm-dd")
        
        ' 更新图表控件的数据源（替换成你的图表控件名和实际数据表/查询）
        chartSQL = "SELECT * FROM 目标数据表 WHERE [Date] = #" & formattedDate & "#"
        Me.ChartControlName.RowSource = chartSQL
        Me.ChartControlName.Requery
        
        ' 更新文本框（示例用DLookup获取指定字段值，替换成你的字段和表名）
        Me.TextBoxControlName.Value = DLookup("目标字段名", "目标数据表", "[Date] = #" & formattedDate & "#")
        
        ' 更新列表控件的数据源（替换成你的列表控件名和显示字段）
        listSQL = "SELECT 显示字段1, 显示字段2 FROM 目标数据表 WHERE [Date] = #" & formattedDate & "#"
        Me.ListControlName.RowSource = listSQL
        Me.ListControlName.Requery
        
        ' 若Main表单是绑定数据源的表单，重新查询刷新数据
        If IsLoaded("Main") Then
            Forms!Main.Requery
            Forms!Main.Repaint
        End If
    Else
        MsgBox "请选择有效的日期", vbExclamation
    End If
End Sub

关键注意事项 #

• 所有控件（图表、列表）的数据源必须基于实际的数据表/查询，更新RowSource后必须调用Requery加载新数据。
• 日期格式统一用yyyy-mm-dd，避免因系统区域设置不同导致的日期识别错误。
• 用IsDate校验组合框值，防止非法输入引发运行错误。

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