กระทู้เก่าบอร์ด อ.Yeadram
977 1
URL.หัวข้อ /
URL
ขอคำสั่ง ส่งค่าจากฟอร์มย่อย ไปเข้าสู่อีกฟอร์มหนึ่ง
หนูมีฟอร์มหลักอยู่ สมมติชื่อว่า Frm_main
ในฟอร์มหลักหนูทำเป็นแท็บอยู่ 4 แท็บ ซึ่งเป็นฟอร์มย่อย แท็บละ 1 ฟอร์ม
ในแท็บที่ 4 นี่แหละ หนูมีฟอร์มย่อยอยู่ สมมติชื่อว่า Frm_Sub4 โดยมี Text3 ซึ่งเป็นประเด็นที่มาขอความช่วยเหลือ ดังนี้ค่ะ
ที่ฟอร์ม Frm_Sub4 เมื่อ TextA มีค่าเท่ากับ 1 หนูต้องการส่งค่าใน Text3 ไปเข้าที่ Text1 ของฟอร์ม Frm_Master
หนูก็จัดแจงเขียนคำสั่งดังนี้เลยค่ะ
If (TextA = "1") Then
DoCmd.OpenForm ("Frm_Master")
Forms("Frm_Master").Controls("Text1") = Forms("Frm_Main").Frm_Sub4.Controls("Text3")
Edd if
ผลคือ ฟอร์ม Frm_Master ถูกเปิดขึ้นมาตามที่ต้องการ แต่ที่ Text1 มันไม่มีค่าใดๆ จาก Text3 ของฟอร์ม Frm_Sub4 เข้ามาเลย
แถม Error บรรทัดที่เขียนว่า Forms("Frm_Master").Controls("Text1") = Forms("Frm_Main").Frm_Sub4.Controls("Text3")
ขึ้นสีเหลืองคลุมทั้งบรรทัดเลย ไม่ทราบว่าหนูทำผิดตรงส่วนไหน ยังแก้ไม่ตกเลยค่ะ รบกวนอาจารย์ช่วยหนูด้วยนะคะ
ในฟอร์มหลักหนูทำเป็นแท็บอยู่ 4 แท็บ ซึ่งเป็นฟอร์มย่อย แท็บละ 1 ฟอร์ม
ในแท็บที่ 4 นี่แหละ หนูมีฟอร์มย่อยอยู่ สมมติชื่อว่า Frm_Sub4 โดยมี Text3 ซึ่งเป็นประเด็นที่มาขอความช่วยเหลือ ดังนี้ค่ะ
ที่ฟอร์ม Frm_Sub4 เมื่อ TextA มีค่าเท่ากับ 1 หนูต้องการส่งค่าใน Text3 ไปเข้าที่ Text1 ของฟอร์ม Frm_Master
หนูก็จัดแจงเขียนคำสั่งดังนี้เลยค่ะ
If (TextA = "1") Then
DoCmd.OpenForm ("Frm_Master")
Forms("Frm_Master").Controls("Text1") = Forms("Frm_Main").Frm_Sub4.Controls("Text3")
Edd if
ผลคือ ฟอร์ม Frm_Master ถูกเปิดขึ้นมาตามที่ต้องการ แต่ที่ Text1 มันไม่มีค่าใดๆ จาก Text3 ของฟอร์ม Frm_Sub4 เข้ามาเลย
แถม Error บรรทัดที่เขียนว่า Forms("Frm_Master").Controls("Text1") = Forms("Frm_Main").Frm_Sub4.Controls("Text3")
ขึ้นสีเหลืองคลุมทั้งบรรทัดเลย ไม่ทราบว่าหนูทำผิดตรงส่วนไหน ยังแก้ไม่ตกเลยค่ะ รบกวนอาจารย์ช่วยหนูด้วยนะคะ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.5830s
ปัญหาเกิดจาก ที่ฟอร์ม Frm_Main แท็บที่4 มันไม่ได้เป็นชื่อของฟอร์มย่อย
แต่เป็นชื่อ Child ? หนูก็แก้ไขให้เป็นชื่อฟอร์มย่อยคือ Frm_Sub4 ก็เท่านั้นเอง
ตอนนี้ผ่านเรียบร้อยแล้วค่ะ...