(Access) 的 Application.DCount 方法

發行項
01/17/2024

使用 DCount 函數來判斷網域) (指定記錄集中的記錄數目。

語法

表達式。DCount (Expr、 Domain、 Criteria)

expression 代表 Application 物件的變數。

參數

名稱	必要/選用	資料類型	描述
Expr	必要	字串	表達式，識別您要計算記錄的欄位。它可以是識別資料表或查詢中欄位的字串運算式，或計算該欄位中資料的運算式。 expr 中可以包含資料表中欄位的名稱、表單上的控制項、常數或函數。如果 expr 包含函式，它可以是內建或用戶定義，但不能是另一個網域匯總或 SQL 聚合函數。
網域	必要	字串	識別構成網域之記錄集的字串表達式。它可以是不需要參數之查詢的數據表名稱或查詢名稱。
Variant	用來限制在其上執行 DVarP 函數的資料範圍的選用的字串運算式。例如， criteria等於通常 WHERE 子句的 SQL 運算式，不含 where 位置。如果省略 criteria ，則 DVarP 函數會評估 expr針對整個網域。包含在 criteria任何欄位也必須是 domain; 中的欄位否則 DVarP 函數會傳回 Null 。	Variant	選用的字串運算式，用來限制要執行 DCount 函數的資料範圍。例如，criteria 通常相當於 SQL 運算式中的 WHERE 子句，但不用加上 WHERE 這個字。如果省略 criteria，則 DCount 函數會計算整個範圍的 expr。 criteria 中包含的任何字段也必須是網域中的欄位;否則， DCount 函數會傳回 Null。

傳回值

Variant

註解

例如，您可以在模組中使用 DCount 函數，傳回訂單資料表上某個特定日期所下訂單的記錄數目。

不需要特別知道記錄的值時，使用 DCount 函數計算範圍中記錄的數目。雖然 expr 可以在欄位上執行計算，但是 DCount 函數僅能計算記錄數目。執行 expr 所計算得出的值無法使用。

如果要指定準則限制執行函數的資料範圍，請在計算控制項中使用 DCount 函數。例如，若要顯示目的地為美國加州的出貨訂單數目，請將文字方塊的 ControlSource 屬性設定為以下運算式：

=DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")

如果您只想要計算網域中的所有記錄，而不指定任何限制，請使用 Count 函式 。 Count 函數已經過最佳化，可以在查詢中快速統計記錄。請在查詢運算式中使用 Count 函數而不使用 DCount 函數，並選擇是否設定準則以限制傳回的結果。

如果必須從程式碼模組、巨集或計算控制項內計數範圍中的記錄，則使用 DCount 函數。

使用 DCount 函數來計算包含特定欄位的記錄數目，該欄位不在表單或報表所根據的記錄來源中。例如，在使用 [產品] 資料表的表單上的計算控制項中，可顯示訂單資料表中的訂單數目。

對於 expr 所參考且欄位中包含 Null 值的記錄，DCount 函數並不會計算這些記錄，除非 expr 是星號 (*) 萬用字元才會計算。如果使用星號，DCount 函數會計算記錄的總數目，包括包含 Null 欄位的記錄。下列範例會計算訂單資料表的記錄數目。

intX = DCount("*", "Orders")

如果 domain 是具有主鍵的數據表，您也可以藉由將 expr 設定為主鍵欄位來計算記錄總數，因為主鍵欄位中永遠不會有 Null 。

如果 expr 識別多個字段，請使用串連運算符來分隔功能變數名稱，也就是連字元 (&) 或加法運算符 (+) 。如果您使用連字元來分隔欄位， DCount 函數會傳回包含任何列出欄位中資料的記錄數目。如果您使用加法運算符， DCount 函數只會傳回包含所有列出欄位中資料的記錄數目。下列範例示範與 ShipName () 的所有記錄中包含數據的欄位搭配使用時，每個運算符的效果，以及 ShipRegion) (不含任何數據的欄位。

intW = DCount("[ShipName]", "Orders") 
intX = DCount("[ShipRegion]", "Orders") 
intY = DCount("[ShipName] + [ShipRegion]", "Orders") 
intZ = DCount("[ShipName] & [ShipRegion]", "Orders")

注意事項

連接號在執行字串串連時慣用的運算子。除了相加數字時，請盡量避免使用加號運算子，但是如果非常希望在運算式內移轉 Nulls 值則另當別論。

範例

下列函式會在指定的出貨日期之後，傳回運送至指定國家或地區的訂單數目。範圍是 Orders 資料表。

Public Function OrdersCount(ByVal strCountry As String, _ 
                            ByVal dteShipDate As Date) As Integer 
 
    OrdersCount = DCount("[ShippedDate]", "Orders", _ 
                  "[ShipCountry] = '" & strCountry & _ 
                  "' AND [ShippedDate] > #" & dteShipDate & "#") 
End Function

下列範例示範如何搭配 DCount 函數使用各種類型的準則。

    ' ***************************
    ' Typical Use
    ' Numerical values. Replace "number" with the number to use.
    variable = DCount("[FieldName]", "TableName", "[Criteria] = number")

    ' Strings.
    ' Numerical values. Replace "string" with the string to use.
    variable = DCount("[FieldName]", "TableName", "[Criteria]= 'string'")

    ' Dates. Replace "date" with the string to use.
    variable = DCount("[FieldName]", "TableName", "[Criteria]= #date#")
    ' ***************************

    ' ***************************
    ' Referring to a control on a form
    ' Numerical values
    variable = DCount("[FieldName]", "TableName", "[Criteria] = " & Forms!FormName!ControlName)

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

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

    ' ***************************
    ' Combinations
    ' Multiple types of criteria
    variable = DCount("[FieldName]", "TableName", "[Criteria1] = " & Forms![FormName]![Control1] _
             & " AND [Criteria2] = '" & Forms![FormName]![Control2] & "'" _
            & " AND [Criteria3] =#" & Forms![FormName]![Control3] & "#")
    
    ' Use two fields from a single record.
    variable = DCount("[LastName] & ', ' & [FirstName]", "tblPeople", "[PrimaryKey] = 7")
            
    ' Expressions
    variable = DCount("[Field1] + [Field2]", "tableName", "[PrimaryKey] = 7")
    
    ' Control Structures
    variable = DCount("IIf([LastName] Like 'Smith', 'True', 'False')", "tableName", "[PrimaryKey] = 7")
    ' ***************************

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。

共用方式為

(Access) 的 Application.DCount 方法

語法

參數

傳回值

註解

範例

支援和意見反應

意見反應

其他資源