กระทู้เก่าบอร์ด อ.Yeadram
848 4
URL.หัวข้อ /
URL
เลือกแบบช่วงวันที่ แต่แสดงไม่หมดทุกวัน
มีช่องให้เลือกวัน 2 ช่องคือ OrderDateFrom กับ OrderDateTo เป็น textbox ตั้งค่าเป็น short Date
แต่เมื่อกรองข้อมูล พบว่าแสดงบนฟอร์มย่อยแค่บางอัน อย่างวันที่1/6/2559 ถึง 30/6/2559 จะไม่มีข้อมูลเลย แต่พอเลือก 23/6/2559 - 30/6/2559 แสดงข้อมูลอยู่ในช่วงที่เลือก ยกเว้นอันที่เท่ากับของ DateFrom คือ 23/6/2559 ไม่แสดง
โค้ดค่ะ
Private Sub buttonSearch_Click()
Dim dDate As Date
Me.RepairDataSubSearch.Form.Filter = "[วันที่] BETWEEN #" & Me.OrderDateFrom & "# AND #" & Me.OrderDateTo & "# "
Me.RepairDataSubSearch.Form.FilterOn = True
End Sub
แต่เมื่อกรองข้อมูล พบว่าแสดงบนฟอร์มย่อยแค่บางอัน อย่างวันที่1/6/2559 ถึง 30/6/2559 จะไม่มีข้อมูลเลย แต่พอเลือก 23/6/2559 - 30/6/2559 แสดงข้อมูลอยู่ในช่วงที่เลือก ยกเว้นอันที่เท่ากับของ DateFrom คือ 23/6/2559 ไม่แสดง
โค้ดค่ะ
Private Sub buttonSearch_Click()
Dim dDate As Date
Me.RepairDataSubSearch.Form.Filter = "[วันที่] BETWEEN #" & Me.OrderDateFrom & "# AND #" & Me.OrderDateTo & "# "
Me.RepairDataSubSearch.Form.FilterOn = True
End Sub
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R22198
ตอนนี้ลองใช้ Code
ลองสังเกตดูตรงช่องค้นหาเป็น วัน/เดือน/ปี แต่ตรง filter เป็น เดือน/วัน/ปี ไม่ทราบว่าใช่สาเหตุไหมคะ ถ้าใช่ควรแก้อย่างไรดี
Private Sub buttonSearch_Click()
Me.RepairDataSub.Form.Filter = "[วันที่] between #" & Format(Me.OrderDateFrom, "dd\/mm\/yyyy") & "#" & "and #" & Format(Me.OrderDateTo, "dd\/mm\/yyyy") & "#"
Me.RepairDataSub.Form.FilterOn = True
Me.RepairDataSub.Form.Requery
End Sub
ลองสังเกตดูตรงช่องค้นหาเป็น วัน/เดือน/ปี แต่ตรง filter เป็น เดือน/วัน/ปี ไม่ทราบว่าใช่สาเหตุไหมคะ ถ้าใช่ควรแก้อย่างไรดี
3 @R22210
จะให้กรองข้อมูลตามช่วงวันที่
ตามกระทู้บนเลยครับผมพึ่งตั้งคำถามแนวนี้ไป
อ.สันติสุข แนะนำให้เปลี่ยนระบบวันที่เป็น ค.ศ. ครับ
http://www.thai-access.com/yeadram_view.php?topic_id=2294&page=1
ตามกระทู้บนเลยครับผมพึ่งตั้งคำถามแนวนี้ไป
อ.สันติสุข แนะนำให้เปลี่ยนระบบวันที่เป็น ค.ศ. ครับ
http://www.thai-access.com/yeadram_view.php?topic_id=2294&page=1
4 @R22211
ปล.แต่ถ้าคงยังต้องการให้แสดงออกมาเป็นปี พ.ศ. ค่อยใช้มาโครแปลงกลับมาอีกทีครับ (หาดูในเว็บนี้มีครับ)
Time: 0.2638s
ตอนนี้ระบบประมาณ มีฟอร์มไว้เพิ่มข้อมูลลงตาราง RepairData โดยมีฟอร์มย่อยชื่อ RepairDatasub ทำได้แล้ว
แต่มีอีกฟอร์มไว้ค้นหาข้อมูลที่บันทึกไว้ ชื่อ FormSearch ทำได้แต่กรองข้อมูล combobox 3 ชั้น แต่ไม่สามารถทำเลือกระหว่างวันที่ได้ โดยทำตามคลิป https://www.youtube.com/watch?v=EFQ6ClG3KUs แล้ว สามารถกดปุ่ม Search ได้ แต่ข้อมูลในฟอร์มย่อยไม่มีอะไรขึ้นสักอัน
ตัวอย่่าง code ค่ะ
Dim strcriteria, task As StringMe.Refresh
If IsNull(Me.OrderDateFrom) Or IsNull(Me.OrderDateTo) Then
MsgBox "Please enter the data range", vbInformation, "Date Range Required"
Me.OrderDateFrom.SetFocus
Else
strcriteria = "(วันที่ >= # " & Me.OrderDateFrom & "# and วันที่ <= #" & Me.OrderDateTo & "#)"
task = "Select * from RepairData where (" & strcriteria & ") "
DoCmd.ApplyFilter task
End If