If IsNumeric(Me.text box Name) Then
Else
MsgBox "ค่าที่คุณใส่สำหรับเขตข้อมูลนี้ไม่ถูกต้อง ", vbOKOnly, "แจ้ง"
Me.Me.text box Name.Value = ""
End If

If IsNumeric(Me.text box Name) Then
Else
MsgBox "ค่าที่คุณใส่สำหรับเขตข้อมูลนี้ไม่ถูกต้อง ", vbOKOnly, "แจ้ง"
Me.ext box Name.Value = ""
End If

ผมลองเอา code ของ sorn ไปดักแล้วมันไม่ทันครับ มันขึ้นก่อนการตรวจสอบ หรือว่าจะไปเซ็ท ที่ Property ได้ไหมครับ

Private Sub Text43_LostFocus()
     If IsNumeric(Me.Text43) Then
     Else
        MsgBox "ค่าที่คุณใส่สำหรับเขตข้อมูลนี้ไม่ถูกต้อง ", vbOKOnly, "แจ้ง"
        Me.Text43.Value = ""
     End If
       -
       -

       -

End Sub
ผมแนบรูปมาด้วยครับ

น่าจะเป็นรูปแบบการป้อน และ ตำแหน่ง ที่กำหนด ใน Popertie
ผมว่า น่าจะต้องเอา ตรงนี้ออก แล้วใช้โคตของคุณ Sorn อย่างเดียว
ใน Event Afterupdate

เมื่อเกิดข้อผิดพลาดเกี่ยวกับฟอร์มหรือคอนโทรลใดๆบนฟอร์ม Form_Error event จะถูกกระตุ้นให้ทำงานก่อนที่ข้อผิดพลาดของระบบจะถูกแสดง ดังนั้นต้องไปใส่โค้ดไว้ที่นั่น ตย.

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Select Case DataErr
        Case 2113: MsgBox "ค่าที่คุณใส่สำหรับเขตข้อมูลนี้ไม่ถูกต้อง", vbOKOnly, "แจ้ง"
        Case Else: MsgBox "ผิดพลาดรหัส " & CStr(DataErr) & " : " & Error(DataErr)
    End Select
    Response = acDataErrContinue
End Sub


อากิวเมนท์ DataErr จะบอกว่ารหัสที่เกิดผิดพลาดนั้นคือรหัสอะไร เราสามารถใช้ Error( ) ฟังก์ชั่นเพื่อแสดงข้อความเดิมของข้อผิดพลาดนี้ได้ ส่วนอากิวเมนท์ Response ให้เรากำหนดค่าเป็น acDataErrContinue เพื่อบอก Access ว่ามันไม่ต้องแสดงข้อความเดิมของข้อผิดพลาด เราจะจัดการเอง

อ.สันติสุขครับ คือ ถ้ามันฟ้อง Error เป็น 1234 เราสามารถกำหนด

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
        Case 1234
        Case Else: MsgBox "ผิดพลาดรหัส " & CStr(DataErr) & " : " & Error(DataErr)
    End Select
    Response = acDataErrContinue
End Sub

คือ ไม่ใส่อะไรเลย เพื่อให้ มันข้าม Error นั้นไปเฉยๆ ได้ใช่มั้ยครับ

ถ้ามันฟ้อง Error เป็น 1234 เราสามารถกำหนดให้มันข้าม Error นั้นไปเฉยๆ แต่ Error อื่นยังฟ้องปกติ โดย

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 1234 Then
        Response = acDataErrContinue
    End If
End Sub

ถ้าคำว่าข้าม Error หมายถึงไม่ให้มันตรวจจับข้อผิดพลาดนั้น อย่างนี้ทำไม่ได้ครับ เราทำได้แค่ให้แสดงข้อความผิดพลาดหรือไม่แสดง ได้เท่านั้นเอง ไม่งั้นข้อมูลรวนหมด

ขอบคุณ อ.สันติสุข มากเลยครับ ผมลองทำตามที่ อ.สันติสุข บอกมา แล้วตรวจสอบ Error Code ได้เลยครับ(ตามรูปที่ส่งมาด้วย) และจะได้นำไปประยุกต์ใช้งานต่อไปครับ และขอขอบคุณทุกท่านด้วยครับ ที่ให้คำแนะนำมา