ขอเพิ่มเติมหน่อยค่ะว่าพยายามค้นขอเก่าดูแล้ว แต่ไม่เจอคำถามอย่างนี้เลยค่ะ

- "เมื่อหมดข้อมูลสุดท้ายแล้วให้ขีดเส้นใต้"
     : วาดเส้นใน Report Footer Section ครับ

- "และลบบรรทัดที่เหลือออก "
     : ไม่แน่ใจคำถามว่าหมายถึง ถ้าเป็นหน้าสุดท้ายแล้ว Page Footer ก็ไม่ต้องพิมพ์ด้วยใช่ไหม ถ้าใช่ก็ไปกำหนด Page Footer property ของตัวรายงานให้เป็น Not with Rpt Ftr ครับ

ขอบคุณค่ะ... งมหาอยู่ตั้งนานแหน่ะค่ะ เรื่องขีดเส้นใต้ของข้อมูลสุดท้าย
ที่แท้ง่ายๆ เอง เรานี้โง่จัง... แต่มีปัญหาต่อค่ะ คือ ได้กำหนดให้ ขีดเส้นใต้ของมูลสุดท้ายของแต่ละหน้าไว้ด้วย โดยวาดเส้นไว้ในส่วนของ page footer ค่ะ

ทีนี้วาดเพิ่มใน report footer แล้ว หน้าสุดท้าย กลายเป็นมีเส้น 2 เส้น

เรื่องลบบรรทัดที่เหลือออก คือว่าปกติกำหนดให้แต่ละหน้ามีข้อมูล 29 บรรทัด แต่พอถึงหน้าสุดท้ายแล้วข้อมูลจะมีไม่ถึง 29 บรรทัด แต่ยังต้องการให้แสดงผลรวมของ page footer ด้วย โดยให้ผลรวมนี้ไปอยู่บรรทัดถัดไป 1 หรือ2 บรรทัดของข้อมูลสุดท้ายค่ะ

ขอบคุณค่ะ

วิธีคือคุณต้องแสดงผลรวมทั้งที่ Page Footer และ Report Footer ด้วย แล้วกำหนดอย่างที่ผมบอกคือ ให้ Page Footer property ของตัวรายงานเป็น Not with Rpt Ftr   ดังนั้นที่หน้าสุดท้าย ก็จะมีเส้นและผลรวมใน Report Footer และจะไม่แสดง Page Footer ครับ

เอ่อ... ขอโทษค่ะ ทำตรงไหนคะ ไปไม่ถูกค่ะ...

ที่บอกว่า "ทำตรงไหน" หมายถึงจุดไหนครับ หมายถึงการกำหนด Page Footer property หรือไม่ ถ้าใช่ก็ตามรูปเลยครับ

ไม่เข้าใจตรงไหน พยายามช่วยอธิบายให้ละเอียดด้วยครับ

อาจารย์เข้าใจคำถามถูกแล้วค่ะ ทดลองทำแล้วค่ะ อาจารย์ แต่ผลลัพธ์ที่ได้ ไม่ใช่ซะทีเดียว คือยังต้องการให้ผลรวมของรายงานหน้าสุดท้าย เป็นผลรวมของหน้านั้นเท่านั้น ไม่ใช่รวมของทุกหน้าค่ะ
แล้วตอนนี้ไม่แน่ใจว่าเกิดจากอะไร อยู่ๆ ก็เรียกพรีวิวไม่ได้ค่ะ ขึ้นป๊อปอัพมาว่า
" Invalid procedure call or argument" พอเปิดเข้าไปดู ก็ขึ้นแถบสีเหลืองใน code ค่ะ ทั้งๆ ไม่ได้ไปแก้ไขอะไรเลย

Option Compare Database


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
   
    PageBreak81.Visible = ((lines Mod 29) = 0)

End Sub



Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If PrintCount = 1 Then
pagesum = pagesum + QUAN
expr1sum = expr1sum + Expr1
    
End If

Dim clines As Integer
   
End Sub



Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) - ตรงนี้ที่ขึ้นแถบสีเหลือง
pagesum = 0
expr1sum = 0
End Sub

