สอบถามเรื่องการ update ข้อมูลในตาราง

[prajak]

รบกวนสอบถามครับ ตามรูปผมมีฟอร์มการเปิดPO ตรงช่อง Supplier เป็นcombo box ที่ lookup ข้อมูลมาจากตาราง supplier กรณีขณะที่กำลังเปิดPO ไม่มีชื่อ supplier ให้เลือก ผมจึงสร้าง ปุ่ม command button เพื่อเปิดฟอร์ม supplier ขึ้นมาเพื่อให้เพิ่มชื่อ supplierใหม่เข้าไป ปัญหามันมีอยู่ว่า หลังจากที่เราเพิ่ม supplier เสร็จแล้วปิดฟอร์มsupplierลงไป
แล้วมาคลิ๊ก dropdown ในช่องsupplier ของform PO มันจะไม่มีข้อมูลที่เราเพิ่มใหม่เข้ามา จะต้องทำการปิดฟอร์มก่อนแล้วเปิดขึ้นมาใหม่จึงจะเห็น เราสามารถทำยังไงได้บ้างครับ ให้มันมีรายการที่เราเพิ่มใหม่ขึ้นมาทันที โดยที่เราไม่ต้องปิดหน้า form เหตุผลเพื่อให้สะดวกต่อผู้ใช้ครับ

[OddyWriter]

ใช้คำสั่ง docmd.requery

แต่ต้องหาจุดที่วางเองนะครับ

[tomkungz]

หลังจากปิดฟอร์มเพิ่ม ผรม.ไป ให้ใช้คำสั่ง requery ตาราง ผรมครับ เช่น DoCmd.Requery "EmployeeList"

[prajak]

ยังไม่เข้าใจเลยครับ ว่าวางคำสั่งไว้ตรงไหน ลองแล้วยังไม่ได้ครับ รบกวนด้วยนะครับ

[OddyWriter]

ถ้า Combo Box ในฟอร์ม POH ของคุณ กำหนด Record Source จากตารางที่ใช้สร้างฟอร์มเพิ่ม Supplier ให้ใส่ docmd.requery ที่ on click ของ combobox ครับ ชัวร์สุด

[prajak]

ลองแล้วยังไม่ได้ครับ ไม่ทราบว่าถูกหรือเปล่า

[OddyWriter]

ลองกดปุ่ม f9 ดูว่าได้ไหมครับ

[prajak]

กด F9 แล้วได้ครับ ต้องใช้การกด f9เอา หรือว่าแก้ได้ครับ

[OddyWriter]

คือผมพยายามหลีกเลี่ยงคำสั่ง docmd sendkey f9 น่ะครับ เพราะมันมีผลให้การทำงานของ Numlock ผิดปกติ ถ้าจะเขียน Code ตรวจสอบสถานะของ Numlock ก็ได้ แต่วุ่นวายเพราะ 32 bit กับ 64 bit เขียนโค้ดต่างกันอีก

แนะนำว่าลองเปลี่ยน docmd.requery เป็น docmd.save ดูครับ ถ้าความเร็วในการทำงานอยู่ในช่วงที่รับได้ ก็ใช้ไป แต่ถ้าช้า แสดงว่ามีปัญหาในการวางระบบฐานข้อมูลแล้วล่ะ อาจต้องส่งมาให้ผมดูครับ

[pizza_p]

แก้จาก DoCmd.Requery เป็น Me.POVender.Requery แต่จริงๆ ไม่ค่อยแนะนำแบบนี้ใน click event เพราะมันจะทำการ Requery ทุกครั้งที่คลิกที่ combobox ซึ่งการ Requery มันใช้เวลาและทรัพยากรยิ่งถ้าข้อมูลมันเยอะมันจะมีอาการหน่วงให้เห็น

ผมแนะนำให้ทำที่ปุ่ม OpenForm ที่เปิดฟอร์มการเพิ่ม supplier เช่น

Private Sub OpenFormSupplier_Click()

DoCmd.OpenForm "SupplierForm", acNormal, , , , acDialog
Me.POVender.Requery

End Sub

การ OpenForm แบบ acDialog โปรแกรม Access จะรอจนกว่าเราทำงานเกี่ยวกับฟอร์มนั้นจนเสร็จสิ้นก่อน แล้วถึงจะรันคำสั่งบรรทัดถัดไปครับ ทำให้เวลาเราใส่ข้อมูลเสร็จปิดฟอร์ม Supplier แล้ว มันก็จะทำคำสั่งถัดไปคือ Me.POVender.Requery

[prajak]

แก้จาก DoCmd.Requery เป็น Me.POVender.Requery แต่จริงๆ ไม่ค่อยแนะนำแบบนี้ใน click event เพราะมันจะทำการ Requery ทุกครั้งที่คลิกที่ combobox ซึ่งการ Requery มันใช้เวลาและทรัพยากรยิ่งถ้าข้อมูลมันเยอะมันจะมีอาการหน่วงให้เห็น

ผมแนะนำให้ทำที่ปุ่ม OpenForm ที่เปิดฟอร์มการเพิ่ม supplier เช่น

