ส่งรูปผิดครับ

รูปบนไม่ใช่น่ะครับ
เป็นรูปข้างล่าง
ขอบคุณครับ

ใน Form_Error event procedure ของ sub form ให้ใส่โค้ด

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 3201 Then
        Me.ชื่อเท็กซ์บ็อกซ์ที่ใส่รหัสสินค้า = Null
        Me.ชื่อเท็กซ์บ็อกซ์ที่ใส่รหัสสินค้า.SetFocus
        Response = acDataErrContinue
    End If
End Sub

ผมไม่แน่ใจว่า error code คือ 3201 หรือไม่ ถ้าไม่ใช่ก็ให้ trap หาค่ารหัสที่ถูกต้องจาก DataErr นะครับ

แต่ถ้าให้ดีกว่านี้ เราสามารถใช้คอมโบบ็อกซ์ที่มีรหัสสินค้าทั้งหมดที่มีในระบบให้ผู้ใช้เลือก และบังคับให้เลือก/ป้อนได้เฉพาะที่มีเท่านั้น แทนการใช้เท็กซ์บ็อกซ์สำหรับป้อนรหัสสินค้า

ขอบคุณ คุณสันติสุข มากๆครับ ทำได้แล้วครับ
ขอบคุณอีกครั้งครับ