แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ชวลิต เสนะสุทธิ

หน้า: 1 2 3 [4]
55
ห้อง MS Access / : สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 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

56
ห้อง MS Access / : สอบถามการตรวจสอบก่อนเพิ่มข้อมูล
« เมื่อ: 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

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


หน้า: 1 2 3 [4]