(Access) 的 Application.DVar 方法

發行項
04/07/2023

估算所指定一組記錄 (範圍) 中的範例變異數。

語法

運算式。DVar (Expr， Domain， Criteria)

expression 代表 Application 物件的變數。

參數

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

傳回值

Variant

註解

例如，您可以使用 DVar 函數計算一組學生測驗分數的變異數。

如果 domain 參考的記錄少於兩筆，或少於兩筆記錄符合準則， 則 DVar 函式會傳回 Null，表示無法計算變異數。

無論您在宏、模組、查詢運算式或匯出控制項中使用 DVar 函數，都必須仔細建構 criteria 引數，以確保會正確評估。

使用 DVar 函式 可在選取查詢的 Criteria 資料列、 查詢中的匯出欄位運算式，或更新查詢的 [ 更新至 ] 資料列中指定準則。

注意事項

在合計查詢的匯出欄位運算式中使用 DVar 函數或 Var 函數。如果使用 DVar 函數，則會先計算數值，再群組資料。如果使用 Var 函數，則會先群組資料，再估算欄位運算式中的值。

如果要指定 criteria 限制執行函數的資料範圍，請在計算控制項中使用 DVar 函數。例如，若要顯示要運送至加州訂單的變異數，請將文字方塊的 ControlSource 屬性設定為下列運算式：

=DVar("[Freight]", "Orders", "[ShipRegion] = 'CA'")

如果只需要找出 domain 中所有記錄的標準差，請使用 Var 或 VarP 函數。

範例

下列範例會針對運送至英國的訂單，傳回其母體及母體樣本的變異數估計。範圍是 Orders 資料表。 criteria 引數則將產生的記錄集限制在 ShipCountry 等於 UK 的記錄。

Dim dblX As Double 
Dim dblY As Double 
 
' Sample estimate. 
dblX = DVar("[Freight]", "Orders", "[ShipCountry] = 'UK'") 
 
' Population estimate. 
dblY = DVarP("[Freight]", "Orders", "[ShipCountry] = 'UK'")

下一個範例會使用 criteria 引數中的變數 strCountry傳回估計值。請注意，字串運算式中包含 () 的單引號，因此當串連字號串時，字串常 UK 值會以單引號括住。

Dim strCountry As String| 
Dim dblX As Double 
 
strCountry = "UK" 
 
dblX = DVar("[Freight]", "Orders", "[ShipCountry] = '" _ 
    & strCountry & "'")

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

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

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

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

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

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

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

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

支援和意見反應

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

共用方式為

(Access) 的 Application.DVar 方法

語法

參數

傳回值

註解

範例

支援和意見反應

意見反應

其他資源