VB.NET通过日期范围筛选打开Access报表时参数弹窗问题求助

我看你遇到的问题是明明已经从DateTimePicker取到了日期，但打开报表时还是弹出参数框，这大概率是日期格式不被Access识别或者字段名匹配出了问题，咱们一步步来解决：

最常见的原因：日期格式不兼容 #

Access的SQL查询对日期格式要求很严格，如果你直接用DateTimePicker的Text属性，它输出的是系统本地格式（比如dd/MM/yyyy），但Access只认美式格式（MM/dd/yyyy）或者ISO标准格式（yyyy-MM-dd）。一旦格式不对，Access就会把你的日期当成未定义的参数，所以弹框要你输入。

修改代码：强制转换为Access能识别的日期格式 #

别用Text属性，改用DateTimePicker的Value属性，然后转换成ISO格式字符串，这样绝对不会出错：

Try
    Dim acc_App As Object
    acc_App = CreateObject("Access.Application")
    acc_App.OpenCurrentDatabase(programpath, True)
    
    ' 转换日期为ISO格式（yyyy-MM-dd），Access完美识别
    Dim startDateStr As String = datePicker.Value.ToString("yyyy-MM-dd")
    Dim endDateStr As String = DateTimePicker1.Value.ToString("yyyy-MM-dd")
    
    ' 构建筛选条件，注意日期要用#包裹
    Dim strCriteria As String = $"Start_Date >= #{startDateStr}# And End_Date < #{endDateStr}#"
    lblPrueba.Text = strCriteria
    
    acc_App.Visible = True
    acc_App.DoCmd.OpenReport("HorasTrabajadas", 2, WhereCondition:=strCriteria)
Catch Ex As Exception
    MessageBox.Show(Ex.Message)
End Try

其他需要排查的点 #

• 确认字段名完全匹配：检查报表的数据源（表/查询）里的字段名是不是Start_Date和End_Date，有没有拼写错误、大小写不一致（虽然Access一般不敏感，但偶尔会有坑），或者字段名带空格（如果有的话要加方括号，比如[Start Date]）。
• 检查报表的记录源：确保报表本身的记录源没有用到同名的参数，或者记录源的查询已经包含了这两个字段，不然Access找不到字段也会弹参数框。
• 边界逻辑优化：你用的是End_Date < #...#，如果想包含结束日期当天的记录，应该改成End_Date <= #{endDateStr}#，或者把结束日期加一天再用<，比如End_Date < #{DateTimePicker1.Value.AddDays(1).ToString("yyyy-MM-dd")}#，这样逻辑更准确。

按上面的方法改完，应该就不会再弹参数框了，试试吧！

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