สมัครสมาชิก

แสดงกระทู้

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 - Mercury

หน้า: [1]
1
โค้ด ถูกแล้วครับ แต่ทำมันไม่ทำงานเพราะเราเพิ่มโค้ดแล้ว แต่ลืมไปกำหนด Event ตรงคุณสมบัติให้มันด้วย
สังเกตุว่า Event Afterupdate แต่ตรงคุณสมบัติยังว่างอยู่ กดเข้าไปตามรูปครับ

อีกอย่างตรง textbox totalpcs ยังเป็นชื่อ Text80 อยู่อย่าลืมแก้นะครับ

โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

2
Private Sub จำนวนบรรจุ_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub จำนวนชิ้นจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub
Private Sub จำนวนลังจ่ายออก_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([จำนวนบรรจุ], 0) * Nz([จำนวนลังจ่ายออก], 0)
cal2 = Nz([cal1], 0) + Nz([จำนวนชิ้นจ่ายออก], 0)

Me.ผลรวมจำนวนชิ้น = cal2
End Sub

ไม่มี textbox ชื่อผลรวมจำนวนชิ้นครับ อีกอย่างตั้งชื่อ Control เป็นภาษาอังกฤษเถอะครับ จะได้ไม่มีปัญหาในอนาคต


โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

3
สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)

สอบถามเพิ่มเติมค่ะต้องวางสูตรที่ไหนคะ ใส่ในช่องฟอร์มได้เลยมั้ยคะ

ถ้าให้คำนวนตลอด ไว้ที่ form_current
หรือ สร้าง sub แล้วกำหนดevent Afterupdate ของ textbox ที่ใช้คำนวน ครับเช่น

Sub CalculateTotal
จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)
ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
end sub


Private sub จำนวนรับเข้า_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนชิ้นจ่ายออก_Afterupdate
Call CalculateTotal
end sub
Private sub จำนวนลัง_Afterupdate
Call CalculateTotal
end sub

หมายเหตุดูว่า มีการเพิ่มข้อมูล textbox ไหน ก็วาง call ที่ event afterupdate textbox นั้นเพื่อให้ผลรวมจำนวนชิ้น คำนวนทุกครั้งที่ระบุจาก textbox ที่เกี่ยวข้อง
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

4
สมการที่ 1 : จำนวนรับเข้า*จำนวนลัง = จำนวนชิ้น 
สมการที่ 2 : จำนวนชิ้น+จำนวนชิ้นจ่ายออก=ผลรวมจำนวนชิ้น


จำนวนชิ้น = nz([จำนวนรับเข้า],0) * nz([จำนวนลัง],0)

ผลรวมจำนวนชิ้น = nz([จำนวนชิ้น],0) + nz([จำนวนชิ้นจ่ายออก],0)
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

5
ตัวอย่างแบบง่ายๆ ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

6
ยังไม่เข้าใจครับ

เอางี้ดีกว่า ผมแนะนำวิธีการละกัน

1. ต้องมีตาราง Product โดยต้องมีฟิลด์ UnitPack เช่น 12 ชิ้นต่อกล่อง
2. เวลาป้อนข้อมูล ถ้าหน่วยเป็นชิ้น ก็ป้อนปกติ
3. ถ้าป้อนข้อมูลเป็นกล่อง เช่น 3 กล่อง ก็ให้คำนวณไปเป็นชิ้น ก็จะได้ 3x12 คือ 36 ชิ้น
4. เวลาทำคำนวณ ก็คำนวณแบบเป็นชิ้นเอา
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

7
คือ คุณต้องการ รวมยอด การรับเข้า การส่งออก จำนวนคงเหลือ เศษรับเข้า เศษจ่ายออก โดยเงื่อนไข ให้รวมถ้า Inhouse_number และ Gcas เหมือนกันหรือเปล่าครับ

เช่นข้อมูลในตารางเป็นแบบนี้
Inhouse_number  / Gcas /   รับเข้า    /  ส่งออก 
11111111111      /  AA  /      10     /   5
11111111111      /  AA  /        5      /   5

คิวรี่ Q_Balance ต้องให้ได้
Inhouse_number  / Gcas /   รับเข้า    /  ส่งออก 
11111111111      /  AA   /      15     /   10

อยากให้แสดงแบบนี้หรือเปล่า ผมไม่ค่อยเข้าใจคำถามเหมือนกันครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

8
ผมลองดูตารางจากไฟล์ตัวอย่างเก่าที่คุณเคยส่งมา ลองไปแก้ตามนี้ดูก่อนครับ
Backup ต้นฉบับไว้ด้วยนะ
1.ลองล้างการจัดรูปแบบ
2.ลองกำหนด Format ของข้อมูลฟิลล์นั้น ตามภาพเพราะอาจจะเกิดจากการกำหนด Format ที่ไม่สอดคล้องกับ access เลยเกิดปัญหานี้ได้


เป็นที่ฟิลล์ไหนลองทำดูครับว่าหายไหม
โพสต์นี้ได้รับคำขอบคุณจาก: Mercury

หน้า: [1]