在 Access 中使用 VBA 如何使用 Dcount 计算包含此公式的记录数 - DatePart("y", Now)？

Question

我想浏览 table 中的记录，看看有多少已经包含今天的 Julian 日期。我希望它是一个通配符搜索，因为我的项目编号将采用这种格式“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" 的位置输入实际的 Julian 日期 (210)，代码就可以工作。它不喜欢引用，我不知道如何绕过它。

Answer 1

尝试

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

这会将您的 VBA dayOfYear 转换为字符串（使用 CStr），然后将生成的字符串粘贴到您的查询中 (& ... &)。

在 Access 中使用 VBA 如何使用 Dcount 计算包含此公式的记录数 - DatePart("y", Now)？

Using VBA in Access how do I use Dcount to count the number of record that contain this formula - DatePart("y", Now)?

vba

ms-access

criteria

dcount