กระทู้เก่าบอร์ด อ.Yeadram
2,157 3
URL.หัวข้อ /
URL
ดึงcontrolฟอร์มfย่อยที่3มาแสดงผลในfrom2ไม่ได้ครับ
ฟอร์มผมมี2ฟอร์มย่อยคือฟอร์มหลักและอีก2ฟอร์มเป็นฟอร์มย่อย
มีปัญหาคือผมได้ใส่นิพจน์ผลรวมไว้ในcontrolฟอร์มย่อยที่3เป็นsubfromใส่ในส่วนท้ายfooterใต้ส่วนdetailของsubfromแต่พอใส่นิพจน์ดึงจากฟอร์มที่มีสูตรนิพจน์อยู่ในcontrolย่อยที่3มาให้แสดงผลในcontrolฟอร์มย่อยที่2แต่ไม่สำเร็จได้ลองใส่นิพจน์ตามบอร์ดForms("ฟอร์มย่อย").Formfooter.controls("text1") ใส่ในcontrolฟอร์ม2แต่ไม่สำเร็จ และแก้เปลี่ยนเป็นลองใส่นิพจน์
Private sub Txtbox2_Enter()
Forms("FormA").controls("txtbox1")=Forms("FormA").controls("txtbox1") - txtbox2
End sub
ใส่ในcontrolฟอร์ม2 แต่ไม่สำเร็จมันขึ้นว่า #name? หรือ#erroeประมาณนี้ในcontrolฟอร์ม2ไม่รู้จะแก้ยังไงครับ
รบกวนท่านอาจารย์ช้วยบอกแบบนิพจน์และตัวอย่างนิพจน์ทีเป็นแนวทางแก้ไขได้ทีครับ
มีปัญหาคือผมได้ใส่นิพจน์ผลรวมไว้ในcontrolฟอร์มย่อยที่3เป็นsubfromใส่ในส่วนท้ายfooterใต้ส่วนdetailของsubfromแต่พอใส่นิพจน์ดึงจากฟอร์มที่มีสูตรนิพจน์อยู่ในcontrolย่อยที่3มาให้แสดงผลในcontrolฟอร์มย่อยที่2แต่ไม่สำเร็จได้ลองใส่นิพจน์ตามบอร์ดForms("ฟอร์มย่อย").Formfooter.controls("text1") ใส่ในcontrolฟอร์ม2แต่ไม่สำเร็จ และแก้เปลี่ยนเป็นลองใส่นิพจน์
Private sub Txtbox2_Enter()
Forms("FormA").controls("txtbox1")=Forms("FormA").controls("txtbox1") - txtbox2
End sub
ใส่ในcontrolฟอร์ม2 แต่ไม่สำเร็จมันขึ้นว่า #name? หรือ#erroeประมาณนี้ในcontrolฟอร์ม2ไม่รู้จะแก้ยังไงครับ
รบกวนท่านอาจารย์ช้วยบอกแบบนิพจน์และตัวอย่างนิพจน์ทีเป็นแนวทางแก้ไขได้ทีครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03171
ดีครับผมลองดูตามใส่แล้วใส่controlบล็อคเพิ่มในqryorderdetailsรันแล้วไม่มีปัญหา
มีปัญหาใส่controlบล็อคเพิ่มในOrder2 Subformและใส่อีก2controlที่ฟอร์มหลักทั้ง3Controlรันแล้วขึ้น#name?ทั้ง3อันครับ
แล้วลองรันและกดเลื่อนเร็คคลอดที่ฟอร์มหลัก3Controlขึ้น#name?พร้อมกระพริบพร้อมกดเลื่อนไปอีกเร็คคอร์ดของฟอร์มหลักและฟอร์มย่อย2ฟอร์มก็แสดงผลตามกับฟอร์มหลัก
มีปัญหาฟอร์มย่อยOrder2 Subformครับขอบคุณครับ
ลองส่งรูปมาให้ดูอีกรูปเป็นตอนรันก่อนจะมาเม็นบอร์ดนี้แต่ผมลืมกดเซบรูปตอนที่แก้ไขครับ previwรูปไม่ลงบอร์ด กำ
มีปัญหาใส่controlบล็อคเพิ่มในOrder2 Subformและใส่อีก2controlที่ฟอร์มหลักทั้ง3Controlรันแล้วขึ้น#name?ทั้ง3อันครับ
แล้วลองรันและกดเลื่อนเร็คคลอดที่ฟอร์มหลัก3Controlขึ้น#name?พร้อมกระพริบพร้อมกดเลื่อนไปอีกเร็คคอร์ดของฟอร์มหลักและฟอร์มย่อย2ฟอร์มก็แสดงผลตามกับฟอร์มหลัก
มีปัญหาฟอร์มย่อยOrder2 Subformครับขอบคุณครับ
ลองส่งรูปมาให้ดูอีกรูปเป็นตอนรันก่อนจะมาเม็นบอร์ดนี้แต่ผมลืมกดเซบรูปตอนที่แก้ไขครับ previwรูปไม่ลงบอร์ด กำ
3 @R03335
เรียน คุณปู
ผมขอตอบคำถามดังนี้นะครับ
เท่าที่ผมดูจากรูป ภายใต้ Orders2 Subform ของคุณจะมี subform ที่ชื่อว่า qryOrderDetails และคุณได้สร้าง Textbox (ผมขอตั้งชื่อว่า SubTotal) เพื่อหาค่าอะไรซักอย่างอยู่ Form Footer (ลองตรวจสอบผลลัพธ์เบื่องต้นตามที่คุณ yeadram ได้ให้คำแนะนำ) เมื่อตรวจสอบแล้วปรากฎเป็นตัวเลข ค่อยพิจารณาต่อนะครับ
หลังจากนั้นคุณได้สร้าง Text Box ไว้ที่ Orders2 Subform เพื่อต้องการดึงค่าจาก Control ที่ชื่อ SubTotal ซึ่งอยู่ใน qryOrderDetails ที่เป็นเป็น Subform สามารถอ้างอิงได้ตามนี้ครับ
ลองดูนะครับ
ผมขอตอบคำถามดังนี้นะครับ
เท่าที่ผมดูจากรูป ภายใต้ Orders2 Subform ของคุณจะมี subform ที่ชื่อว่า qryOrderDetails และคุณได้สร้าง Textbox (ผมขอตั้งชื่อว่า SubTotal) เพื่อหาค่าอะไรซักอย่างอยู่ Form Footer (ลองตรวจสอบผลลัพธ์เบื่องต้นตามที่คุณ yeadram ได้ให้คำแนะนำ) เมื่อตรวจสอบแล้วปรากฎเป็นตัวเลข ค่อยพิจารณาต่อนะครับ
หลังจากนั้นคุณได้สร้าง Text Box ไว้ที่ Orders2 Subform เพื่อต้องการดึงค่าจาก Control ที่ชื่อ SubTotal ซึ่งอยู่ใน qryOrderDetails ที่เป็นเป็น Subform สามารถอ้างอิงได้ตามนี้ครับ
= qryOrderDetail.Form![SubTotal]
ลองดูนะครับ
Time: 0.3333s
- สร้าง textbox ในบริเวณที่วาดกรอบสีแดง
- ตั้งชื่อ tsAmount
- เขียนนิพจน์ใน controlsource ว่า =Sum(Amount)
- ทดสอบ(1) รันเฉพาะฟอร์ม qryOrderDetails ดูว่า textbox ตัวนี้ให้ผลที่ถูกต้องหรือไม่ ถ้าผ่าน..
ในฟอร์ม [Orders2 Subform]
- ในบริเวณที่วาดกรอบสีแดง สร้าง textbox
- ตั้งชื่อว่า LtsAmout
- เขียนนิพจน์ใน controlsource ว่า = Form![qryOrderDetails]![tsAmount]
- ทดสอบ(2) รันฟอร์ม [Orders2 Subform] ซึ่งมีฟอร์มย่อย qryOrderDetails อยู่ด้วย ดูว่า textbox ที่สร้างขึ้นใหม่ ให้ผลถูกต้องหรือไม่
ในฟอร์มหลักนอกสุดให้สร้าง textbox 2 ตัว
- txt1 เขี??นนิพจน์ว่า =Form![Orders2 Subform]![LtsAmount]
- txt2 เขียนนิพจน์ว่า =Form![Orders2 Subform]![qryOrderDetails].[tsAmount]
- ทดสอบ(3) ลองรันฟอร์มหลักซึ่งให้ฟอร์มย่อยทั้งหมดแสดงผลตามปกติ ผลของ txt1 แสดงผลถูกต้องหรือไม่ ผลของ txt2 แสดงผลถูกต้องหรือไม่
อยากทราบว่าที่ติดอยู่ คือขั้นตอนทอบสอบขั้นไหนครับ