แสดงกระทู้

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 2 3 [4] 5
49


จากภาพคือมีข้อมูลรหัสสินค้าที่เป็นรหัสเดียวกันแต่มีวันที่รับเข้าแตกต่างกัน ต้องการจะเรียกใช้ข้อมูลเฉพาะวันที่ล่าสุดเพื่อนำไปแมพกับตารางใน Excel
เช่น รหัสที่ปีกกาสีฟ้าต้องการแค่ข้อมูลของวันที่ 28/1/62

ซึ่งข้อมูลจริงๆจะมีหลายวันที่ค่ะ เลยอยากหาวิธีในการเลือกวันที่ที่เป็นวันล่าสุด

50
ลองแนบไฟล์มาดูได้มั้ยคะ เผื่อช่วยได้

51
แก้เป็น
โค๊ด: [Select]
Me.PackPerPallet = DLookup("[PackQuantity]", "[Packing]", "Number='" & [SizeOfCarton] & "'")

ได้แล้วค่ะขอบคุณมากๆเลยค่ะ :love:

52
ห้อง MS Access / DLookup บนฟอร์มโดยใช้โค้ด
« เมื่อ: 22 ต.ค. 62 , 09:57:18 »
ต้องการใส่ข้อมูลในช่องที่ 1 แล้วให้ปรากฏข้อมูลช่องที่ 2 ค่ะ (ทำตารางฐานข้อมูลแล้ว)


อันนี้เป็นโค้ดที่ใช้ค่ะ คัดลอกมาจากอาจารย์ท่านหนึ่งที่เคยเขียนไว้ให้ในกระทู้
แต่ลองมาเปลี่ยนชื่อเป็นตัวแปรที่จะใช้เอง แต่ไม่ขึ้นข้อมูลเหมือนโค้ดที่อาจารย์ทำค่ะ


รบกวนผู้รู้ช่วยดูให้หน่อยค่ะ ขอบคุณค่ะ  :prettiness:

53
เข้าใจแล้วค่ะขอบคุณมากค่ะ

54


ทดลองใช้โค้ดนี้แต่ไม่ได้ค่ะ อยากทราบว่าเป็นเพราะอะไร
โค๊ด: [Select]
Private Sub WeightPerPack_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub WeightPallet_Afterupdate()
Call CalculateTotal
End Sub
Private Sub PackPerPallet_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([WeightPerPack], 0) * Nz([PackPerPallet], 0)
cal2 = Nz([cal1], 0) + Nz([WeightPallet], 0)

Me.ToTalWeight = cal2
End Sub


ซึ่งสมการที่ต้องการคำนวณคือสมการนี้ค่ะ
(WeightPerPack*PackPerPallet)+WeightPallet = TotalWeight

ขอบคุณค่ะ :prettiness:

55
ห้อง MS Access / : การผูก Queries
« เมื่อ: 17 ต.ค. 62 , 14:10:50 »
ใช้ได้ทั้ง 2 วิธีเลยค่ะขอบคุณทั้ง 2 ท่ามากเลยนะคะ :prettiness:

56
ห้อง MS Access / การผูก Queries
« เมื่อ: 16 ต.ค. 62 , 10:04:10 »
ตอนคีย์ข้อมูลรับเข้าจะขึ้นแค่ช่อง Sumofboxin ซึ่งเวลากรอกได้ทำการกรอกครบทุกช่องค่ะแต่ไม่ขึ้นข้อมูลในช่องอื่นๆ ต้องมีการคีย์จ่ายออกถึงจะขึ้นข้อมูล Sumof ในช่องอื่นๆ
อยากทราบว่ามีวิธีให้ขึ้นข้อมูลตามที่เราคีย์ลงในฟอร์มมั้ยคะ




อันนี้เป็นหน้าคิวรี่ Design ค่ะ

57
ไม่มีไฟล์ที่แนบมาครับ ลองตรวจเช็คดู


58
สอบถามเพิ่มเติมค่ะพอดีมีการแก้ไขฟอร์มจ่ายออกซึ่งในแถวของ Lot1 ใช้สูตรที่อาจารย์เคยเขียนไว้ให้
ทีนี้ต้องการให้บรรทัด Lot2,Lot3,Lot4 คำนวณเหมือนกันกับสูตร Lot1 แต่ลองก้อปปี้โค้ดดังกล่าวมาใช้กับการคำนวณตัวที่เหลือแล้วแต่ไม่สามารถคำนวณได้
(ฺContain*Box n+PCSout n = outqty n)
รบกวนอาจารย์ช่วยแนะนำการเขียนโค้ดหน่อยค่ะ
และต้องการให้หลังจากคำนวณ Outqty1,2,3,4 แล้วบวกกันแล้วได้เป็นช่อง Total ค่ะ (Outqty1+ Outqty2+Outqty3+ Outqty4 = total)



59
ได้แล้วค่ะขอบคุณมากๆเลยค่ะ :love:

60
ขอบคุณค่ะ ในForm จ่ายออกได้แล้วค่ะ
ที่นี้ลองทำในฟอร์มรับเข้าใช้โค้ดเดียวกันเปลี่ยนตัวแปรแต่ว่าไม่ขึ้นค่ะ
ไม่ทราบว่าสามารถใช้โค้ดเดียวกันได้มั้ยคะ

อันนี้เป็นโค้ดที่ใช้ค่ะ
อ้างถึง
Private Sub Contain_AfterUpdate()
Call CalculateTotal
End Sub
Private Sub PCSIn_Afterupdate()
Call CalculateTotal
End Sub
Private Sub BoxIn_Afterupdate()
Call CalculateTotal
End Sub

Sub CalculateTotal()
Dim cal1, cal2 As Double
cal1 = Nz([Contain], 0) * Nz([BoxIn], 0)
cal2 = Nz([cal1], 0) + Nz([PCSIn], 0)

Me.totalpcs = cal2
End Sub
อ้างถึง

61
สมการที่ 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 ที่เกี่ยวข้อง



ใส่โค้ดตามนี้ใน View code ที่ฟอร์ม
แต่ไม่ขึ้นข้อมูลอะไรค่ะ (แนบไฟล์มาด้วยค่ะ)



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


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

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

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

63
อยากคำนวณคล้ายๆ Excel ค่ะแบบเวลาใส่สูตรว่าช่องจำนวนรับเข้า คูณกับช่องจำนวนลัง
จะได้หน่วยที่เป็นชิ้นออกมาแล้ว เสร็จแล้วนำจำนวนชิ้นที่ได้นำมาบวกกับช่องจำนวนชิ้นแล้วได้เป็นผลรวมของชิ้นออกมาค่ะ

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



64
ขอบคุณค่ะ

หน้า: 1 2 3 [4] 5