Access มี Page Footer section ให้แค่อันเดียว ไม่มี Page Footer ซ้อนกันหลายๆอัน ถ้าจะให้แสดงเฉพาะบางส่วนในทุกๆหน้า แทนที่จะซ่อน Page Footer ทั้ง section ก็ต้องซ่อนเฉพาะบางส่วนใน section แทน คือ กำหนด .Visible ให้เท็กซ์บ็อกซ์, ลาเบล ฯลฯ ให้เป็น = True หรือ False ไปทีละตัว
แต่กรณีมีหลายๆเท็กซ์บ็อกซ์, ลาเบล ที่จะต้องซ่อน เหมือนอย่างกรณีนี้ เราอาจใช้การสร้างกล่องสี่เหลี่ยมสีขาวทึบ และจัดให้มันอยู่ชั้นบนสุด โดยทับส่วนข้อความที่จะซ่อนเอาไว้ เช่นตัวอย่างในรูป เราสร้าง Box1 และ Box2 (ของจริงต้องสีขาวทึบ ไม่ใช่สีเหลืองโปร่งแสง) เมื่อต้องการซ่อนข้อความต่างๆ เราก็ให้แสดง Box1, Box2 ถ้าต้องการแสดงข้อความ ก็กลับเป็นให้ซ่อน Box1, Box2 ไปแทน
![](https://www.thai-access.com/tiupld/images/pxko8b-c3ce57.jpg)
ส่วนโค้ดก็เปลี่ยนเป็น
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 ก็เขียนโค้ดซ้ำๆกันไปเท่านั้นบรรทัด