刷卡输入问题

宋雄健　发表于：2011-07-08 07:41:16 　

把刷卡表清空数据后，刷开窗体就不能输入了，在员工资料新增员工也不能刷卡输入，请大家指点，谢谢

煮江品茶发表于：2011-07-08 11:43:18

Function B(str As String) As Boolean
Dim t As Date
t = Nz(DLast("刷卡时间", "刷卡表", "员工编号='" & str & "'"), Now())
B = False
If DateDiff("n", t, Now()) < 5 And Me.List4.ListCount <> 0 Then
Me.员工编号.Value = Null
B = True
End If
End Function

Top

宋雄健发表于：2011-07-09 13:42:55

煮江品茶:老师您好！把{刷卡表}清空数据后，{员工刷卡管理}窗体就不能输入考勤了，请指点。

Top

煮江品茶发表于：2011-07-09 15:01:54

按1楼代码修改不就完事了嘛。

Top

宋雄健发表于：2011-07-09 21:16:30

煮江品茶：老师您好,我要的是做到附件中当把“刷卡表”初始化后，在“员工刷卡管理”窗体上最下面文组合框输入第一位员工刷卡接着刷第二位员工、第三位等等，但在相同的员工相隔不到15分钟不能重复刷卡。

点击下载此附件

Top

煮江品茶发表于：2011-07-10 10:27:42

按下面的代码修改之：

Function B(str As String) As Boolean
Dim t As Date
t = Nz(DLast("刷卡时间", "刷卡表", "员工编号='" & str & "'"), DateAdd("n", -5, Now()))
B = False
If DateDiff("n", t, Now()) < 5 And Me.List4.ListCount <> 0 Then
Me.员工编号.Value = Null
B = True
End If
End Function

Top

宋雄健发表于：2011-07-10 17:01:40

谢谢。

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

刷卡输入问题