Private Sub TextFind_AfterUpdate()
On Error GoTo Err_Find
     Dim CutFName As String
     Dim CutLName As String
     Dim len_name As Byte
      If IsNumeric(TextFind) Then     'MsgBox "เป็นตัวเลข"
     DoCmd.ApplyFilter , "รหัสประจำตัว like '" & [TextFind] & "*'เลขประจำตัวประชาชน  like '" & [TextFind] & "*'"
        len_name = 0
        End If
     If Not IsNumeric(TextFind) Then   'MsgBox "เป็นตัวหนังสือ"
         len_name = InStr([TextFind], " ")
            If len_name > 0 Then
                CutFName = Left([TextFind], [len_name] - 1)
                CutLName = Right([TextFind], Len(TextFind) - [len_name])
                DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
        Else
                DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
    End If
    End If
    TextFind = Null
    TextFind.SetFocus
    Exit Sub
Err_Find:
   TextFind = Null
   TextFind.SetFocus
End Sub

ผมต้องการ ค้นหาพบ ให้แสดงข้อมูล (ปัจจุบันเป็นเช่นนั้นแล้ว) แต่หากค้นหาไม่พบให้แสดง .ข้อความว่าไม่พบ. (แบบเดิมแสดงเป็นแถวว่างไม่มีข้อมูล  เหมือนการเพิ่มแถวอัตโนมัติ ตรวจสอบใน Mysql) จะเพิ่มโค๊ตตรงไหนครับ

ผมมีตาราง tb_recuit และได้สร้างคิวรีชื่อ select เพื่อกรองข้อมูลที่ต้องการ ซึ่งมีแถวมาก น้อย แล้วแต่ข้อมูลของพื้นที่ ต่อจากนั้นผมต้องการให้ฟิวส์"เลขที่สด1" update ผลจาก text1-text2=text3 ต้องการผลลัพท์มาใส่ เลขที่สด1 พร้อมกันทุกแถวที่เรากรองข้อมูลออกมา(แต่ไม่สำเร็จ)
Dim SQL As String
        SQL = "UPDATE select SET select.เลขที่สด1 =Text188.value"
        DoCmd.SetWarnings False
            Me.Refresh

เอา code ไปวางไว้ที่ไหน ของผมใช้ 32 บิต พนไปเจอ 64 บิต จะต้องถอนลงใหม่ตลอด

ขอพระคุณมากครับท่านอาจารย์แหลมทอง ผมทำสำเร็จตามคำแนะนำของท่านแล้ว

ต้องการ...เลขประชาชน,ชื่อ,นามสกุล,วัน เดือน ปี เกิด,ที่อยู,รูปถ่าย เช่น (9 กุมภาพันธ์ 2562,14:37,"1 1027 00249 92 2",นาย,อมรชัย,พงษ์สละ,Mr.,Amonchai,Phongsala,3 มีนาคม 2536,ชาย,พุทธ,25 ปี,26 ปี,54,หมู่ที่ 4,,,,ตำบลศรีละกอ,อำเภอจักราช,จังหวัดนครราชสีมา,1 พฤษภาคม 2560,2 มีนาคม 2569,"3006-03-05011106",อำเภอจักราช นครราชสีมา,"3006-4-118100/05011106",1102700249922.jpg) ไปเก็บในตาราง access ต่อจากนั้นผนจะเพิ่มเติมข้อมูลให้ครบตามความต้องการ

-vi[ผมสร้างบาร์โค๊ต code128 โดย เลขประจำตัวประชาชน สามารถอ่านเลข 13 หลัก ตามปกติ...เมื่อยิงบาร์โค๊ตเข้าไปแล้วจะต้อง ENTER อีกครั้ง จึงสามารถค้นได้  ความประสงค์ของผมเมื่อยิงบาร์โค๊ตแล้วให้แสดงผลการค้นหาอัตโนมัติ......