กระทู้เก่าบอร์ด อ.Yeadram
1,694 8
URL.หัวข้อ /
URL
เลือกช่วงวันที่ในฟอร์ม แล้ว Query ออกมาเป็นวันที่ท
อยากทราบวิธีการเขียน Query ให้หลังจากที่เราเลือกช่วงของวันที่ แล้วให้โชว์วันทั้งหมดที่อยู่ในช่วงของวันที่เลือกครับ เช่น
เลือก 01-01-2015 และ 31-01-2015 ให้โชว์
01-01-2015
02-01-2015
03-01-2015
.
.
31-01-2015
หรือเลือกเดือนจาก combo box แล้วกดปุ่ม run query เช่นเลือก January 2015
ให้โชว์เหมือนด้านบน
ต้องเขียนอย่างไรครับ เนื่องจากข้อมูลจะโชว์เฉพาะวันที่มีการ Key In เท่านั้นและโปรแกรมที่เขียนขึ้นไม่ได้ทำการเปิดทุกวันเหมือนเครื่องสแกนบัตรเข้าทำงาน เลยไม่รู้ว่าจะให้มันเก็บวันที่จากไหนให้ครบทุกวันครับ
เลือก 01-01-2015 และ 31-01-2015 ให้โชว์
01-01-2015
02-01-2015
03-01-2015
.
.
31-01-2015
หรือเลือกเดือนจาก combo box แล้วกดปุ่ม run query เช่นเลือก January 2015
ให้โชว์เหมือนด้านบน
ต้องเขียนอย่างไรครับ เนื่องจากข้อมูลจะโชว์เฉพาะวันที่มีการ Key In เท่านั้นและโปรแกรมที่เขียนขึ้นไม่ได้ทำการเปิดทุกวันเหมือนเครื่องสแกนบัตรเข้าทำงาน เลยไม่รู้ว่าจะให้มันเก็บวันที่จากไหนให้ครบทุกวันครับ
8 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R20353
พี่ครับ link มัน Error ครับขออันใหม่ครับต้องการอย่างมากครับ
3 @R20354
http://www.thai-access.com/yeadram_view.php?topic_id=3708
http://www.thai-access.com/yeadram_view.php?topic_id=3542
http://www.thai-access.com/yeadram_view.php?topic_id=3542
4 @R20355
ที่พี่ให้ดูคือการกรองข้อมูลตามที่เลือกช่วงเวลา แต่ผมอยากให้เมื่อกำหนดช่วงเวลา เช่น 01-01-2015 และ 31-01-2015 ให้มันสร้างวันขึ้นมา 31 วันครับต้องทำอย่างไร
5 @R20356
ถ้าอย่างนั้นก็ต้องเขียน code วน loop เพื่อ insert data ลงไปทีละ record ครับ ไม่สามารสร้าง query Select สิ่งที่ไม่เคยมีขึ้นมาได้ครับ
6 @R20357
sample สักนิดครับพี่
7 @R20358
ลองดูครับ ไม่ได้เขียนมานาน
สร้าง textbox 2 อัน ชื่อ FromDate และ ToDate มี Format เป็น Shortdate
สร้างปุ่มกด ชื่อ cmdCreateDate
Private Sub cmdCreateDate_Click()
Dim i As Date
For i = FromDate To ToDate
' นำ i ไปใช้ ทำอะไร
debug.print i
Next
End Sub
ไม่ได้ตรวจสอบอะไร เลยนะครับ ก่อนไปใช้ต้อง ตรวจสอบก่อน
สร้าง textbox 2 อัน ชื่อ FromDate และ ToDate มี Format เป็น Shortdate
สร้างปุ่มกด ชื่อ cmdCreateDate
Private Sub cmdCreateDate_Click()
Dim i As Date
For i = FromDate To ToDate
' นำ i ไปใช้ ทำอะไร
debug.print i
Next
End Sub
ไม่ได้ตรวจสอบอะไร เลยนะครับ ก่อนไปใช้ต้อง ตรวจสอบก่อน
8 @R20359
ขอลองก่อนนะครับ ขอบคุณมากครับ
Time: 0.3314s
http://www.thai-access.com/yeadram_view.php?topic_id=3708
http://www.thai-access.com/yeadram_view.php?topic_id=3542