加班分钟控制

复杂些的计算还是写到代码中去吧，好组织一些语句。

列举了dsum的多条件算法，其他你可以套用之。

至于勾选项的问题，可以再加一个勾选输入或手动输入的选项，或者直接用下列组合框选择合适的理由。

实例：

Private Sub Form_Current()
Dim Tt As Long
Dim sdate As Date
Dim edate As Date
If Len(Me.加班日期) <> 0 Then

sdate = Year(Me.加班日期) & "-" & Month(Me.加班日期) & "-1"
edate = Year(Me.加班日期) & "-" & (Month(Me.加班日期) + 1) & "-1"
edate = edate - 1
Tt = DSum("[加班分钟]", "qry加班人员", "[工号] = '" & Me.[工号] & "' And [时间] between # " & sdate & "# and #" & edate & "#")
Me.Text74 = Tt
Else
Me.Text74 = ""
Exit Sub
End If
End Sub