在使用日期过滤器时,需要判断输入的日期是否为空,以避免空引用异常的发生。可以使用IsNull函数来判断输入的日期是否为空,如果为空则不应用日期过滤器。示例代码如下:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM MyTable", Conn
Dim startDate As Variant
Dim endDate As Variant
If Not IsNull(startDate) And Not IsNull(endDate) Then
rs.Filter = "DateField >= #" & startDate & "# AND DateField <= #" & endDate & "#"
End If
Set rs = Nothing
在上述代码中,使用了IsNull函数来判断输入的日期是否为空,如果不为空则应用日期过滤器。这样可以避免空引用异常的发生。