Método Application.DVar (Access)

Estima a variação de um exemplo em um conjunto de registros especificado (um domínio).

Sintaxe

expressão. DVar (Expr, Domínio, Critérios)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Expr	Obrigatório	String	Uma expressão que identifica o campo numérico no qual você deseja encontrar a variância. Pode ser uma expressão de cadeia de caracteres que identifique um campo de uma tabela ou consulta ou pode ser uma expressão que efetue cálculos nos dados desse campo. Você pode incluir em expr o nome de um campo em uma tabela, um controle em um formulário, uma constante ou uma função. Se expr incluir uma função, ela poderá ser interna ou definida pelo usuário, mas não outra função de agregação de domínio ou de agregação de SQL. Qualquer campo incluído em expr precisa ser um campo numérico.
Domínio	Obrigatório	String	Uma expressão formada por cadeia de caracteres que identifica o conjunto de registros que constitui o domínio. Pode ser um nome de tabela ou um nome de uma consulta que não exija um parâmetro.
Criteria	Opcional	Variantes	Uma expressão de cadeia de caracteres opcional utilizada para restringir o intervalo de dados no qual a função DVar é executada. Por exemplo, criteria com frequência é equivalente à cláusula WHERE em uma expressão SQL, sem a palavra WHERE. Se criteria for omitido, a função DVar avaliará expr em relação ao domínio inteiro. Qualquer campo incluído nos critérios também deve ser um campo no domínio; caso contrário, a função DVar retorna um Null.

Valor de retorno

Variant

Comentários

Por exemplo, você poderia usar a função DVar para calcular a variância em um conjunto de resultados de teste de alunos.

Se o domínio se referir a menos de dois registros ou se menos de dois registros atenderem aos critérios, as funções DVar retornarão um Null, indicando que uma variação não pode ser calculada.

Se você usa a função DVar em uma macro, módulo, expressão de consulta ou controle calculado, você deve construir o argumento de critério cuidadosamente para garantir que ele seja avaliado corretamente.

Use a função DVar para especificar critérios na linha Critérios de uma consulta selecionada, em uma expressão de campo calculada em uma consulta ou na linha Atualizar para de uma consulta de atualização.

Observação

Use a função DVar ou a função Var em uma expressão de campo calculada em uma consulta total. Se você usar a função DVar, os valores serão avaliados antes de os dados serem agrupados. Se você usar a função Var, os dados serão agrupados antes de os valores na expressão do campo serem avaliados.

Utilize a função DVar em um controle calculado quando precisar especificar criteria para restringir o intervalo de dados no qual a função é executada. Por exemplo, para exibir uma variação para que os pedidos sejam enviados para a Califórnia, defina a propriedade ControlSource de uma caixa de texto como a seguinte expressão:

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

Se você desejar simplesmente encontrar o desvio padrão de todos os registros no domain, utilize a função Var ou VarP.

Exemplo

O exemplo a seguir retorna estimativas da variância de uma população e uma amostra de população para pedidos enviados para o Reino Unido. O domínio é uma tabela Orders. O argumento criteria restringe o conjunto de registros resultante para os quais ShipCountry é igual a Reino Unido.

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

O próximo exemplo retorna estimativas usando a variável strCountry no argumento de critérios . Observe que as aspas individuais (') são incluídas na expressão de cadeia de caracteres, de modo que, quando as cadeias de caracteres forem concatenadas, o literal UK da cadeia de caracteres será incluído em aspas individuais.

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

Os exemplos a seguir mostram como usar vários tipos de critérios com a função 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")
    ' ***************************

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.