ก็อปปี้จากไฟล์ต้นแบบมาทำใหม่ก็พรีวิวไม่ได้เหมือนกันค่ะ
กำลังมึนค่ะ

คุณแน่ใจนะว่าคุณเขียนไม่ผิดที่ว่า ต้องการให้ผลรวมในหน้าสุดท้ายเป็นผลรวมเฉพาะของหน้านั้นเท่านั้น !!! แล้วหน้าอื่นๆหล่ะครับ มีผลรวมที่ท้ายหน้าด้วยหรือไม่ ถ้ามี เป็นผลรวมเฉพาะหน้านั้นหรือผลรวมสะสมมาตั้งแต่หน้าแรก

ส่วนเรื่องเกิด error ขึ้น ให้ลอง compile ก่อนรันครับ อาจพบว่าที่แท้จริงเกิดจากปัญหาอะไรก็ได้

1. ยืนยันค่ะว่าต้องการให้ผลรวมหน้าสุดท้ายเป็นผลรวมเฉพาะหน้านั้น หน้าอื่นๆ ก็มีผลรวมเฉพาะหน้าของตัวเอง อยู่ในส่วน page footer แล้วค่ะ   ในรายงานนี้จะเป็นส่วนของรายละเอียดค่ะ คือว่าจะมีใบสรุปอีก 1 ใบ เป็นใบปะหน้า (เคยถามอาจารย์มาครั้งนึงเรื่องใบปะหน้า ) ที่จะแสดงว่าแต่ละหน้ามียอดรวมเป็นเท่าไหร่ และจะโชว์ยอดรวมทั้งหมดไว้ในใบปะหน้าค่ะ

2. compile ไม่ได้ค่ะ ขึ้นป๊อปอัพฟ้องมาแบบเดิมค่ะ

ได้ผลรวมของเฉพาะหน้าสุดท้ายแล้วค่ะ ขอบคุณมากค่ะ

แต่เรื่อง error ยังแก้ไม่ได้ค่ะ

อาจารย์คะ คิดว่า error จะเกี่ยวกับการที่เราไปแก้ไขส่วนของ report footer มั๊ยคะ คือที่บอกว่าได้ผลรวมเฉพาะหน้าสุดท้ายแล้วนั้น โดยกำหนดให้ค่าเท่ากับ pagesum ตอนแรกก็เรียบร้อยดี ได้ผลรวมตามที่ต้องการ แต่พอเซพแล้ว ทดลองเรียกขึ้นมาใหม่ก็ error อย่างที่ว่าค่ะ

ตอนนี้มึน 2 เท่าแล้วค่ะ

ทีผมถามยืนยันเพราะว่า ถ้าคุณทำผลรวมแต่ละหน้าได้แล้ว หน้าสุดท้ายก็็ควรทำได้เช่นกัน

Compile Error แสดงว่าโค้ดที่เราเขียนมีข้อผิดพลาดเกี่ยวกับรูปแบบภาษาอะไรสักอย่าง แต่ผมดูก็แล้ว ก็อปปี้โค้ดคุณมาก็แล้ว ก็ไม่เห็นมีปัญหาอย่างที่คุณว่า ผมแนะนำให้คุณทำการ copy ไฟล์ของคุณก่อน 1 ชุด แล้วทำการ Compact and Repair Database จากนั้นให้ทำการ Decompile อีกที (ไม่ใช่ Compile นะครับ) ลองไปค้นกระทู้เก่าๆด้วยคำว่า Decompile ดูครับ

ทำ decomplie แล้วก็ยัง error อยู่ค่ะ ไม่แน่ใจว่าทำผิดตรงไหน   เลยตัดใจ สร้างไฟล์ขึ้นมาใหม่เลย ไม่มีปัญหาแล้วค่ะ   ขอบคุณมากค่ะ
เดี๋ยวค่อยถามปัญหาอื่นๆ อีกค่ะ ขอไปทำส่วนอื่นๆของไฟล์ก่อนค่ะ