สร้างฟอร์ม main
มี text0(tid), text2(keepdate), text3(in or out), text4(show message)
ใส่ =date() ใน Control source ของ text2
กำหนดให้ Timer interval ของฟอร์มเป็น 1000
กำหนด Code builder ให้กับ On Timer ว่า Text3=time()
กำหนด Code builder ให้กับ On Exit ของ Text0 และ text2
Private Sub Form_Timer()
Text3 = Time()
End Sub
Private Sub Text0_Exit(Cancel As Integer)
If Len(Text0) > 0 Then
If DCount("tid", "inout", "tid = " & Text0 & " and keepdate = #" & Text2 & "#") = 0 Then
DoCmd.RunSQL ("INSERT INTO inout ( tid,keepdate,[in]) SELECT " & Text0 & " , #" & Text2 & "# , #" & Text3 & "# ;")
Text4 = DLookup("[tname]", "teacher", "tid = " & Text0)
Text4 = Text4 & " " & DLookup("[tsurname]", "teacher", "tid = " & Text0) & " เข้างาน " & Text3
Else
DoCmd.RunSQL ("UPDATE inout SET inout.out = #" & Text3 & "# WHERE ((inout.tid= " & [Text0] & ") AND (inout.keepdate=#" & Text2 & "#));")
Text4 = DLookup("[tname]", "teacher", "tid = " & Text0)
Text4 = Text4 & " " & DLookup("[tsurname]", "teacher", "tid = " & Text0) & " ออกงาน " & Text3
End If
End If
End Sub
Private Sub Text2_Enter()
Text0 = ""
Text0.SetFocus
End Sub
Download : inout.zip ขนาด 23 KB
