اريد حل فى البحث فى حقل من النوع وقت

أرفق مثال

ستكون الكود كامل هكذا

Private Sub Command1_Click()
Dim i As Long
i = 0
Set Rs = CN.Execute("SELECT * FROM tb1 WHERE Today_date Between  '" & Text1.Text & "' and  '" & Text2.Text & "' and start_time>='" & Text3.Text & "' or Today_date Between  '" & Text1.Text & "' and  '" & Text2.Text & "' and end_time<='" & Text4.Text & "'")
   Do While Rs.EOF = False
        i = i + 1
        MSFlexGrid1.Rows = i + 1
        MSFlexGrid1.TextMatrix(i, 0) = Rs("Today_date")
        Rs.MoveNext ' íÌÈ Çä ÊÖíÝåÇ
   Loop
Rs.Close
Set Rs = Nothing
End Sub

شكرا جزيلا للاخ محمد vb والاخ magnon للمساعده

لقد توصلت للمشكلة وحولت حلها وهيا البحث من الفتر 6 مساء حتى الساعه 12 مساء

والبحث مرة اخرة من بعد 12 مساء حتى 6 صباحا وهو يأتى بالمعلومات الصحيحه (المشكلة هو لايفرق بين الوقتين فى البحث بين الزمن حيث انه يعتبر الكود يريد الحصول على الفترة الزمنية فى يوم واحد وما ادري هل الخطيء بالفيجوال او بدوال الفيجوال او بي عموما انا طورة البحث ولكن لا اعرف ازاى اجمع النتائج على بعض اليكم البحث واريد جمع النتائج فى فلكس جريد مرتبا من الاصغر حتى الاعلى يعنى من المساء حتى الصباح )

ولكن اريد الجمع بين البحثين حتى ياتى بالناتج مرة واحده فى الفلكس جريد

اليكم الكود

Private Sub gh()

If Rs.EOF = True Then

MsgBox "There are no records registered in this period", vbExclamation + vbMsgBoxleft, "Search"

MSFlexGrid1.Clear

MSFlexGrid1.Rows = 1

MSFlexGrid1.Clear

MSFlexGrid1.Rows = 1

MSFlexGrid1.TextMatrix(0, 0) = "location"

MSFlexGrid1.ColWidth(0) = 1500

MSFlexGrid1.TextMatrix(0, 1) = "Date"

MSFlexGrid1.ColWidth(1) = 1300

MSFlexGrid1.TextMatrix(0, 2) = "Start Time"

MSFlexGrid1.ColWidth(2) = 1600

MSFlexGrid1.TextMatrix(0, 3) = "to Time"

MSFlexGrid1.ColWidth(3) = 1600

MSFlexGrid1.TextMatrix(0, 4) = "Time"

MSFlexGrid1.ColWidth(4) = 1400

MSFlexGrid1.TextMatrix(0, 5) = "Account"

Else

Do While Not Rs.EOF

i = i + 1

MSFlexGrid1.Rows = i + 1

MSFlexGrid1.TextMatrix(i, 0) = Rs("Location")

MSFlexGrid1.TextMatrix(i, 1) = Rs("Today_date")

MSFlexGrid1.TextMatrix(i, 2) = Rs("start_time")

MSFlexGrid1.TextMatrix(i, 3) = Rs("end_time")

MSFlexGrid1.TextMatrix(i, 4) = Rs("Elapse_time")

MSFlexGrid1.TextMatrix(i, 5) = Rs("Account")

Rs.MoveNext ' íÌÈ Çä ÊÖíÝåÇ

Loop

End If

'ãä ÇáÝÊÑÉ 6 ÇáãÛÑÈ ÍÊì 12 ÈÇáíá

'==============================================================

Text3 = "06:00:00"

Text4 = "23:59:59"

c = Format(Text3 & "p", "hh:nn:ss")

d = Format(Text4 & "p", "hh:nn:ss")

MsgBox c

MsgBox d

SQL = "SELECT * FROM Tb1 WHERE Tb1.start_time Between #" & c & "# and #" & d & "# and (((tb1.today_date) Between '" & Text1.Text & "' and '" & Text2.Text & "'))"

Set Rs = CN.Execute(SQL)

Call gh

'===============================================================

'ãä 12 ÈÇáíá ÍÊì 6 ÕÈÇÍÇð

'=================================================================

Text5 = "00:00:00"

Text6 = "06:00:00"

A = Format(Text5 & "a", "hh:nn:ss")

n = Format(Text6 & "a", "hh:nn:ss")

MsgBox A

MsgBox n

SQL = "SELECT * FROM Tb1 WHERE start_time Between #" & A & "# and #" & n & "# and (((tb1.today_date) Between '" & Text1.Text & "' and '" & Text2.Text & "'))"

'SQL = SQL1 & SQL2

Set Rs = CN.Execute(SQL)

Call gh

'==================================================================