请教如何用日期作为条件，打开对应报表并筛选出对应具体日期时间的记录

5574916

表内订单日期记录的是具体日期时间，而我想只需要输入日期打开报表就筛选出对应日期的记录，请问下面的代码要怎么改呢？






Private Sub Command3_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = ChrW(25253) & ChrW(-30616) & ChrW(49)
    stLinkCriteria = "[订单日期]=" & "#" & Me![日期条件] & "#"
   
    DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

End Sub

roych

用DateSerial代替Me![日期条件]试试看？
1、DateSerial(Year(Me.日期条件),Month(Me.日期条件),Day(Me.日期条件))
2、DateValue貌似也可以，而且似乎更简单些。DateValue(Me.日期条件)。

5574916

roych 发表于 2013-3-11 15:09
用DateSerial代替Me![日期条件]试试看？
1、DateSerial(Year(Me.日期条件),Month(Me.日期条件),Day(Me.日期 ...

解决了，用DateValue这个方法很方便！！谢谢roych指点！