Private Sub OpenFormSupplier_Click()

DoCmd.OpenForm "SupplierForm", acNormal, , , , acDialog
Me.POVender.Requery

End Sub

การ OpenForm แบบ acDialog โปรแกรม Access จะรอจนกว่าเราทำงานเกี่ยวกับฟอร์มนั้นจนเสร็จสิ้นก่อน แล้วถึงจะรันคำสั่งบรรทัดถัดไปครับ ทำให้เวลาเราใส่ข้อมูลเสร็จปิดฟอร์ม Supplier แล้ว มันก็จะทำคำสั่งถัดไปคือ Me.POVender.Requery

ผมว่าผมใช้การกด F9 ดีกว่าครับไม่ได้ลำบากมาก ลองทำตามที่แนะนำแล้วยังไม่ได้ครับ ขอบคุณมากนะครับ

[TTT]

ไม่รู้ว่าเข้าใจคำถามถูกหรือป่าวนะครับ
ถ้าต้องการ Requery ฟอร์มคนละฟอร์มหลังการ Update ตารางแล้ว ก็ให้ใช้คำสั่งอ้างที่ชื่อฟอร์มตัวเป้าหมายครับ เช่น
คำสั่งที่จะใส่ลงในปุ่มบนฟอร์ม supplier
- เมนฟอร์ม
Forms!ชื่อฟอร์มหลัก.Requery
- ชื่อคอนโทรลในฟอร์มหลัก
Forms!ชื่อฟอร์มหลัก.ชื่อคอนโทรล
- ซับฟอร์ม
Forms!ชื่อฟอร์มหลัก!ชื่อซับฟอร์ม.Form.Requery
- ชื่อคอนโทรลในซับฟอร์ม
Forms!ชื่อฟอร์มหลัก!ชื่อซับฟอร์ม.Form.ชื่อคอนโทรล.Requery

โดยเลือกใช้ดูว่าถ้า Requery เฉพาะตัวคอนโทรลเป้าหมายจะได้ผลลัพธ์ที่ต้องการหรือไม่ ถ้าไม่ค่อย Requery ทั้งฟอร์มแทน ทั้งนี้ขึ้นอยู่กับการออกแบบ

อะไรประมาณนี้ครับ

[pizza_p]

โค้ดที่ผมให้ไป ให้ตรวจดูว่าพวกปุ่ม พวก control หรือชื่อฟอร์มต่างๆ มันชื่อนั้นหรือเปล่า copy ไปดื้อๆ มักจะไม่ได้นะครับ เพราะผมก็ไม่รู้ว่า control หรือปุ่มมันชื่ออะไรจริงๆ เพียงเดาจากรูปว่าน่าจะเป็นอะไรเท่านั้น

รูปแบบโค้ดที่ผมให้มันจะไม่ไปยุ่งกับตัว SupplierForm เลยนะครับ ฉะนั้นไม่ต้องไปปรับแต่ SupplierForm แต่อย่างใด

[ekppom]

แนะนำนะครับ ผมใช้วิธีนี้อยู่ครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub

จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ

[prajak]

แนะนำนะครับ ผมใช้วิธีนี้อยู่ครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub

จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ

เป็นอีกหนึ่งวิธีที่ OK เลยครับ ผมลองใช้ได้เลย ขอบคุณนะครับ

[prajak]

แนะนำนะครับ ผมใช้วิธีนี้อยู่ครับ
-สร้างปุ่มสำหรับเลือกรายการในฟอร์มเพิ่มข้อมูลSupplierสมมุติชื่อ Command0
-ใส่Code ตรงOn Click ดังนี้
Private Sub Command0_Click()
Forms("ชื่อฟอร์มใบสั่งซื้อ").ชื่อText Box(ของฟอร์มใบสั่งซื้อ) = Me.ชื่อText Box(ของฟอร์มเพิ่มข้อมูลSupplier)
DoCmd.Close
End Sub

จะเป็นการเลือกชื่อSupplier โดยอัตโนมัติครับ

เป็นอีกหนึ่งวิธีที่ OK เลยครับ ผมลองใช้ได้เลย ขอบคุณนะครับ

ลองนำวิธีนีไปใช้กับอีกform ซึ่งในformก็ประกอบด้วย Main form ชื่อ POH กับ Sub form ชื่อ POD Subform พบปัญหาหลังจากกดเลือกรายการสินค้าในform PO Description จะขึ้น error ตามรูปครับ


 แต่ถ้าผมไปเปิดเฉพาะ subform( ไม่เปิด main form) แล้วเลือกรายการสินค้า ใช้ได้ครับ ไม่ error ตามรูป


อันนี้เป็น code ในปุ่มเลือกรายการสินค้า ของ form PO Description

[prajak]

อันนี้เป็น form ในมุมมองออกแบบครับ

[prajak]

จาก error เหมือนว่าจะหา POD Subform ไม่เจอ แต่ทำไมเวลาเข้าไปเปิดเฉพาะ POD subform คำสั่งถึงใช้ได้ปกติ หรือเวลา subformทำงานบน main form ต้องมีคำสั่งแจ้งให้มันทราบครับ