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


0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

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


 

20 ส.ค. 63 , 19:25:31
ตอบกลับ #1

PNR

: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #1 เมื่อ: 20 ส.ค. 63 , 19:25:31 »
สอบถามได้ทำการสร้างฟอร์มขึ้นมาเพื่อเพิ่มข้อมูล แต่อยากให้ก่อนเพิ่มข้อมูลต้องตรวจสอบว่า อีกตารางมีข้อมูลที่กำหนดแล้วหรือไม่ ถ้ามีให้ทำต่อไป ถ้าไม่มีให้มีข้อความแจ้งเตือน
ตามรูปครับ


ใช้ 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 เดี๋ยวพรุ่งนี้มาดูให้อีกทีถ้าไม่ได้
Time to stop for me  :dizzy:
 

21 ส.ค. 63 , 07:57:09
ตอบกลับ #2
: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #2 เมื่อ: 21 ส.ค. 63 , 07:57:09 »
ขอบคุณครับ ไมทราบทำถูกเปล่าครับ

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
« แก้ไขครั้งสุดท้าย: 21 ส.ค. 63 , 09:45:58 โดย ชวลิต เสนะสุทธิ »

 

21 ส.ค. 63 , 13:01:32
ตอบกลับ #3

PNR

: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #3 เมื่อ: 21 ส.ค. 63 , 13:01:32 »
Dim Chk as String ไปดีกว่าครับ
ควรกำหนดประเภทข้อมูลให้ตัวแปรด้วยเน้อ
Time to stop for me  :dizzy:
 

21 ส.ค. 63 , 13:09:55
ตอบกลับ #4
: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #4 เมื่อ: 21 ส.ค. 63 , 13:09:55 »
ประมาณนี้ไหมครับ

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

 

21 ส.ค. 63 , 13:27:20
ตอบกลับ #5
: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #5 เมื่อ: 21 ส.ค. 63 , 13:27:20 »


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
« แก้ไขครั้งสุดท้าย: 21 ส.ค. 63 , 13:43:30 โดย ชวลิต เสนะสุทธิ »

 

21 ส.ค. 63 , 15:17:03
ตอบกลับ #6

PNR

: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #6 เมื่อ: 21 ส.ค. 63 , 15:17:03 »
chk = DLookup("[TAG No Barcode]", "[In Process oki]", "[TAG No Barcode]='" & Me.Text9568 & "'")

ถ้าชื่อมีช่องว่าง ควรมี [] ด้วยนะครับ
Time to stop for me  :dizzy:
 

21 ส.ค. 63 , 15:55:59
ตอบกลับ #7
: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #7 เมื่อ: 21 ส.ค. 63 , 15:55:59 »
ได้แล้วครับ
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

แต่ถ้าต้องการไม่ให้บันทึกได้แหละครับทำไงคับ ขอบคุณครับ
« แก้ไขครั้งสุดท้าย: 21 ส.ค. 63 , 17:05:29 โดย ชวลิต เสนะสุทธิ »

 

21 ส.ค. 63 , 22:32:37
ตอบกลับ #8

PNR

: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #8 เมื่อ: 21 ส.ค. 63 , 22:32:37 »
ได้แล้วครับ
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
Time to stop for me  :dizzy:
 

22 ส.ค. 63 , 08:20:48
ตอบกลับ #9
: สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« ตอบกลับ #9 เมื่อ: 22 ส.ค. 63 , 08:20:48 »
ขอบคุณมากครับที่ให้ความรู้ :love: :love: :love:

 


บอร์ดเรียนรู้ Access สำหรับคนไทย


 

Sitemap 1 2 3 4 5