ช่วยอธิบายให้ที
ช่วยอธิบายให้เข้าใจทียังไม่ค่อยเข้าใจเท่าไหร่เพิ่งศึกษา Sub CreateNewStamp() Dim R2 As New ADODB.Recordset Dim NewID As String R2.Open "Select top 1 * from stamp order by stampid desc", Conn, adOpenKeyset, adLockOptimistic If R2.EOF Then NewID = 1 Else NewID = R2("stampid") + 1 End If R2.AddNew R2("stampid") = NewID R2("username") = UserName R2("firsttime") = Now R2("stampdate") = Now R2("lasttime") = Now If Time < "9:00" Then R2("dailystatusid") = "1" Else R2("dailystatusid") = "2" End If R2("ot") = 0 R2.Update R2.Close End Sub
Sub StampWorkTime() Dim R1 As New ADODB.Recordset R1.Open "Select top 1 * from stamp where username = '" & txtUserName & "' order by stampid desc", Conn, adOpenKeyset, adLockOptimistic If R1.EOF Then CreateNewStamp Else If Not (Day(R1("stampdate")) = Day(Now) And Month(R1("stampdate")) = Month(Now) And Year(R1("stampdate")) = Year(Now)) Then CreateNewStamp End If End If R1.Close End Sub
|