(Access) 的 Application.DVar 方法

  • 發行項

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

語法

運算式。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 支援與意見反應。