Mình có 1 vấn đề phát sinh khi lọc dữ liệu theo ngày tháng năm và giờ phút,định dạng của mình là text.Ứng với chữ A từ 6:00 tới 13:59,B từ 14:00 tới 21:59,C từ 22:00 tới 5:59 ngày hôm sau.Và đoạn code sau mình vẫn chạy ổn định,vấn đề phát sinh khi dữ liệu chuyển sang năm mới trùng ngày tháng,khi mình lọc dữ liệu với số giờ từ 22:00 tới 5:59 ngày hôm sau thì không thể lọc được,còn từ 6:00 tới 21:59 thì vẫn OK.
VD:dữ liệu cũ 11/21/2017 23:24:25,Trung,Lào Cai,... và dữ liệu mới 11/21/2018 2:45:30,Tuan,Hội An,...
Các anh chị,các bạn ai biết hướng dẫn mình sửa lại đoạn code sau:
Dim strSQL
Dim strTGSTART
Dim strTGEND
If Me![Combo27] = "A" Then
strTGSTART = "'" & Me![Text6] & " 06:00'"
strTGEND = "'" & Me![Text6] & " 13:59'"
ElseIf Me![Combo27] = "B" Then
strTGSTART = "'" & Me![Text6] & " 14:00'"
strTGEND = "'" & Me![Text6] & " 21:59'"
ElseIf Me![Combo27] = "C" Then
strTGSTART = "'" & Me![Text6] & " 22:00'"
strTGEND = "'" & Mid(CStr(DateAdd("d", 1, Me![Text6])), 1, 10) & " 05:59'" //ngày mình cộng thêm 1 vì là ngày hôm sau
End If
https://drive.google.com/file/d/1U2q1bBv...sp=sharing(hình forms )