我有一个文本字段,称为Short DateDateSelector
格式,还有一个包含条目列表的子表单,其中一列包含格式为Short Date 的值。ControlDate
我想要的是:
如果您更改DateSelector
它的值,则应该将列过滤ControlDate
到 now 和 的值之间DateSelector
,或者至少低于DateSelector
.
这是我的代码:
Private Sub DateSelector_AfterUpdate()
On Error GoTo Proc_Error
If Me.DateSelector.Value = "" Then
Me.ListView.Form.filter = ""
Me.ListView.Form.FilterOn = False
Else
MsgBox (Me.DateSelector.Value)
'This is a Check, if the Value is correct.
Me.ListView.Form.filter = "ControlDate >=" & Me.DateSelector.Value
Me.ListView.Form.FilterOn = True
End If
Proc_Exit:
Exit Sub
Proc_Error:
MsgBox "Error " & Err.Number & " when creating Filter:" & vbCrLf & Err.Description
Resume Proc_Exit
End Sub
抛出的错误是3075: Syntax Error
。该MsgBox
显示正确的日期,其中错误消息显示日期错过了最后一个数字(例如:2018年12月5日- > 05.12.201)和我完全不知道为什么。
我很感激任何答案,感谢您的阅读,
_Ninsa
您的过滤器将最终为:
"ControlDate >= 01.12.2018"
Access 无法读取。因此,应用日期值的字符串表达式的正确格式:
"ControlDate >= #" & Format(Me!DateSelector.Value, "yyyy\/mm\/dd") & "#"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句