在Access中使用VBA如何使用Dcount计算包含此公式的记录数-DatePart（“y”，Now）？

我想浏览一下表格中的记录，看看有多少已经包含了今天的儒略日期。我希望它是一个通配符搜索，因为我的项目编号将在这个格式“16-2101”。朱利安期在中间（210）。 我的代码是：

Private Sub AddProjectNum_Click()

    TwoDigitYear = Mid$(CStr(DatePart("yyyy", Now)), 3, 2)
    dayOfyear = DatePart("y", Now)
    CountofProjectsToday = DCount("[ProjectNumber]", "Table1", "[ProjectNumber] Like '*dayOfyear*'")

    If CountofProjectsToday = 0 Then
        Me.ProjectNum.Value = TwoDigitYear & "-" & dayOfyear & 1
    Else
        Me.ProjectNum.Value = TwoDigitYear & "-" & dayOfyear & CountofProjectsToday + 1
    End If

End Sub

如果我要在“dayOfyear”的位置键入实际的朱利安日期（210），那么代码是有效的。它不喜欢参考资料，我不知道如何避开它。

试试看

CountofProjectsToday = DCount("[ProjectNumber]", "Table1", "[ProjectNumber] Like '*" & CStr(dayOfyear) & "*'")
'                                                                                  ^^^^^^^^^^^^^^^^^^^^^^^

---

它将VBA

dayOfYear

转换为字符串（使用

CStr

），然后将生成的字符串粘贴到查询中（

&…&

）。

非常简单。我想我以前试过用CStr（）来包装它，但它不起作用，但这次起了作用。非常感谢。