กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
301 4
URL.หัวข้อ /
URL
รบกวนอาจารย์อีกแล้วครับ เรื่องAccessให้ผลลัพย์ที่ได้จาก TextboxในForm ไปบันทึกใน ฟิลด์ที่ต้องการครับ
รบกวนอาจารย์ อีกแล้วครับ
คือผมไม่ค่อยเก่งเท่าไรน่ะครับ โปรแกรมที่สร้างอาจดูแปลกๆ และบางครั้งก็อ่าน Code ไม่ค่อยเข้าใจน่ะครับ เลยอยากได้เป็น ตัวอย่างอย่างที่อาจารย์ เคยทำไว้ให้ตอนแรกดีมากเลยครับ เอาไปทำความเข้าใจแล้วแก้ได้ดีครับ แต่ตัวอย่างที่2 ไม่ค่อยเข้าใจครับ อย่างไรแล้วแต่ก็ขอโทษอาจจารย์ไว้ก่อนเลยครับ อย่าพึ่งรำคาญผมนะครับ เหลืออีก 2-3คำถามครับ
รบกวนอาจารย์ดูภาพตัวอย่างที่
http://pantip.inet.co.th/tech/software/topic/SA1008585.html
ภาพที่1 เป็นฟอร์มตัวอย่างแบบเดิมที่แก้ได้แล้วครับ ไม่มีอะไรครับ
คือผมต้องการ
<ข้อ1>
*** ให้ TextBox 24 (ภาพที่3) ถูกสร้างจาก Form FOrder ที่มีข้อมูลจาการคำนวนเสร็จแล้วจาก SumRemain ด้านล่าง<ไม่ได้วงกลมไว้ครับที่เขียนว่า =Sum([Remain])> (Textbox) จากSubForm SFOrdedrDetail ให้ถูกบันทึกลงใน ATotal ใน Table TOrder (ภาพที่2) โดยแยกตาม OrderID น่ะครับและเมื่อแก้ไขแล้วขอให้ Update ตามด้วยทันทีครับ ต้องใช้ Code อะไรครับ
<<<หรือแบบข้อ2 ก็ได้ครับ >>>
*** ให้ Textbox SumRemain ด้านล่าง<ไม่ได้วงกลมไว้ครับที่เขียนว่า =Sum([Remain])> (ภาพที่3 ไม่มีในTable TOrder) ถูกสร้างจาก SubForm SFOrdedrDetail ให้ถูกบันทึกลงใน ATotal ใน Table TOrder (ภาพที่2) โดยแยกตาม OrderID น่ะครับและเมื่อแก้ไขแล้วขอให้ Update ตามด้วยทันทีครับ ต้องใช้ Code อะไรครับ
<<< หรืออย่างใดก็ได้ครับที่เป็นลักษณะใกล้เคียงกันผมจะลองไปปรับดูครับ แต่อยากให้ได้แบบข้อ2 มากกว่าครับ>>>
ขอบคุณครับ อาจารย์
คือผมไม่ค่อยเก่งเท่าไรน่ะครับ โปรแกรมที่สร้างอาจดูแปลกๆ และบางครั้งก็อ่าน Code ไม่ค่อยเข้าใจน่ะครับ เลยอยากได้เป็น ตัวอย่างอย่างที่อาจารย์ เคยทำไว้ให้ตอนแรกดีมากเลยครับ เอาไปทำความเข้าใจแล้วแก้ได้ดีครับ แต่ตัวอย่างที่2 ไม่ค่อยเข้าใจครับ อย่างไรแล้วแต่ก็ขอโทษอาจจารย์ไว้ก่อนเลยครับ อย่าพึ่งรำคาญผมนะครับ เหลืออีก 2-3คำถามครับ
รบกวนอาจารย์ดูภาพตัวอย่างที่
http://pantip.inet.co.th/tech/software/topic/SA1008585.html
ภาพที่1 เป็นฟอร์มตัวอย่างแบบเดิมที่แก้ได้แล้วครับ ไม่มีอะไรครับ
คือผมต้องการ
<ข้อ1>
*** ให้ TextBox 24 (ภาพที่3) ถูกสร้างจาก Form FOrder ที่มีข้อมูลจาการคำนวนเสร็จแล้วจาก SumRemain ด้านล่าง<ไม่ได้วงกลมไว้ครับที่เขียนว่า =Sum([Remain])> (Textbox) จากSubForm SFOrdedrDetail ให้ถูกบันทึกลงใน ATotal ใน Table TOrder (ภาพที่2) โดยแยกตาม OrderID น่ะครับและเมื่อแก้ไขแล้วขอให้ Update ตามด้วยทันทีครับ ต้องใช้ Code อะไรครับ
<<<หรือแบบข้อ2 ก็ได้ครับ >>>
*** ให้ Textbox SumRemain ด้านล่าง<ไม่ได้วงกลมไว้ครับที่เขียนว่า =Sum([Remain])> (ภาพที่3 ไม่มีในTable TOrder) ถูกสร้างจาก SubForm SFOrdedrDetail ให้ถูกบันทึกลงใน ATotal ใน Table TOrder (ภาพที่2) โดยแยกตาม OrderID น่ะครับและเมื่อแก้ไขแล้วขอให้ Update ตามด้วยทันทีครับ ต้องใช้ Code อะไรครับ
<<< หรืออย่างใดก็ได้ครับที่เป็นลักษณะใกล้เคียงกันผมจะลองไปปรับดูครับ แต่อยากให้ได้แบบข้อ2 มากกว่าครับ>>>
ขอบคุณครับ อาจารย์
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00464
ในตัวอย่างที่ผมให้ในหัวข้อ 240 ผมก็ทำตามที่บอกมา
ไม่ทราบว่าไม่สามารถปรับใช้ได้ตรงส่วนใดครับ
โค้ดที่ทำจะมีดังนี้
Private Sub UnitCost_AfterUpdate()
' Force to save record
DoCmd.RunCommand acCmdSaveRecord
Me.txtSum = Nz(DSum("[UnitCost]", "OrderDetail", "[OrderID]='" & Me.OrderID & "'"), 0)
Me.Parent.ATotal = Me.txtSum
End Sub
2 @R00476
ผมคิดว่าปรับถูกแล้วน่ะครับแต่ทำไมใช้ไม่ได้เหมือน อาจารย์ก็ไม่รู้ ช่อง txtSum ไม่มีอะไรขึ้นเลยครับ และไม่ Error ด้วยครับ คือ ผมเปลี่ยนเป็นแบบนี้ครับ
ผมเปลี่ยนตรง UnitCost เป็น Remain(เกิดจาการคำนวนของการลดราคาค่าสินค้า), txtSum เปลี่ยนเป็น text24, ตรง OrderDetail เปลี่ยนเป็น TOrderDetail, ATotal เปลี่ยนเป็น BTotal (ตอนแรกบอกอาจารย์ผิดเป็น ATotal) แต่ตรง Me.Parent คืออะไรครับ
ขอถามตามนี้ครับ...
1. อาจจะเป็นเพราะ Remain มีการคำนวนด้วยหรือเปล่าครับ (จากQOrderDetail) ถึงใช้ไม่ได้
2. ตรง OrderDetail นี้เป็น Table ใช่มั๊ยครับ ถ้าใช่ผมก็ได้เปลี่ยนเป็นTOrdedrDetail ซึ่งถูกแล้ว แต่ก็ได้ลองเปลี่ยนเป็น Query QOrderDetail แล้วก็ไม่มีอะไรเปลี่ยนแปลงครับ
3. MeParent.BTotal คืออะไรครับ Parent หมายถึง Formหลัก ที่ทำงานอยู่ใช้มั๊ยครับ
4.ต้องเปลี่ยน ที่ Table TOrder, TOrderDetail ฟิลด์ BTotal,Remain ให้เป็น Number > Duble เหมือนกันหรือเปล่าครับ
5.เกี่ยวกับการใช้ 2 ฟิลด์ เชื่อมกันระหว่าง Form กับ SubForm มากกว่า 1 หรือเปล่าครับ
ได้เปลี่ยนเป็น
Private Sub Remain_AfterUpdate()
' Force to save record
DoCmd.RunCommand acCmdSaveRecord
Me.text24 = Nz(DSum("[Remain]", "TOrderDetail", "[OrderID]='" & Me.OrderID & "'"), 0)
Me.Parent.BTotal = Me.text24
End Sub
ขอบคุณครับ
3 @R00490
ช่วยส่งไฟล์มาให้ผมดูให้ก็ได้ครับ โดยการ Compact ก่อน แล้วค่อย Zip แล้วส่งมานะครับ
4 @R00505
ผมขอเตรียม ไฟล์และ อื่นๆ ก่อนนะครับเพราะตอนนี้กำลังจัดฟอร์มใหม่ แล้วจะส่งไปครับ จะได้เตรียมถามทีเดียวครับ
ขอบคุณครับ
Time: 0.0476s
