สอบถามปัญหา คำสั่ง SQL มีโจย์ อยู่ว่า ทุกวันที่ 26 ของเดือนต้องนับวันมาทำงานใหม่

YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "มา " & RS2.RecordCount & " วัน " & "สาย " & RS1.RecordCount & " วัน " & " ขาด " & RS3.RecordCount & " วัน " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        ElseIf InOut > 1 Then
            lbInOut.Caption = "ŧàÇÅÒÍÍ¡"
            lbTName.Caption = TName
            lbTime.Caption = HMS
        YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "ÁÒ " & RS2.RecordCount & " Çѹ " & "ÊÒ " & RS1.RecordCount & " Çѹ " & " ¢Ò´ " & RS3.RecordCount & " Çѹ " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        Else
            lbTName.Caption = TName
            lbTime.Caption = HMS
            lbInOut.Caption = "«éÓ"
            YY1 = NowToYM1
       YY2 = NowToYM2
       Sq1 = "SELECT     IDTeacher, ComeInStatus "
       Sq1 = Sq1 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 81 )"
       RS1.Open Sq1, cnString, 3, 1
       
       
       Sq2 = "SELECT     IDTeacher, ComeInStatus "
       Sq2 = Sq2 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') "
       RS2.Open Sq2, cnString, 3, 1
       
       Sq3 = "SELECT     IDTeacher, ComeInStatus "
       Sq3 = Sq3 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 70 )"
       RS3.Open Sq3, cnString, 3, 1
       
       Sq4 = "SELECT     IDTeacher, ComeInStatus "
       Sq4 = Sq4 & " From TTeacherComeToschool WHERE (IDTeacher = '" & IDT & "') AND (YMDRecord >= '" & YY1 & "') AND (YMDRecord <= '" & YY2 & "') AND ( ComeInStatus = 30 )"
       RS4.Open Sq4, cnString, 3, 1
       
       strFileName = App.Path & "\pic\" & IDT & ".jpg"
       
       
If Dir$(strFileName) <> "" Then
      picBox.Picture = LoadPicture(strFileName)
      Else
        picBox.Picture = LoadPicture(App.Path & "\pic\dinga.jpg")
      End If

       lbss = "ÁÒ " & RS2.RecordCount & " Çѹ " & "ÊÒ " & RS1.RecordCount & " Çѹ " & " ¢Ò´ " & RS3.RecordCount & " Çѹ " & " ÅÒ " & RS4.RecordCount & " Çѹ "
       
       
       RS1.Close
       RS2.Close
       RS3.Close
       RS4.Close
        End If
   

End Sub

Public Function TimeToHHMMSS(ByVal strTime As String) As String 'StrTime = 00:00:00
    Dim HH As String, MM As String, SS As String
    If Len(strTime) = 7 Then strTime = "0" + strTime
    HH = Left(strTime, 2)
    MM = Mid(strTime, 4, 2)
    SS = Right(strTime, 2)
    TimeToHHMMSS = HH & MM & SS
End Function

Public Function NowToYMD() As String
Dim D As Byte, M As Byte, Y As Long
    D = Day(Now)
    M = Month(Now)
    Y = Year(Now)
    If Y < 2400 Then
        Y = Y + 543
    End If
    NowToYMD = Format(Y, "0000") + Format(M, "00") + Format(D, "00")
End Function

Public Function NowToYM1() As String
Dim D1 As String, M1 As Byte, Y1 As Long
    D1 = 25
    M1 = Month(Now)
    Y1 = Year(Now)
    If Y1 < 2400 Then
        Y1 = Y1 + 543
    End If

    If M1 = Month(Now) Then
        M1 = M1 - 1
    End If

    NowToYM1 = Format(Y1, "0000") + Format(M1, "00") + Format(26, "00")
End Function

Public Function NowToYM2() As String
Dim D2 As String, M2 As Byte, Y2 As Long
    D2 = 25
    M2 = Month(Now)
    Y2 = Year(Now)
    If Y2 < 2400 Then
        Y2 = Y2 + 543
    End If
    NowToYM2 = Format(Y2, "0000") + Format(M2, "00") + Format(25, "00")
End Function

For i = Date.Now   To DateAdd(DateInterval.Month, 1, Date.Now)

Next