สร้างบิลที่มีรายการสินค้ามาก จึงพิมพ์บิลใบที่1 2 3...

[สันติสุข]

Access มี Page Footer section ให้แค่อันเดียว  ไม่มี Page Footer ซ้อนกันหลายๆอัน  ถ้าจะให้แสดงเฉพาะบางส่วนในทุกๆหน้า แทนที่จะซ่อน Page Footer ทั้ง section  ก็ต้องซ่อนเฉพาะบางส่วนใน section แทน คือ กำหนด .Visible ให้เท็กซ์บ็อกซ์, ลาเบล ฯลฯ ให้เป็น = True หรือ False ไปทีละตัว

แต่กรณีมีหลายๆเท็กซ์บ็อกซ์, ลาเบล ที่จะต้องซ่อน เหมือนอย่างกรณีนี้ เราอาจใช้การสร้างกล่องสี่เหลี่ยมสีขาวทึบ และจัดให้มันอยู่ชั้นบนสุด โดยทับส่วนข้อความที่จะซ่อนเอาไว้ เช่นตัวอย่างในรูป เราสร้าง Box1 และ Box2 (ของจริงต้องสีขาวทึบ ไม่ใช่สีเหลืองโปร่งแสง)  เมื่อต้องการซ่อนข้อความต่างๆ เราก็ให้แสดง Box1, Box2   ถ้าต้องการแสดงข้อความ ก็กลับเป็นให้ซ่อน Box1, Box2 ไปแทน


ส่วนโค้ดก็เปลี่ยนเป็น

Option Compare Database
Option Explicit

Dim ShowPageFooter As Boolean

Private Sub GroupFooter1_Format(Cancel As Integer, FormatCount As Integer)
    ShowPageFooter = True
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.Box1.Visible = Not ShowPageFooter
    Me.Box2.Visible = Not ShowPageFooter
End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    ShowPageFooter = False
End Sub

อย่าลืมไปเปลี่ยน Box1, Box2 เป็นชื่อที่คุณสร้างบนรายงานด้วย และถ้ามีกี่ Box ก็เขียนโค้ดซ้ำๆกันไปเท่านั้นบรรทัด

[kunlek]

ขอบพระคุณครับ เรียบร้อยครับ

[kunlek]

code ข้างต้นเป็นการเอา box ปิดบริเวณ  แต่ถ้าจะเป็นการปิด fieldแทน เพื่อให้ ตารางบิลคงอยู่   สมมติว่ามี field1,   field2,   field3,  field4 เขียน code ที่เขียนเป็นอย่างไรครับ จะกำหนด tag เป็นกลุ่มได้ไหมครับ

[สันติสุข]

ปิดฟิลด์ก็คือ ไม่ให้เห็นหรือเปล่าครับ ถ้าใช่ ก็กำหนด Me.ชื่อฟิลด์.Visible = False   หรือถ้าจะกลับมาให้เห็น ก็กำหนด Me.ชื่อฟิลด์.Visible = True  เหมือนอย่างโค้ดที่ใช้กับ Me.Box1.Visible นั่นเอง  ส่วนการใช้ Tag property กำหนด ก็ลองดูคำตอบสุดท้ายของคุณ PNR ใน https://www.thai-access.com/index.php?topic=834.0

[nat_c]

แทนชื่อ Box ด้วยฟิลด์ชื่อ text105
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.Text105.Visible = Not ShowPageFooter

End Sub
***ผลที่ได้คือไปแสดงผลลัพธ์หน้าสุดท้าย  แทนที่จะมีผลกับหน้า 1 แล้วหน้า 2 แสดงปกติ(พิมพ์ 2 หน้า)**
ไม่รู้ต้องไปแก้ไขตรงไหนอีกครับ

[nat_c]

Me.Text105.Visible =  ShowPageFooter  แก้บรรทัดนี้ด้วย