MS Access日期在VBA SQL查询中不起作用

Question

MS Access中有一个包含3列的表：

1. ID（主键）
2. 日期（日期/时间）
3. 训练否（短文）

我设计了一个表格，可以从组合框中选择日期，根据所选日期，应显示相应的列车。

问题是，查询在10以上的日期（如2015年11月1日）但在10以下（如9/1/2015）时工作正常，它会出错：“没有当前记录”。该记录在表格中，但不显示。

查询为：SELECT DISTINCT [Train No] FROM Issue WHERE [Date] = #" & dt & "#"

dt是从组合框中选择的日期。

Answer 1

试试这个：

Dim DateSelected As Date
Dim DateString   As String

DateSelected = DateValue(Me!YourComboBox.Value)
DateString = Format(DateSelected, "yyyy\/mm\/dd")

SELECT DISTINCT [Train No] FROM Issue WHERE [Date] = #" & DateString & "#"