Méthode Application.DFirst (Access)

Article
04/07/2023

Utilisez la fonction DFirst pour retourner un enregistrement aléatoire à partir d’un champ particulier dans une table ou une requête lorsque vous avez besoin d’une valeur de ce champ.

Syntaxe

expression. DFirst (Expr, Domaine, Critères)

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 dont vous voulez trouver la première ou la dernière valeur. Il peut s'agir soit d'une expression chaîne identifiant un champ dans une table ou dans une requête, soit 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.
Domaine	Obligatoire	Chaîne	Expression chaîne identifiant les enregistrements qui constituent le domaine.
Critères	Facultatif	Variant	Expression de chaîne facultative servant à limiter la plage des données sur laquelle porte la fonction DFirst. Par exemple, critères est souvent équivalent à la clause WHERE d'une expression SQL sans le mot WHERE. En cas d'omission de critères, la fonction DFirst évalue expr par rapport à l'intégralité du domaine. Chaque champ compris dans critères doit aussi l'être dans domaine, sans quoi la fonction DFirst renvoie la valeur Null.

Valeur renvoyée

Variant

Remarques

Remarque

Si vous voulez renvoyer le premier ou le dernier enregistrement dans un jeu d'enregistrements (un domaine), vous devez créer une requête triée de manière ascendante ou descendante et affecter la valeur 1 à la propriété TopValues. Dans Visual Basic, vous pouvez également créer un objet ADO Recordset et utiliser les méthodes MoveFirst ou MoveLast pour renvoyer le premier ou le dernier enregistrement dans un jeu d'enregistrements.

Exemple

Les exemples suivants montrent comment utiliser différents types de critères avec la fonction DFirst .

    ' ***************************
    ' Typical Use
    ' Numerical values. Replace "number" with the number to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = number")

    ' Strings.
    ' Numerical values. Replace "string" with the string to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria]= 'string'")

    ' Dates. Replace "date" with the string to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria]= #date#")
    ' ***************************

    ' ***************************
    ' Referring to a control on a form
    ' Numerical values
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = " & Forms!FormName!ControlName)

    ' Strings
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = '" & Forms!FormName!ControlName & "'")

    ' Dates
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = #" & Forms!FormName!ControlName & "#")
    ' ***************************

    ' ***************************
    ' Combinations
    ' Multiple types of criteria
    variable = DFirst("[FieldName]", "TableName", "[Criteria1] = " & Forms![FormName]![Control1] _
             & " AND [Criteria2] = '" & Forms![FormName]![Control2] & "'" _
            & " AND [Criteria3] =#" & Forms![FormName]![Control3] & "#")
    
    ' Use two fields from a single record.
    variable = DFirst("[LastName] & ', ' & [FirstName]", "tblPeople", "[PrimaryKey] = 7")
            
    ' Expressions
    variable = DFirst("[Field1] + [Field2]", "tableName", "[PrimaryKey] = 7")
    
    ' Control Structures
    variable = DFirst("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