Vba 如果复选框字段未选中且日期字段从现在起少于一年，则计算记录数

我不确定我的方法是否正确，但我想计算tbl1上字段为复选框字段的记录，这些记录未被选中，或者字段的检查日期比今天的日期早365天

Private Sub Form_Current ()
Dim checkCounter As integer
checkCounter = DCount("[checkBox]", "tbl1", "[checkBox] = 
FALSE AND Today(Date) - [checkDate]>365)
lblCount.Caption = checkCounter
End Sub

还是有更好的解决方案？

我会使用：

checkCounter=DCount（“*”，“tbl1”，“[checkBox]=FALSE和DateDiff（'d'，[checkDate]，Date（））>365”）

非常有效，谢谢。我一直在想，DateDiff（）函数中的'd'为什么没有那么多人描述“d”呢？我尝试了

checkCounter=DCount（“*”、“tbl1”、“[checkBox]=FALSE”和DateDiff（“d”、[checkDate]，Date）>365”）

，但没有成功。你的代码马上就工作了！这是因为过滤器字符串中有

'd'

。使用

“d”

（双引号）会把事情搞砸。这是有道理的。干杯