Compartir a través de


Método Application.DVar (Access)

Calcula la varianza de un conjunto de valores en un grupo de registros especificado (un dominio).

Sintaxis

expresión. DVar (Expr, Domain, Criteria)

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Expr Obligatorio String Expresión que identifica el campo numérico en el que se desea buscar la varianza. Puede ser una expresión de cadena que identifica un campo de una tabla o consulta, o bien, una expresión que realiza un cálculo con los datos de ese campo. En Expr, puede incluir el nombre de un campo de una tabla, un control de un formulario, una constante o una función. Si expr incluye una función, puede ser integrada o definida por el usuario, pero no otra función de agregado de dominio o de agregado de SQL. Todo campo incluido en Expr debe ser un campo numérico.
Dominio Obligatorio String Una expresión de cadena que identifica el conjunto de registros que constituyen el dominio. Puede ser un nombre de tabla o de consulta para una consulta que no requiere ningún parámetro.
Criteria Opcional Variant Expresión de cadena opcional que se utiliza para restringir el intervalo de datos con el que se ejecuta la función DVar. Por ejemplo, criteria suele ser equivalente a la cláusula WHERE en una expresión SQL, sin la palabra WHERE. Si se omite criteria, la función DVar evalúa expr para todo el dominio. Cualquier campo incluido en los criterios también debe ser un campo en el dominio; De lo contrario, la función DVar devuelve un valor Null.

Valor devuelto

Variant

Comentarios

Por ejemplo, puede usar la función DVar para calcular la varianza de los resultados de los exámenes de un grupo de estudiantes.

Si dominio hace referencia a menos de dos registros, o si menos de dos registros cumplen los criterios, las funciones DVar devuelven un valor Null, lo que indica que no se puede calcular una varianza.

Tanto si usa la función DVar en una macro, un módulo, una expresión de consulta o un control calculado, debe construir el argumento criteria cuidadosamente para asegurarse de que se evaluará correctamente.

Use la función DVar para especificar criterios en la fila Criterios de una consulta de selección, en una expresión de campo calculada en una consulta o en la fila Actualizar a de una consulta de actualización.

Nota:

Use la función DVar o la función Var en una expresión de campo calculada en una consulta de totales. Si usa la función DVar, los valores se calculan antes de que se agrupen los datos. Si usa la función Var, los datos se agrupan antes de que se evalúen los valores de la expresión de campo.

Use la función DVar en un control calculado cuando necesite especificar el argumento criteria para restringir el intervalo de datos con el que se ejecuta la función. Por ejemplo, para mostrar una varianza para los pedidos que se enviarán a California, establezca la propiedad ControlSource de un cuadro de texto en la siguiente expresión:

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

Si simplemente desea obtener la desviación estándar de todos los registros de domain, use la función Var o VarP.

Ejemplo:

En este ejemplo se devuelven estimaciones de la varianza de una población y una muestra de población para los pedidos enviados al Reino Unido (UK). El dominio es la tabla denominada Orders (Pedidos). El argumento criteria restringe el conjunto de registros resultante a aquéllos para los que el valor de ShipCountry (País de envío) es 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'")

En el siguiente ejemplo se devuelven estimaciones mediante la variable strCountry en el argumento criteria . Tenga en cuenta que las comillas simples (') se incluyen en la expresión de cadena, de modo que cuando se concatenan las cadenas, el literal UK de cadena se incluirá entre comillas simples.

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

En los ejemplos siguientes se muestra cómo usar varios tipos de criterios con la función 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")
    ' ***************************

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.