在访问中使用带有datepart函数的dcount

时间:2012-09-27 22:36:34

标签: access-vba

我正在尝试使用dcount函数来检查今年是否已经制作了“fakturen”。它似乎没有正常工作。 这是我的代码:

If DCount("*", "fakturen", "[DatePart('yyyy', [fakturen].[faktuurDatum])] = #" & [DatePart('yyyy', Forms![f_fakturen]![faktuurDatum])] & "#") > 0 Then
  strFoutmelding = "Facturen al aanwezig"
  GoTo Jaar_fakturen_Click_Error
End If

我使用以下代码作为示例:

' Dates
variable = DCount("[FieldName]", "TableName", "[Criteria] = #" & Forms!FormName!ControlName & "#")
' ***************************

1 个答案:

答案 0 :(得分:0)

为什么不是一年?

Year(faktuurDatum)

"Year(faktuurDatum)=" & Year(Forms![f_fakturen]![faktuurDatum])

如果你真的想要DatePart:

If DCount("*", "fakturen", "DatePart('yyyy',[faktuurDatum]) = " _
    & DatePart("yyyy", Forms![f_fakturen]![faktuurDatum])) > 0 Then


Datepart('yyy' ...将返回一个数字,而不是日期,因此您不需要分隔符。