我能够使用VBA成功查询我的共享点列表。但是,添加日期条件时出现数据类型不匹配错误。 我正在尝试查询所有大于或等于当年的日期。
共享点列表中有一个日期列,格式为“短日期”,下面是VBA代码。
感谢帮助我使用正确语法的人。
我尝试了以下不起作用的查询:
'r = DateSerial(Year(Date), 1, 1)
sSQL = "SELECT [fullname] FROM [listname] WHERE [Holiday Date] >= '" & Format(DateValue(r), "m/d/yyy") & "'"
sSQL = "SELECT [fullname] FROM [listname] WHERE [Holiday Date] >= '" & DateValue("1/1/2019")") & "'"
sSQL = "SELECT [fullname] FROM [listname] WHERE [Holiday Date] >= '" & DateSerial(Year(Date), 1, 1) & "'"
答案 0 :(得分:0)
这应该可以工作:)
sSQL = "SELECT [fullname] FROM [listname] WHERE [Holiday Date] >="&"1/1/"& Year(Now);