Access日期范围搜索表单VBA运行时错误3075求助

嘿，作为VBA新手遇到这个问题太正常了！运行时错误3075本质是SQL语法错误（操作符丢失），大概率是你构建日期筛选条件时格式不对，或者引号/日期分隔符用错了。咱们一步步来修复：

错误原因分析 #

Access对日期型筛选条件的格式要求很严格：

• 日期值必须用#（井号）包裹，而不是字符串用的单引号
• 日期格式要统一（比如yyyy-mm-dd是最不容易出错的格式，能避免区域设置影响）
• 你的原代码里可能没正确处理空值后的逻辑，或者变量声明不严谨（比如Dim strCriteria, task As String其实只有task是字符串类型，strCriteria是变体类型）

修正后的完整代码 #

假设你的日期字段名为DateIntakeAssigned（记得替换成你表/查询里的实际字段名），修正后的代码如下：

Private Sub Command62_Click() ' Search Button
    Call Search
End Sub

Sub Search()
    Dim strCriteria As String
    Dim fromDate As Variant
    Dim toDate As Variant
    
    ' 先清空之前的筛选，避免叠加
    Me.Filter = ""
    Me.FilterOn = False
    
    ' 获取两个日期控件的值
    fromDate = Me.txtDateIntakeAssignedFrom.Value
    toDate = Me.txtDateIntakeAssignedTo.Value
    
    ' 检查日期是否完整输入
    If IsNull(fromDate) Or IsNull(toDate) Then
        MsgBox "Please enter the date range", vbInformation, "Date Range Required"
        ' 自动聚焦到未填写的控件，提升用户体验
        If IsNull(fromDate) Then
            Me.txtDateIntakeAssignedFrom.SetFocus
        Else
            Me.txtDateIntakeAssignedTo.SetFocus
        End If
        Exit Sub ' 空值时直接退出，避免执行后续错误代码
    End If
    
    ' 构建正确的日期范围筛选条件
    strCriteria = "[DateIntakeAssigned] BETWEEN #" & Format(fromDate, "yyyy-mm-dd") & "# AND #" & Format(toDate, "yyyy-mm-dd") & "#"
    
    ' 应用筛选（两种方式选一种即可）
    ' 方式1：用DoCmd.ApplyFilter
    DoCmd.ApplyFilter , strCriteria
    ' 方式2：用表单的Filter属性（更直观，调试时方便查看）
    ' Me.Filter = strCriteria
    ' Me.FilterOn = True
End Sub

关键修复点说明 #

• 日期格式处理：用Format(fromDate, "yyyy-mm-dd")把控件的日期值转换成Access绝对能识别的格式，避免区域设置（比如中文系统的dd/mm/yyyy）导致的识别错误
• 日期包裹符：用#把日期值包裹起来，这是Access识别日期常量的标准语法
• 变量声明：明确每个变量的类型，避免变体类型带来的隐性错误
• 空值处理：检测到空值后直接退出子过程，不会继续执行后面的筛选代码
• 清空旧筛选：每次搜索前先清空之前的筛选，避免多次搜索后筛选条件叠加

调试小技巧 #

如果还是有问题，可以在构建strCriteria后加一句MsgBox strCriteria，弹出的对话框会显示你构建的条件字符串，检查是否符合SQL语法（比如日期是否被#包裹，字段名是否正确）。

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