สอบถามการตรวจสอบก่อนเพิ่มข้อมูล

[ชวลิต เสนะสุทธิ]

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

[PNR]

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

ใช้ Dlookup check ได้ครับ โดยใช้อีเว้น Afterupdate ครับ โดยใช้โค้ดวิวจากตาราง IN โดยเปรียบเทียบกับ Textbox ของตาราง Out
เช่น if isnull(dlookup("ชื่อฟิลด์","ชื่อตาราง","[Tag no Barcode]='" & me.ชื่อTextboxbarcodeFormout &"'")) then
Msgbox "แจ้งเตือน"
Me.ชื่อTextboxbarcodeFormout.setfocus
Me.ชื่อTextboxbarcodeFormout = Null
End if
ลองดูครับพิมพ์กับโทรศัพท์ยังไม่ได้เทส code เดี๋ยวพรุ่งนี้มาดูให้อีกทีถ้าไม่ได้

[ชวลิต เสนะสุทธิ]

ขอบคุณครับ ไมทราบทำถูกเปล่าครับ

Private Sub Text9568_AfterUpdate()
Dim chk
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[Out Process oki]![TAG No Barcode]='" & Me![Text9568] & " ' ")
If (IsNull(chk)) Then
MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
Else
End If

[PNR]

Dim Chk as String ไปดีกว่าครับ
ควรกำหนดประเภทข้อมูลให้ตัวแปรด้วยเน้อ

[ชวลิต เสนะสุทธิ]

ประมาณนี้ไหมครับ

Private Sub Text9568_AfterUpdate()
Dim chk As String
chk = DLookup("TAG No Barcode", "In Process oki", "TAG No Barcode='" & Me.Text9568 & "'")
If (IsNull(chk)) Then
MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
Else
DoCmd.GoToRecord
End If

[ชวลิต เสนะสุทธิ]

Private Sub Text9568_AfterUpdate()
Dim chk As String
chk = DLookup("TAG No Barcode", "In Process oki", "TAG No Barcode='" & Me.Text9568 & "'")
If IsNull(chk) Then
MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
    Exit Sub
End If
End Sub

[PNR]

chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode]='" & Me.Text9568 & "'")

ถ้าชื่อมีช่องว่าง ควรมี [] ด้วยนะครับ

[ชวลิต เสนะสุทธิ]

ได้แล้วครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
        Exit Sub
    End If

แต่ถ้าต้องการไม่ให้บันทึกได้แหละครับทำไงคับ ขอบคุณครับ

[PNR]

ได้แล้วครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
        Exit Sub
    End If

แต่ถ้าต้องการไม่ให้บันทึกได้แหละครับทำไงคับ ขอบคุณครับ

ใช้ Me.undo ก็ได้ครับ
Dim chk As Variant
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode] = '" & Me.Text95 & "'")
    If IsNull(chk) Then
       MsgBox "ไม่มีข้อมูล Process ก่อนหน้านี้ "
me.undo
        Exit Sub
    End If

[ชวลิต เสนะสุทธิ]

ขอบคุณมากครับที่ให้ความรู้