ต้องการให้ค่าที่ป้อนใน field ของmain form ป้อนให้อัตโนมัติในฟิวด์ของ Sub form

[prajak]

ผมทำฟอร์ม PO มา1ฟอร์ม โดยในฟอร์มจะมีอยู่2ส่วน คือ PO Header (main form) และ PO Details (sub form)
PO Header มี Table ชือ POHead
PO Details มี Table ชื่อ PODetails
รบกวนสอบถามว่าในช่อง Discount ของ Main form ถ้าผมต้องการให้เวลาเราป้อนตัวเลข(%สวนลด)ลงไป ให้ค่าที่ป้อนวิ่งไปกรอกในช่อง Discount ของ sub form ทุกช่องโดยอัตโนมัติ สามารถทำได้อย่างไรครับ

[pizza_p]

ที่ช่อง Discount ของ Main Form กำหนด AfterUpdate event ประมาณนี้

Private Sub Discount_AfterUpdate()

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE PODetails SET PODetails.Discount = [Quantity] * [Unit Price] * " & Me.Discount / 100 & " WHERE PODetails.[PO Number] = '" & Me.[PO Number] & "';"
DoCmd.SetWarnings True

Me.ชื่อSubForm.Refresh

End Sub

[PookPuy]

ขอถามเพิ่มเติมครับ
คือที่ PO Header (main form) และ PO Details (sub form) เห็นมีการผูกลิงก์ PO Number(หรือเปล่าน้อ..)
แล้วเรามาใช้วิธีผูกลิงก์เพิ่มได้ใหมครับ

[prajak]

คุณ pizza_p ครับ ผมต้องการแค่ให้ช่อง Discount ของ Subform แสดง % เหมือนกับช่อง Discount ของ main form แค่นั้นเองนะครับ ไม่แน่ใจว่าที่คุณ pizza_p แนะนำมาถูกต้องมั้ยครับ

[pizza_p]

ก็แก้เป็นแบบนี้แทนครับ

DoCmd.RunSQL "UPDATE PODetails SET PODetails.Discount = " & Me.Discount & " WHERE PODetails.[PO Number] = '" & Me.[PO Number] & "';"

[prajak]

ยังทำไม่ได้เลยครับ งง 555 เพิ่งหัดทำครับ

[prajak]

ขึ้น error ตามนี้ครับ

[pizza_p]

ต้องเป็นชื่อของ subform control นะครับ ไม่ใช่ชื่อของตาราง

แต่ถ้าเป็นชื่อของ subform control แล้ว ลองเปลี่ยนเป็นแบบนี้ครับ

Me.ชื่อsubform.Form.Refresh

[prajak]

ลบ table และ form แล้วสร้างใหม่ ก็ยังไม่ได้ครับ compile database ก็ผ่าน แต่ตอนกรอกข้อมูลในช่อง discount ของ main form เสร็จ error เลยครับ

[pizza_p]

ให้ตรวจสอบดังนี้
1. ตาราง PODescription มีฟิลด์ชื่อ Discount% หรือไม่ เป็นฟิดล์ชนิดใด (Text, Number) กรณีที่มีสัญลักษณ์ประหลาดในชื่อฟิลด์แนะนำให้ใส่วงเล็บใหญ่คร่อมไว้ เช่น PODescription.[Discount%]
2. ลำดับการใช้เครื่องหมายคำพูด  '  และ  "  ให้สังเกตุลำดับการใช้ดีๆนะครับอาจจะมีการใส่สลับกันได้ หรือกรณีที่ Discount% เป็นฟิลด์แบบ Text จะต้องใช้ PODescription.[Discount%] = '" & Me.discount & "' WHERE ...

[prajak]

แก้ไขด้วยการออกแบบโปรแกรมใหม่ ใช้การ query แทน ได้แล้วครับ ขอบคุณสำหรับคำแนะนำดีๆครับ