กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
337 1
URL.หัวข้อ /
URL
แจ้งเตือนสินค้าไม่พอจ่าย
ในการตัด stock ผมต้องการให้เตือนเมื่อไม่มีสินค้าพอจ่าย ดังนี้
Private Sub SellQuanity_AfterUpdate()
Dim Qstock As Integer
Dim SellQuanity As Integer
If Qstock < Me.SellQuanity Then
MsgBox "not enough product in stock", vbCritical, "stock"
End If
แต่ ผลออกมา ไม่ว่าจะมากกว่าหรือน้อยกว่า ก็มี msgbox ตลอดเลย ช่วยดูให้ด้วยครับหรือถ้า
มีวิธีการอื่นที่ดีกว่านี้ก็ช่วยชี้แนะด้วยครับ
Private Sub SellQuanity_AfterUpdate()
Dim Qstock As Integer
Dim SellQuanity As Integer
If Qstock < Me.SellQuanity Then
MsgBox "not enough product in stock", vbCritical, "stock"
End If
แต่ ผลออกมา ไม่ว่าจะมากกว่าหรือน้อยกว่า ก็มี msgbox ตลอดเลย ช่วยดูให้ด้วยครับหรือถ้า
มีวิธีการอื่นที่ดีกว่านี้ก็ช่วยชี้แนะด้วยครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 1.1670s
ถ้ายังไม่มีการส่งค่าให้ Qstock ก็คงทำให้เกิดปัญหาดังกล่าวได้
ซึ่งอาจใช้ DLookup() ช่วย
Dim Qstock As Integer
Dim SellQuanity As Integer
Qstock = DLookup("Quantity","Products","ProductID='" & Me.ProductID & "'")
SellQuanity = Me.SellQuanity
If Qstock < SellQuanity Then
MsgBox "not enough product in stock", vbCritical, "stock"
End If
ต้องเปลี่ยน Quantity, Products, ProductID ให้ตรงกับชื่อฟีลด์และตารางเป้าหมายของเราด้วยครับ
และถ้า ProductID เป็น Number ก็ให้เปลี่ยน
Qstock = DLookup("Quantity","Products","ProductID='" & Me.ProductID & "'")
เป็น
Qstock = DLookup("Quantity","Products","ProductID=" & Me.ProductID)