Application.DLast 方法 (Access)

如果需要来自该字段的任何值，请使用 DLast 函数从表或查询中的特定字段返回随机记录。

语法

表达式。DLast (Expr、 域、 条件)

expression：表示 Application 对象的变量。

参数

名称	必需/可选	数据类型	说明
Expr	必需	字符串	表达式，用于标识要从中查找第一个或最后一个值的字段。 它可以是用来标识表或查询中字段的字符串表达式，也可以是对该字段中的数据执行计算的表达式。 在 expr 中，可以包含表中字段、窗体控件、常量或函数的名称。 如果 expr 包含函数，它可以是内置函数或用户定义的函数，但不能是其他域聚合函数或 SQL 聚合函数。
域	必需	字符串	字符串表达式，用于标识组成域的记录集。
条件	可选	Variant	可选的字符串表达式，用于限制作为 DLast 函数执行对象的数据范围。 例如，criteria 通常等效于 SQL 表达式中的 WHERE 子句，但它不使用单词 WHERE。 如果省略 criteria，DLast 函数将针对整个域对 expr 求值。 任何包含在 criteria 中的字段都必须也是 domain 中的字段，否则 DLast 函数将返回 Null。

返回值

Variant

备注

注意

如果要返回记录集（即域）中的第一条或最后一条记录，应该创建一个按升序或降序排序的查询，并将 TopValues 属性设为 1。 也可以从 Visual Basic 中创建 ADO Recordset 对象，并使用 MoveFirst 或 MoveLast 方法来返回记录集内的第一条或最后一条记录。

示例

以下示例演示如何对 DLast 函数使用各种类型的条件。

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

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

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

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

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

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

    ' ***************************
    ' Combinations
    ' Multiple types of criteria
    variable = DLast("[FieldName]", "TableName", "[Criteria1] = " & Forms![FormName]![Control1] _
             & " AND [Criteria2] = '" & Forms![FormName]![Control2] & "'" _
            & " AND [Criteria3] =#" & Forms![FormName]![Control3] & "#")
    
    ' Use two fields from a single record.
    variable = DLast("[LastName] & ', ' & [FirstName]", "tblPeople", "[PrimaryKey] = 7")
            
    ' Expressions
    variable = DLast("[Field1] + [Field2]", "tableName", "[PrimaryKey] = 7")
    
    ' Control Structures
    variable = DLast("IIf([LastName] Like 'Smith', 'True', 'False')", "tableName", "[PrimaryKey] = 7")
    ' ***************************

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。