Méthode Application.DVar (Access)

Article
04/07/2023

Évalue la variance pour un échantillon dans un jeu d'enregistrements spécifié (un domaine).

Syntaxe

expression. DVar (Expr, Domain, Criteria)

expressionUne variable qui représente un objetApplication.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Expr	Obligatoire	String	Expression qui identifie le champ numérique dont vous souhaitez trouver la variance. Il peut s'agir d'une expression chaîne identifiant un champ dans une table ou une requête, ou d'une expression qui effectue un calcul sur les données de ce champ. Dans expr, vous pouvez inclure le nom d'un champ de table, un contrôle de formulaire, une constante ou une fonction. Si expr inclut une fonction, elle peut être intégrée ou définie par l’utilisateur, mais pas une autre fonction d’agrégation de domaine ou SQL. Tout champ compris dans expr doit être un champ numérique.
Domaine	Obligatoire	Chaîne	Expression chaîne identifiant les enregistrements qui constituent le domaine. Il peut s'agir d'un nom de table ou d'un nom de requête qui ne requiert aucun paramètre.
Criteria	Facultatif	Variant	Expression chaîne facultative servant à limiter la plage des données sur laquelle porte la fonction DVar. Par exemple, criteria est souvent équivalent à la clause WHERE d'une expression SQL sans le mot WHERE. En cas d'omission de critère, la fonction DVar évalue expr par rapport à l'intégralité du domaine. Tout champ inclus dans les critères doit également être un champ dans le domaine ; sinon, la fonction DVar retourne une valeur Null.

Valeur renvoyée

Variant

Remarques

Par exemple, vous pouvez utiliser la fonction DVar pour calculer la variance de l'ensemble des notes obtenues par des étudiants à un test.

Si domaine fait référence à moins de deux enregistrements, ou si moins de deux enregistrements répondent à des critères, les fonctions DVar retournent une valeur Null, ce qui indique qu’une variance ne peut pas être calculée.

Que vous utilisiez la fonction DVar dans une macro, un module, une expression de requête ou un contrôle calculé, vous devez construire l’argument critère avec soin pour vous assurer qu’il sera évalué correctement.

Utilisez la fonction DVar pour spécifier des critères dans la ligne Critères d’une requête select, dans une expression de champ calculé dans une requête ou dans la ligne Mettre à jour vers d’une requête de mise à jour.

Remarque

Utilisez la fonction DVar ou la fonction Var dans une expression de champ calculé dans une requête de totaux. Avec la fonction DVar, le calcul des valeurs s'effectue avant le regroupement des données. Avec la fonction Var, les données sont regroupées avant que les valeurs incluses dans l'expression de champ ne soient calculées.

Utilisez la fonction DVar dans un contrôle calculé lorsque vous devez spécifier les critères visant à limiter la plage des données sur laquelle porte la fonction. Par exemple, pour afficher une variance pour les commandes à expédier en Californie, définissez la propriété ControlSource d’une zone de texte sur l’expression suivante :

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

Si vous voulez simplement trouver la variance relative à tous les enregistrements de domaine, utilisez la fonction Var ou VarP.

Exemple

L'exemple suivant retourne une estimation de la variance d'une population et d'un échantillon de population concernant les commandes livrées au Royaume-Uni. Le domaine consiste en la table Orders. L’argument critère limite l’ensemble d’enregistrements obtenu à ceux pour lesquels ShipCountry est égal au Royaume-Uni.

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

L’exemple suivant retourne des estimations à l’aide de la variable strCountry dans l’argument critère . Notez que les guillemets simples (') sont inclus dans l’expression de chaîne, de sorte que lorsque les chaînes sont concaténées, le littéral UK de chaîne est placé entre guillemets simples.

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

Les exemples suivants montrent comment utiliser différents types de critères avec la fonction 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")
    ' ***************************

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via