请给段代码!

llee

在一个表里有ID和考勤时间和日期.我想写一段VBA代码判断当天12:00之前此ID是否已经考勤.

zhengjialon

    If DLookup("日期", "test", "id=5 and hour(日期)>11") Then
        MsgBox "no"
    Else
        MsgBox "yes"
    End If

llee

有一个由此表生成的窗体,我在ID项输入的ID号为当前ID号.
请说一下Dlookup的用发吗?我的帮助里没有.

zhengjialon

作者：zhengjialon  即将在首页的专栏作家文章中发表
提示：  以下用法示例适合于大部分的合计函数（域函数如Max, DMin等）


语法：

    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之类的合计函数必竟是一个预定义好格式的函数，所支持的语法有限，但对于大多数的要求是都能够满足的。

llee

我写的通不过啊?不知道理解的对不对.前一个"上班考勤记录"为一个表的名字,后一个"上班考勤记录"为一个窗体的名字.日期,ID,时间.均为表中的一项.
If DLookup("日期", "上班考勤时间记录", "id=" & forms!上班考勤时间记录!ID" and 日期="now()" and 时间>"12:00"") Then

zhengjialon

为什么不按我写给你的格式呢？

llee

If DLookup("日期", "上班考勤时间记录", "id=5 and hour(日期)>11") Then
是这样吗?那么请问ID=5是什么意思哪?我要的是判断我在窗体中的ID项输入的值.
而且日期为当天的日期,时间为12:00之前.
为对于你的写法还没有理解深刻,请大侠指点!

zhengjialon

If DLookup("日期", "上班考勤时间记录", "id='" & forms!上班考勤时间记录!ID "' and 日期=#" & date() & "# and hour(时间)>11") Then

zhengjialon

你的ID是文本型吗？ 是文本型就要用单引号，数值型就不要。

llee

时数值型的,但它报错"缺少列表分割符或("怎么回事?

[此贴子已经被作者于2004-2-13 10:58:44编辑过]