考勤重复

宋雄健　发表于：2011-07-02 13:23:18 　

复制

请问各位能否做到附件时间不到15分不能输入？

点击下载此附件

Top

红尘如烟发表于：2011-07-02 14:12:58

先取表中的时间最大值，然后和当前系统时间对比，如果间隔不到15分钟，则不进行保存

Top

宋雄健发表于：2011-07-02 15:39:53

1楼的老师能否帮忙改一下附件谢谢了

Top

宋雄健发表于：2011-07-02 20:35:49

请大家指点

Top

煮江品茶发表于：2011-07-03 06:57:43

1、在窗体类模块中建一个模块级变量t；

2、在窗体的计时器触发事件中写：

Private Sub Form_Timer()
t = t + 1
If t >= 15 * 60 Then
    Me.Form.TimerInterval = 0
    Me.员工编号.Locked = False
    t = 0
End If
End Sub

3、在员工编号的更新后事件的最后加写：

Me.Form.TimerInterval = 1000
Me.员工编号.Locked = True

Top

宋雄健发表于：2011-07-03 13:30:25

我安照4楼老师的代码还是不行呀

Top

煮江品茶发表于：2011-07-03 13:43:12

谁说不行？不可能不行！只能行不能不行。

点击下载此附件

Top

宋雄健发表于：2011-07-03 14:05:34

6楼老师：您好！真对不起，是我没有把功能表达清楚,我要的是做到附件中员工刷卡管理，{02}员工打完卡，相同[02员工}时间不到15分不能打卡其他员工可以打，过了15分[02员工}又可以打卡了,而15分钟要任意可以修改的，在此感谢了。

Top

煮江品茶发表于：2011-07-03 15:36:39

1、写一个自定义函数：

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

2、在员工编号控件的更新后事件的最前面加一句调用该函数的语句：

Private Sub 员工编号_AfterUpdate()
On Error GoTo Err_员工编号_LostFocus
Dim i, j As Integer
Dim CunZai As String
Dim StrTemp As String
Dim rs As ADODB.Recordset
If B(Me.员工编号.Value) = True Then Exit Sub
Set rs = New ADODB.Recordset

。。。。。

End Sub

Top

宋雄健发表于：2011-07-03 21:13:22

煮江品茶:老师您好!感谢您的指点我完成了作品,再次请教,<15分钟这个数值要是来源是一个不表中的数值,代码该如何写?

Top

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

Access交流中心

考勤重复