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 ก็เขียนโค้ดซ้ำๆกันไปเท่านั้นบรรทัด

ตามรูป เมื่อคลิกไปโค้ดที่บอกแล้ว ที่ Title ตามตำแหน่งที่ลูกศรชี้ จะต้องเป็น Report_ชื่อรายงานของคุณ
ส่วนชื่อของ Group จะดูตามตำแหน่งที่วงกลมไว้ เช็คดูว่าถูกต้องหรือไม่

1. ให้สร้าง Group ในรายงานโดยกลุ่มตามหมายเลข IV  ให้มีแต่ Group Footer section สมมุติชื่อ GroupFooter1  ไม่ต้องมี Group Header   ให้ความสูงเป็น 0 ก็ได้   กำหนดให้ Force New Page property เป็น After Section   ตัว Group section จะครอบ Detail section เอาไว้โดยอัตโนมัติ

2. ใส่โค้ดต่อไปนี้ลงไป
Option Compare Database
Option Explicit

Dim ShowPageFooter As Boolean

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    ShowPageFooter = False
    Me.Section("PageFooterSection").Visible = True
End Sub

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

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    If Not ShowPageFooter Then Me.Section("PageFooterSection").Visible = False
End Sub


ควรเป็นอย่างนั้นครับ

Public Function RowNum(frm As Form) As Variant
        ...
        ...
        ...

เพิ่งรู้ว่าการอ้าง Form property ผ่านฟังก์ชั่นบน Continuous Form จะทำให้อ้างถึงเรคอร์ดเฉพาะของบรรทัดนั้นๆบนฟอร์ม แทนที่จะเป็นเรคอร์ดปัจจุบันบนฟอร์มเพียงเรคอร์ดเดียว

จะสร้างปุ่มขึ้นมาแล้วใส่โค้ดไว้ใน OnClick event หรือจะดักจับ keyboard shortcut โดยใส่ไว้ใน KeyUp ของฟอร์มตามที่คุณเคยถามก็ได้ https://www.thai-access.com/index.php?topic=735.0

ผมคิดว่าก็แค่ลิงค์ Excel เข้ามาเป็นเทเบิลใน Access เท่านี้เอง ส่วนการคิวรี่ก็เขียนใน Query และ/หรือ VBA Code ร่วมด้วย(ถ้าจำเป็น)  วิธีลิงค์ดูในคลิปตั้งแต่ 5:50 ถึง 8:00

คงต้องใส่โค้ดไว้ใน Form_Activate event ของทุกฟอร์มแล้วครับ แล้วถ้าจะป้องกันอีกชั้น ก็ใส่เงื่อนไขตรวจสอบปีไว้ใน Validation Rule ของฟิลด์วันที่ในเทเบิลไปด้วยว่าปีต้องอยู่ในช่วงที่เป็นไปได้ เช่น 2010-2050 ก็เขียนเป็น Year([ชื่อฟิลด์]) between 2010 and 2050 ส่วน Validation Text ก็ใส่ข้อความที่จะแสดงเมื่อไม่เป็นไปตาม Rule ที่ว่านี้

หมายเหตุ : ฟังก์ชั่น Year( ) จะให้ค่าเป็นปี ค.ศ. เสมอ แม้ปฏิทินจะกำหนดเป็น พ.ศ.

ถ้าผิดยังไงก็ขอโทษด้วย เพรายังไม่เคยใช้ Office 64  แต่เท่าที่อ่านความหมายของ VBA7, ประเภทข้อมูล LongLong, LongPtr และ PtrSafe Keyword https://codekabinett.com/rdumps.php?Lang=2&targetDoc=windows-api-declaration-vba-64-bit ถ้า Office 32 bit นั้นเป็นเวอร์ชั่นตั้งแต่ 2010 ขึ้นไป เชื่อว่าไม่น่าจะรันได้ครับ เพราะ Compiler Directive VBA7 จะเป็นจริงตั้งแต่ Access 2010 ดังนั้นโค้ดจะรันแล้วเจอะข้อมูลประเภท LongLong ที่มีเฉพาะในเวอร์ชั่น 64 bit เท่านั้น ส่วนต้องโค้ดยังไงถึงจะถูก อันนี้ผมไม่รู้ ต้องคนที่ดู API เป็นครับ

แต่ถ้า Office 32 bit นั้นเป็นเวอร์ชั่นตำกว่า 2010 น่าจะแน่นอนว่าโค้ดนี้จะรันได้

แต่ Compiler Directive มีผลเฉพาะตอนที่ยังเป็นไฟล์ .accdb  ถ้าคอมไพล์เป็นไฟล์ .accde แล้ว  คอมไพล์ด้วย Office กี่ bit ก็ต้องไปใช้ที่เครื่อง Office แค่นั้น bit เท่านั้นครับ