请给段代码!

llee · 发表于 2004-2-13 16:19:00

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

llee · 发表于 2004-2-13 17:19:00

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

llee · 发表于 2004-2-13 18:18:00

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

llee · 发表于 2004-2-13 18:32:00

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

llee · 发表于 2004-2-13 18:53:00

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

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

llee · 发表于 2004-2-13 21:19:00

运行时错误'3075'
语法错误(操作符丢失)在查询表达式'id=7 and日期=#2003-2-13# and hour(时间)>11'中

怎么回事?

llee · 发表于 2004-2-13 21:26:00

现在错误没有了,但在我连续输入两次数据时它并不跳出then后的对话框.

llee · 发表于 2004-2-13 21:34:00

还是不成功.
现在让它就判断一下当天此ID是否考过勤,
If DLookup("日期", "上班考勤时间记录", "id=" & Forms!上班考勤时间记录!ID & " and 日期=#" & Date & "# ") Then
Msgbox :"已考勤"
但我连续输入2次ID后它并没有弹出对话框.
怎么回事哪?

llee · 发表于 2004-2-13 21:46:00

现在好了,好像它判断的是如果表中没有此ID的当天考勤记录则运行then.是吗?

llee · 发表于 2004-2-13 22:36:00

请问一下,这个函数返回值是什么哪?现在的查询跟我所要的不一样啊?
我要的判断是通过ID,查询表里当天此ID是否考过勤.
但现在还是实现不了,请问是不是有其他问题?还是我函数应用错了?

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[其它] 请给段代码!

群介绍
主题无相 (随机显示版	同地区群块其他地区)