按vba代码中的标准计数

Question

我根据参数查询（日期a和日期b之间）有多个项目表单。我希望表单底部的无界字段test将包含字段days大于5的所有记录的计数。

我写了以下简单的代码，但得到0作为答案。

Private Sub test_DblClick(Cancel As Integer)

    Dim n As Integer

    For n = 1 To 10
        If days.Value > 5 Then
            test = test + 1
        End If
    Next n

End Sub

Answer 1

试试这个：

test = DCount("any_field","parameter_Query","days > 5")

any_field字面意思是查询中的任何字段，parameter_Query是用于获取数据的查询，days > 5是仅返回满足该条件的字段的条件。聚合函数DCount()执行返回字段的计数。我希望这会有所帮助。