MS Access 中存在空白记录时 VBA 数据类型不匹配

Question

如果在包含日期的特定字段中没有空白记录，我有以下 vba 查询可以正常工作。当特定记录中存在空白时会发生错误。

我要做什么？：从我的数据库中提取一个日期范围内的计数。开始日期和结束日期是格式为“MM/DD/YYYY”的单元格引用，包含日期的日期库字段格式为日期/时间，“短日期”。

如果我的字段列不包含任何空白，则该查询有效：

Dim startdate As Date
Dim enddate As Date
strSql = "SELECT Count(*) FROM tablename WHERE datevalue(Date_field_name) >= " & Format(startdate, "\#mm-dd-yyyy\#") & "AND datevalue(Date_field_name) <= " & Format(enddate, "\#mm-dd-yyyy\#")

我尝试添加 IS NOT NULL 但这不起作用：(

strSql = "SELECT Count(*) FROM tablename WHERE ANOTHER_Field_Name IS NOT NULL AND datevalue(Date_field_name) >= " & Format(startdate, "\#mm-dd-yyyy\#") & "AND datevalue(Date_field_name) <= " & Format(enddate, "\#mm-dd-yyyy\#")

请帮帮我！！这让我发疯了。

编辑完整代码：

Public Sub counter()
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String
Dim myCounter As Variant
Dim startdate As Date
Dim enddate As Date
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
    "Data Source=Data.mdb"
strSql = "SELECT Count(*) FROM tablename WHERE datevalue(Date_field_name) >= " & Format(startdate, "\#mm-dd-yyyy\#") & "AND datevalue(Date_field_name) <= " & Format(enddate, "\#mm-dd-yyyy\#")
cn.Open strConnection
'Set rs = cn.Execute(strSql)

While (rs.EOF = False)
If (Not IsNull(rs(Sent_To_Tech_Date).Value)) Then
myCounter = myCounter + 1
End If
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Answer 1

我通常看到这种情况是使用 NZ 函数处理的，因此该字段永远不会留空。所以是这样的：

strSql = "SELECT Count(*) FROM tablename WHERE datevalue(Nz(Date_field_name,"01-01-1969")) >= " & Format(startdate, "\#mm-dd-yyyy\#") & "AND datevalue(Nz(Date_field_name,"01-01-1969")) <= " & Format(enddate, "\#mm-dd-yyyy\#")

这也偏离了您只是显示一些精简代码的假设，因为您声明了变量然后运行查询，而无需将这些变量更改为日期。

“01-01-1969”日期应该适用于您要查找的内容，但如果没有相应调整。此外，我的手绘 SQL 并不令人惊奇，因此某些语法可能有点偏离。

代码更正：

strSql = "SELECT Count(*) FROM tablename WHERE datevalue(IIf(IsNull(Date_field_name),"01-01-1969", Date_Field_Name)) >= " & Format(startdate, "\#mm-dd-yyyy\#") & " AND datevalue(IIf(IsNull(Date_field_name),"01-01-1969", Date_Field_Name)) <= " & Format(enddate, "\#mm-dd-yyyy\#")

如果这不符合您的喜好，请看这里：http://www.w3schools.com/sql/sql_isnull.asp 还有其他处理空值的替代方法。

第三轮，我认为 Null 的想法是一个红鲱鱼，很确定它有很多不需要的格式，并且“格式”部分实际上并没有将它设置为日期，所以它不会做比较恰当。试试看：

strSql = "SELECT Count(*) FROM tablename WHERE Date_field_name >= #" & startdate & "# AND Date_Field_Name <= #" & enddate & “#”

如果您的结束日期和开始日期将采用非日期格式，请使用

strSql = "SELECT Count(*) FROM tablename WHERE Date_field_name >= #" & Format(startdate,"\#mm-dd-yyyy\#") & "# AND Date_Field_Name <= #" & Format(enddate,"\#mm-dd-yyyy\#") & “#”

Answer 2

在查询字符串中很可能有一种正确的方法来执行此操作，但我还没有遇到过。对于这种情况，我分两步做：

我将运行标准 SELECT 查询来返回感兴趣的日期范围内的所有记录，而不是运行 Count 查询。 然后我将遍历记录集中的所有项目，丢弃任何为空的项目，并计算其余项目。

While (myRecordSet.EOF = False)
  If (Not IsNull(myRecordSet(Date_field_name).Value)) Then
    myCounter = myCounter + 1
  End If
  myRecordSet.MoveNext
Wend

在我看来，这不是执行此操作的最佳方法，但我过去曾使用过它并且我知道它有效。