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

Question

我想查看表格中的记录，看看有多少已经包含今天的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 

如果我输入的地方实际的公历日期（210）“DAYOFYEAR”代码工作。它不喜欢参考，我不知道如何绕过它。

Answer 1

尝试

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

那你的VBA dayOfYear转换成（使用CStr）的字符串，然后粘贴结果字符串到你的查询（& ... &）。