Метод Application.DVar (Access)

Статья
04/07/2023

Оценивает дисперсию в выборке в указанном наборе записей (домене).

Синтаксис

expression. DVar (expr, domain, criteria)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Expr	Обязательный	String	Выражение, идентифицирующее числовое поле, в котором требуется найти дисперсию. Это может быть строковое выражение, идентифицирующее поле из таблицы или запроса, или выражение, выполняющее вычисление данных в этом поле. В expr можно включить поле имени в таблицу, элемент управления в форме, константу или функцию. Если expr включает функцию, она может быть встроенной или определяемой пользователем, но не может быть другой агрегатной или агрегатной функцией SQL. Любое поле, включенное в expr, должно быть числовым.
Домен	Обязательный	String	Строковое выражение, идентифицирующее набор записей, составляющих домен. Это может быть имя таблицы или имя запроса, который не требует параметра.
Criteria	Необязательный	Variant	Необязательное строковое выражение, используемое для ограничения диапазона данных, на котором выполняется функция DVar . Например, критерии часто эквивалентны предложению WHERE в выражении SQL без слова WHERE. Если условие опущено, функция DVar оценивает expr по всему домену. Любое поле, включенное в условия, также должно быть полем в домене; В противном случае функция DVar возвращает значение NULL.

Возвращаемое значение

Variant

Примечания

Например, можно использовать функцию DVar для вычисления дисперсии в наборе тестовых оценок учащихся.

Если домен ссылается на менее двух записей или меньше двух записей удовлетворяет критериям, функции DVar возвращают значение NULL, указывающее, что дисперсию невозможно вычислить.

Независимо от того, используете ли вы функцию DVar в макросе, модуле, выражении запроса или вычисляемом элементе управления, необходимо тщательно создать аргумент условия , чтобы убедиться, что он будет правильно оценен.

Используйте функцию DVar , чтобы указать критерии в строке Критерии запроса на выборку, в выражении вычисляемого поля в запросе или в строке Обновить до запроса на обновление.

Примечание.

Используйте функцию DVar или функцию Var в выражении вычисляемого поля в запросе итогов. При использовании функции DVar значения вычисляются перед группировкой данных. При использовании функции Var данные группируются перед вычислением значений в выражении поля.

Используйте функцию DVar в вычисляемом элементе управления, если необходимо указать критерии для ограничения диапазона данных, по которым выполняется функция. Например, чтобы отобразить отклонение для заказов, которые будут отправлены в Калифорнию, задайте для свойства ControlSource текстового поля следующее выражение:

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

Если вы просто хотите найти стандартное отклонение во всех записях в домене, используйте функцию Var или VarP .

Пример

В следующем примере возвращаются оценки дисперсии для генеральной совокупности и выборки для заказов, отправляемых в Соединенное Королевство. Домен — это таблица Orders. Аргумент условия ограничивает результирующий набор записей теми, для которых ShipCountry равен Великобритании.

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

Следующий пример возвращает оценки с помощью переменной strCountry в аргументе criteria . Обратите внимание, что в строковое выражение включаются одинарные кавычки ('), поэтому при объединии строк строковый литерал 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 и обратная связь.

Поделиться через