แสดงข้อมูลจาก vba ไปที่ textbox ใน subreport

[thitikun817]

ต้องการแสดงค่าให้ออกใน textbox ใน subreport ใช้ vba คับ มันไม่แสดงค่าครับ แต่ผมพยายามวิธีอื่นได้ แต่ผมจะต้องใช้ vba สร้างเงื่อนไขครับ

Code: Select all

'///Main Report โคตจาก main report คับ
Private Sub Report_Load()  
Me.txtTest3 = "Test3"  
End Sub

'///Subreport  โคตจาก sub report ครับ
Private Sub Report_Load()  
 Me.txtTest6 = "Test6"  
End Sub

[snasui]

กรุณาแนบไฟล์ตัวอย่าง ตัดสิ่งที่ไม่เกี่ยวข้องทิ้งไป หากไฟล์ใหญ่ให้ Zip มาก่อนจะได้สะดวกต่อสมาชิกในการตอบครับ

[thitikun817]

1. ผมพยายามแนบไฟลแล้ว มันเตือนขึ้นมาอย่างงี้ ต้องทำยังไงครับ
2. ขนาดไฟล ผมพยายามทำให้เล็กสุดแล้วได้ 704kB ครับ ตัดทุกอย่างออกแล้วคับ

[snasui]

Zip มาก่อนครับ

[thitikun817]

เป้าหมายคือ จะสั่งปรินreport โดยในreport จะมี supreport ที่เอาข้อมูลมาจาก vba ครับ แต่มันไม่ยอมขึ้น ถ้าไม่ได้ผูก master-child ครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'///Main Report
Private Sub Report_Load()
    Me.txtTest3 = "Test3"
    Me![rptsubReport].Report![txtTest6] = "Test6"
End Sub

[thitikun817]

ขอบคุณครับอาจารย์

[thitikun817]

อาจารย์คับ คือในคอมมันโชว์ขึ้นมาจริงคับ แต่เวลาปริน ไม่ว่าจะเป็นpdf หรือปรินเครื่องปรินเลย มันไม่ขึ้นมาครับ จะต้องแก้ยังไงคับ ขอบคุณคับ

[snasui]

Code นี้ต้องเปิด Report มาก่อนเพราะใช้ Event Load ในการส่งค่าไป Sub Form

ในการทำงานจริงมีการเปิด Report ก่อน Print หรือไม่ อย่างไร กรุณาให้ข้อมูลเพิ่มเติมมาด้วยครับ

กรุณาตรวจสอบคำว่า "ครับ" ให้ตรงกับกฎการใช้ฟอรัมข้อ 1 ด้านบน เนื่องจากผิดมาหลายตำแหน่งครับ

[thitikun817]

1. ผมกดปรินจากปุ่ม Print ซ้ายมือบนสุดครับ คือในรูป "Test6" แสดงค่า แต่พอปรินจริงๆ เป็นadobeหรือปรินเป็นกระดาษ ค่าไม่ขึ้นครับ ตามรูปที่ส่งไปก่อนหน้าครับ
2. เรื่อง "คับ" ผมพยายามแก้ครับ ขอโทษครับอาจารย์

[snasui]

มีคนเคยเจอเหมือนกันครับ https://stackoverflow.com/questions/357 ... int-export

สำหรับ Case นี้ผมไม่ทราบวิธีแก้ อาจจะลองทำตาม Link ที่ผมยกมา ในกรณีที่ต้องใช้ไฟล์ใด ๆ ตาม Link ขอให้ Backup ไฟล์เดิมไว้ก่อนเสมอครับ

[thitikun817]

ขอบคุณครับอาจารย์