การเปรียบเทียบค่า 2 ตาราง 2 ข้อมูล ให้ตรงกันบน Form หลังจากการกรอกข้อมูล


ถ้าเช็ตแค่ 1 ข้อมูลทำได้ แต่ถ้า 2 ข้อมูลครับ รบกวนช่วยแก้ไขโค้ดด้วยครับ

Private Sub Text97_AfterUpdate()
 Dim chk As Variant
chk = DLookup("[Barcode PCB]", "[In Process oki]", "[Barcode PCB] = '" & Me.Text97 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล In Process กรุณาตรวจสอบ"
       Me.Undo
        Exit Sub
    End If
    End Sub

ขอบคุณครับ

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