从Access VBA中的表查询日期

Question

我到处寻找，但我找到了任何解决方案。我正在尝试从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" & " #"

同样的错误。

Answer 1

类型不匹配错误是因为您尝试将字符串分配给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