1
ห้อง MS Access / : Code สำหรับแจ้งเตือนข้อมูล
« เมื่อ: 14 พ.ค. 63 , 13:45:29 »
เท่าที่ดูคิวรี่นั้นจากคำถามก่อนๆที่มีใส่ไฟล์ฐานข้อมูลเอาไว้ พอไล่ไป สุดท้ายแล้วก็คือผลรวมของพาเลทเข้า-พาเลทออกจากเทเบิล In และ Out ผมเลยเขียนโค้ดโดยหาจากเทเบิลโดยตรงแทนนะครับ
If Nz(Me![A], "") <> "" Then
If Not (Left(Me![A], 2) Like "A[MNOP]*") Then
If Nz(DSum("InPallet", "In", "Place = '" & Me![A] & "'"), 0) _
- Nz(DSum("OutPallet", "Out", "Place = '" & Me![A] & "'"), 0) >= 1 Then
MsgBox "พื้นที่เต็ม"
Cancel = True
End If
End If
End If
If Nz(Me![A], "") <> "" Then
If Not (Left(Me![A], 2) Like "A[MNOP]*") Then
If Nz(DSum("InPallet", "In", "Place = '" & Me![A] & "'"), 0) _
- Nz(DSum("OutPallet", "Out", "Place = '" & Me![A] & "'"), 0) >= 1 Then
MsgBox "พื้นที่เต็ม"
Cancel = True
End If
End If
End If
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury