กระทู้เก่าบอร์ด อ.Yeadram
1,087 3
URL.หัวข้อ /
URL
ค้นหาใน textbox และช่วงเวลา
ตอนนี้ผมสามารถหาข้อมูลจาก textbox ได้ไม่มีปัญหา แต่พอผมเพิ่มช่องใส่วันที่เริ่มต้น-สิ้นสุดเข้าไป แล้วไม่สามารถหาข้อมูลได้ พร้อมทั้งเกิด error '13' Type mismatch ไม่ทราบว่า เกิดจากปัญหาอะไรเหรอครับ
โค้ดที่มีปัญหาคือ
Me.Filter = "[ReceivedDate] between #" & Me.txtFirstDate & "# and #" & Me.txtLastDate & "#" And "[ItemNo] Like '*" & Me.txtSearch & "*'"
เงื่อนไขที่ผมต้องการคือ
1. หากไม่ใส่วันที่ก็จะค้นหาตาม Keyword ใน textbox
2. หากใส่วันที่แต่ไม่ใส่ Keyword ก็จะค้นหาตามวันที่กำหนด
3. หากใส่วันที่พร้อม keyword ก็จะแสดงข้อมูลตาม keyword และวันที่ดังกล่าว
โค้ดที่มีปัญหาคือ
Me.Filter = "[ReceivedDate] between #" & Me.txtFirstDate & "# and #" & Me.txtLastDate & "#" And "[ItemNo] Like '*" & Me.txtSearch & "*'"
เงื่อนไขที่ผมต้องการคือ
1. หากไม่ใส่วันที่ก็จะค้นหาตาม Keyword ใน textbox
2. หากใส่วันที่แต่ไม่ใส่ Keyword ก็จะค้นหาตามวันที่กำหนด
3. หากใส่วันที่พร้อม keyword ก็จะแสดงข้อมูลตาม keyword และวันที่ดังกล่าว
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R22512
เพิ่มเติมครับ ลืมไป1อย่าง
สร้างปุ๋ม ฺButton ใช้ชื่อ Find แล้วใส่โค้ดดังนี้ครับ
Private Sub Find_Click()
Me.Requery
End Sub
สร้างปุ๋ม ฺButton ใช้ชื่อ Find แล้วใส่โค้ดดังนี้ครับ
Private Sub Find_Click()
Me.Requery
End Sub
3 @R22513
ขอบคุณคุณ ekkaphon มากครับ จะลองไปประยุกต์ใช้ดูนะครับ
Time: 0.2644s
1.สร้าง Text Box 2อัน กำหนดชื่อ BDate และTDate(เป็นระหว่างวันที่)
2.สร้าง Text Box อีก1อัน กำหนดชื่อKeyword
3.สร้างQuery ดังนี้
-กำหนดฟิวส์โดยมีฟิวส์ วันที่ 2ช่อง และช่องที่ต้องการใช้ Keywordค้นหา(รวม3ช่อง)
-ช่องวันที่ กำหนดค่าเป็น >=[Forms]![ชื่อฟอร์ม]![BDate] And <=[Forms]![ชื่อฟอร์ม]![TDate] กำหนดผลรวมเป็น Where และอีก1ช่องกำหนดผลรวมเป็น Group By
-ช่อง Keyword กำหนดค่าเป็น Like "*" & [Forms]![ชื่อฟอร์ม]![Keyword] & "*"
ลองดูนะครับ ผมใช้สูตรนี่้ได้ผลดีครับ