ตัวอย่างครับ
ตัวที่หมายเลขเอกสารไม่มีเครื่องหมาย # พอคลิ๊กเลือกที่หมายเลขเอกสารข้อมูลแสดงปกติ



ตัวที่หมายเลขเอกสารมีเครื่องหมาย # พอคลิ๊กเลือกที่หมายเลขเอกสารข้อมูลไม่แสดง

ไม่ทราบว่าใครเคยเจอหรือเปล่าครับเคสนี้

Revise

ตัวอย่างครับ
ตัวที่หมายเลขเอกสารไม่มีเครื่องหมาย # พอคลิ๊กเลือกที่หมายเลขเอกสารข้อมูลแสดงปกติ

Wildcard characters in Microsoft Access criteria expressions

หลักๆ ที่พบบ่อยจะมีอยู่ 4 ตัว คือ * ? # [
เวลาจะใช้คำเพื่อค้นหา เราจำเป็นต้องใส่ [ ] คล่อมอักษรเหล่านี้เพื่อให้โปรแกรมรู้ว่าเป็นอักษร ไม่ใช่เป็น Wildcard character เช่น หากคุณใส่คำว่า WI-IT-001 #01 ก็ต้องเปลี่ยนเป็น WI-IT-001 [#]01 โปรแกรมถึงจะค้นหาได้ถูกต้อง คราวนี้จะเขียนอย่างไรให้สะดวก มันมีหลายวิธีนะครับ ส่วนตัวผมเอาวิธีง่ายสุดไปใช้ดู คือใช้ฟังก์ชั่น Replace() ครับ เช่น สมมุติ Text Box ช่อง หมายเลขเอกสาร คุณชื่อ Text1 ในโค๊ตเวลาคุณอ้างข้อมูลช่องจาก Text1 แทนที่คุณจะเขียน Me.Text1 ก็เพิ่มเป็น
Replace(Me.Text1, "#", "[#]") แทน ตัวอย่างเช่น
    DoCmd.GoToControl "ID"
    DoCmd.FindRecord Me.Text1, acAnywhere, False, , False, acCurrent, True
ก็เปลี่ยนเป็น
    DoCmd.GoToControl "ID"
    DoCmd.FindRecord Replace(Me.Text1, "#", "[#]", acAnywhere, False, , False, acCurrent, True

ประมาณนี้ครับ

ขอบคุณมากครับอาจารย์มากครับ
ทำได้แล้ว อาจารย์เก่งมากครับผม

    ขอถามอีกนิดครับผม ถ้ามันมีซ้อนกันมากกว่า 1 ตัว เช่น WI-IT-001 *001#
ต้องใส่ Replace อย่างไรครับ
Replace(Me.Text1, "#", "[#]","*",[*]) แบบนี้หรือเปล่าครับ
คำถามนี้เผื่ออนาคตอ่ะครับ เผื่อมันอาจจะมี

ขอขอบพระคุณอีกครั้งครับผม

ถ้าคิดเล่นๆ แบบทุกตัวก็อย่างนี้ดีกว่าครับ
    Dim TTT As String
    TTT = Me.Text1
    TTT = Replace(TTT, "[", "[[]") ' หากมีตัว [ ต้องเปลี่ยนก่อนเลย
    TTT = Replace(TTT, "#", "[#]")
    TTT = Replace(TTT, "*", "[*]")
    TTT = Replace(TTT, "?", "[?]")
    DoCmd.GoToControl "Name"
    DoCmd.FindRecord TTT, acAnywhere, False, , False, acCurrent, True

เดิม: WI-IT-001 *001#
ผลลัพธ์: WI-IT-001 [*]001[#]