ใช้ Like *คำค้นหา* หรือเปล่าครับ
ควรแสดงคำสั่งที่ใช้มาด้วยครับจะได้ตอบได้ตรงจุด

คือหมายถึงบนฟอร์ม เมื่อใส่คำใน Textbox สำหรับรับคำที่ต้องการกรอง เช่น
A B ก็หมายถึงให้แสดงเรคคอร์ดที่มีอักษร A หรือ B อยู่ในฟิลด์นั้นใช่หรือเปล่าครับ หากใช่ ลองดูตัวอย่างนี้นะครับ

ตารางชื่อ Table1
----------
aName
----------
A
B
C
C
E
-----------

สร้างฟอร์มขึ้นมาโดยดึงข้อมูลจาก Table1
Textbox สำหรับค้นหาคำชื่อ Text1
ใส่โค๊ดในเหตุการณ์ดังนี้:

    If Me.Text1 & "" = "" Then
        Me.Filter = ""
        Me.FilterOn = False
    Else
        Dim NControl As String, TTT As String
        NControl = "Table1.aName Like '*"
        TTT = Me.Text1
        If Me.Text1 Like "* *" Then
            TTT = Replace(TTT, " ", "*' OR " & NControl)
        End If
        Me.Filter = NControl & TTT & "*'"
        Me.FilterOn = True
    End If


ประมาณนี้ครับ
- หลักการณ์ก็คือหากมีวรรคใน Text1 ก็ให้เปลี่ยนเป็นเงื่อนไข OR *คำหลังวรรค*
- สมมุติจากคำที่คีย์เป็น A B C ก็จะกลายเป็นคำสั่ง
"Table1.aName Like '*A*' OR Table1.aName Like '*B*' OR Table1.aName Like '*C*'"
แทนที่จะเป็น
"Table1.aName Like '*A B C*'"

ปรับใช้ดูครับ

ขอบคุณมากๆเลยครับ