รบกวนสอบถามเรื่องการทำ Form และทำช่อง Search สำหรับ Query



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

06 เม.ย. 63 , 11:35:49
อ่าน 128 ครั้ง

พิชญะ ชัยชนะ

รบกวนสอบถามเรื่องการทำ Form และทำช่อง Search สำหรับ Query
ก่อนหน้านี้ผมทำ Form สำหรับ Table และทำช่องใส่ข้อความสำหรับกด Search ประมาณนี้

ชื่อปุ่ม txtsearch
ตารางtable คือ req2
ฟอร์ม req2
ช่องที่กรอกชื่อ se1

Private Sub txtsearch_Click()
DoCmd.ApplyFilter "", "[req2]![importer] Like '*' & [Forms]![req2]![se1] & '*'", ""
End Sub

แต่พอเปลี่ยนจากฐานข้อมูลที่เป็น table มาเป็น query ที่ชื่อก็ไม่ได้ซ้ำกันกับ table ปรากฏว่าข้อความขึ้น error ดังนี้
The expression on click you entered as the event property setting produced the following error:
Duplicate option statement.

เลยไม่แน่ใจว่าการเขียนคำสั่ง search สำหรับ form ที่ link กับ query จะต้องมีส่วนใดแก้ไม่ได้ใช้แบบเดียวกับ table หรือไม่ครับ
ขอบคุณครับ

 

06 เม.ย. 63 , 11:41:59
ตอบกลับ #1

พิชญะ ชัยชนะ

ถามเองตอบเองแก้ไขได้แล้วครับ
ตอนแรกเป็นแบบนี้
Option Compare Database

Option Compare Database

Private Sub clear_Click()
Me.Filter = ""
Me.FilterOn = False
Me.se1 = ""
Me.se2 = ""
Me.se3 = ""
Me.se4 = ""
Me.se5 = ""
Me.se6 = ""
Me.se7 = ""
Me.Frame436 = ""
Me.se8 = ""
End Sub

Private Sub txtsearch1_Click()
DoCmd.ApplyFilter "", "[req2]![importer] Like '*' & [Forms]![req2]![se1] & '*'", ""
End Sub

นั้นคือมีคำว่า
Option Compare Database
ซ้ำกัน 2 อันต้องลบออก ให้เหลืออันเดียว - -"

 


บอร์ดเรียนรู้ Access สำหรับคนไทย