หนูอยากเขียนสูตรในฟอร์มตรงแสดงโค้ทลักษณะคล้ายๆๆแบบนี้
คือหนูอยากให้หน้าฟอร์ม เวลาหนูพิมพ์ Inhouse มาแล้ว ให้ Customer กับ List มันขึ้นมาให้หน้าฟอร์มอัตโนมันติค่ะ
Private Sub Inhouse_AfterUpdate()
Me.Customer = DLookup("[cus]", "[Raw Material]", "Code='" & [Inhouse] & "'")
Me.List = DLookup("[name]", "[Raw Material]", "Code='" & [Inhouse] & "'")
End Sub
แล้วก็เวลาหนูคีย์รับเข้า InSupkg ให้มันเด่งขึ้นมาเองว่ากี่กิโลประมาณนี้คะ อันนี้หนูเอาใส่ไว้ในฐานข้อมูลไว้แล้วว่า รหัสสินค้าตัวไหนหน่วยบรรจุเท่าไหร่ หนูอยากให้มันหารกันเอง ยกตัวอย่าง สินค้า 11 ขนาดบรรจุอยู่ที่ 2 กิโล วันนี้เรารับสินค้า 11 มา 10 กินโล อยู่ก็อยากให้มันขึ้นมาเองเลยว่ารับเป็นกระป๋องมา 10
Sub Inhouse_AfterUpdate()
Dim cal1
cal1 = Nz([Insupkg], 0) / Nz([Intotalcanned], 0)
Me.Intotalcanned = Nz([cal1], 0) + 0
End Sub