Dlookup函数4-小周专栏

Dlookup函数综合释疑

提示：以下用法示例适合于大部分的合计函数（域函数如:DMax, DMin,Dfirst,Dlast等）
语法：
    DLookup(expr, domain, [criteria])
参数解释：
    expr：要获取值的字段名称
    domain ：要获取值的表或查询名称
    criteria：用于限制 DLookup 函数执行的数据范围。如果不给 criteria 提供值，Dlookup 函数将返回域中的一个随机值。
正常用法
用于数值型条件值:
DLookup("字段名称" , "表或查询名称" , "条件字段名 = n")
用于字符串型条件值:(注意字符串的单引号不能丢失)
DLookup("字段名称" , "表或查询名称" , "条件字段名 = '字符串值'")
用于日期型条件值:(注意日期的#号不能丢失)
DLookup("字段名称" , "表或查询名称" , "条件字段名 = #日期值#")
从窗体控件中引用条件值用法
用于数值型条件值:
DLookup("字段名称" , "表或查询名称" , "条件字段名 =" &
   forms!窗体名!控件名)

用于字符串型条件值:(注意字符串的单引号不能丢失)
DLookup("字段名称" , "表或查询名称" , "条件字段名 = '" &
   forms!窗体名!控件名 & "'")

用于日期型条件值:(注意日期的#号不能丢失)
DLookup("字段名称" , "表或查询名称" , "条件字段名 = #" &
forms!窗体名!控件名 & "#")

混合使用方法(支持多条件)
        在这种方法中也可以在条件中写入固定的值。
    DLookup("字段名称" , "表或查询名称" , "条件字段名1 = " & Forms!窗体名!控件名1 _
            & " AND 条件字段名2 = '" & Forms!窗体名!控件名2 & "'" _
            & " AND 条件字段名3 =#" & Forms!窗体名!控件名3 & "#")
注：
    Dlookup之类的合计函数(域函数)是ACCESS为用户提供的内置函数，通过这些函数可以方便的从一个表或查询中取得符合一定条件的值赋予变量或控件值，就不需要再用DAO或者ADO打开一个记录集，然后再去从中获取一个值，这样所写的代码要少的多。
但是如果需要更灵活的设计，比如所查询的域没有在一个固定的表或查询里，而是一个动态的SQL语法，或是临时生成的复杂的SQL语句，亦或是需要代入循环的条件值等，此时还是需要从DAO或者ADO中定义记录集来获取值。因为Dlookup之类的合计函数必竟是一个预定义好格式的函数，所支持的语法有限，但对于大多数的要求是都能够满足的。
解释：
其实呢，[A girl]是一个ACCESS数据库中的表或者查询中的字段，这个函数最终返回这个字段中符合条件的第一个值。
[The world]是数据库中的表或者查询，这个表或者查询中包括了[A girl]和[...]字段。
最后面的]"[...] Like '"&[What I want]&"'"类似SQL的Where语句，也就是表或者查询中的[...]字段必须等于[What I want]。[What I want]是一个变量，一般是一个窗体上的文本框或者组合框。
Dlookup("[A girl]","[The world]","[...] Like '"&[What I want]&"'") 整句的意思是在[The world]这个表或者查询里面查找，当[...]字段等于变量[What I want]时，就返回[A girl]字段的第一个值。这个表达式里like可以替换为=，使用like时一般会加上通配符*。
这个函数只能返回符合条件的第一个值，你想让它随记录的变化而返回不同的值，可以将记录赋予[What I want]变量，并将文本框的数据源绑定这个函数表达式，这样随时变量改变，文本框的值也随之改变。但最好是对那个条件进行更严格的设置，使其符合条件的值只有一个，否则不能达到你的要求。
感觉你对这个函数的理解有问题，可以参见一些这个函数的例子。
----------------------------------------------
Dlookup("[A girl]","[The world]","[...] Like '"&[What I want]&"'")
vba代码来完成的。
Private Sub BB_AfterUpdate()
Me.BB = Abs(Int(Val(BB)))
If Me.BB > 12 or Me.BB = 0 Then
   MsgBox "取值不正确！": Exit Sub
End If
If IsNull(Me.AA) or Me.AA = "" Then
   DoCmd.GoToControl "aa"
Else
   Me.Text2 = DLookup("[" & Me.BB & "月成本]", "成本表", "[商品ID]=" & Me.AA)
End If
End Sub
hi-wzj版主绝妙的传递字段名格式"["&      &"]"给DLookUp()增色不少
直接用:DLookUp("[" & [Forms]![成本]![BB] & "]","成本表","[商品ID]=forms![成本]![AA]") 也行了
在次表示感谢!!!