เป็น 1 ถูกแล้วครับ
เวลาจะค้นหาถ้าผ่านฟอร์มก็ใช้การตัดคำให้เหลือเฉพาะตัวเลขเหมือนกับที่จัดเก็บในตารางเช่น
Private Sub Command25_Click()
Dim getID As String
getID = Me.txtSearch 'รับค่าการค้นหาเข้ามาโดยพิมพ์ค้นหา ISP-001 ได้ตามปกติ
getID = Val(Right(getID, Len(getID) - InStrRev(getID, "-"))) 'ตัดคำให้เหลือเฉพาะ ค่าตัวเลข 3 หลักสุดท้ายคือ "000" แล้วใช้ Val แปลงเป็นตัวเลข
Forms![frmtest].Form.Filter = "[INSP_ID] =" & getID 'กำหนดให้ตัวเลขที่ได้นั้น ไปใช้ค้นหาข้อมูลจริง
Forms![frmtest].Form.FilterOn = True
End Sub
ลองทดสอบดูนะครับ