我到处环顾四周,但是找到了解决方案。我正在尝试从Access VBA中的表查询日期,但是尝试了各种“#”放置之后,我仍然无法使它正常工作。任何帮助将不胜感激。
码:
Dim varStartDate As Date
varStartDate = "SELECT Employees.StartDate FROM Employees WHERE Employees.Name LIKE Manny"
我收到类型不匹配错误。
我也试过
varStartDate = "# " & "SELECT Employees.StartDate FROM Employees WHERE Employees.Name LIKE Manny" & " #"
同样的错误。
类型不匹配错误是因为您试图向分配一个字符串varStartDate
,但由于已对其进行了声明As Date
,因此它不能接受“ SELECT Employees.StartDate FROM ...”。
我想您可以随心所欲DLookup
。
Dim varStartDate As Variant
varStartDate = DLookup("StartDate", "Employees", "[Name]='Manny'")
如果另一个问题是Employees.StartDate
文本而不是日期/时间数据类型,则可能还需要转换从中获取的值DLookup
。
If Not IsNull(varStartDate) Then
varStartDate = CDate(varStartDate)
End If
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句