ซ่อน Page Header

[Un]

ซ่อน Page Header ที่หน้าสุดท้าย โดย ใช้คำสั่ง เมื่อ Page = Pages
ให้ Page Header.Visible = False แต่มันไม่ได้ สังเกตุว่า เวลาพิมพ์ Page Header
มันไม่ขึ้นอัตโนมัติ เหมือนใช้คำว่า Section(?).Visible=False

คำถามมีอยู่ว่า มันคือ Section ที่เท่าไหร่ คือ Page Header
หรือมันมีวิธีอื่นที่ไม่ใช่ 2 แบบนี้ครับ

[สันติสุข]

Sections("PageHeaderSection") หรือถ้าเป็นชื่ออื่นก็ใส่แทน PageHeaderSection ครับ

[Un]

อ.สันติสุขครับ
ผมลองเอาไปใส่ใน Even On Current ปรากฏว่า ไม่มีไรเกิดขึ้นครับ

ลองใส่ ใน On load

Private Sub Report_Load()
        If Me.Page = Me.Pages Then
            Me.Sections("PageHeaderSection").Visible False  <<< Error บรรทัดนี้
        End If
End Sub

มัน Error ครับ

[Un]

Private Sub Report_Load()
        If Me.Page = Me.Pages Then
            Me.Sections("PageHeaderSection").Visible False  <<< Error บรรทัดนี้
        End If
End Sub

ลองลบ Section ออกเหลือ

Private Sub Report_Load()
        If Me.Page = Me.Pages Then
            Me.Sections("PageHeader").Visible False
        End If
End Sub

ไม่ Error แต่ก็ไม่ซ่อน Page Header ที่หน้าสุดท้ายครับ

[สันติสุข]

ใส่ใน On Format หรือ On Print event ของ Page Header Section ครับ

[Un]

มันไม่ซ่อนให้ครับ อาจารย์ มัน Error ตามรูปเลยครับ
 ผมลองตัด S ออก มันไม่ Error แต่ มันก็ไม่ซ่อน Page Header

[TTT]

Me.Section ต้องไม่มี s ต่อท้าย ไม่ใช่หรือครับ ส่วนชื่อ PageHeaderSection ต้องเป็นชื่อของพื้นที่ ที่เราจะทำการซ่อน เช่นถ้าเราต้องการซ่อนพื้นที่ในส่วนของ Header ก็คล๊กที่พื้นที่ Header นั้น ในมุมมองออกแบบ แล้วดูที่ Property > Other > Name ว่าใช้ชื่อว่าอะไรก็ใส่ให้ตรงกับชื่อนั้น ส่วนการเทียบ Page = Pages เราจำเป็นต้องสร้าง Control Text Box ขึ้นมา โดย Control Source กำหนดเป็น [Pages] จะแสดงหรือไม่ก็ได้แต่ต้องมี เพื่อให้การนับหน้าทั้งหมดทำงาน เราถึงจะเทียบค่ากับหน้าปัจจุบันได้จริง ประมาณนี้ครับ

[ปิ่นณรงค์]

ใช้แบบนี้ดูครับซ่อน เลขหน้า หน้าสุดท้าย

Private Sub Report_Load()
If Me.Page = Me.Pages Then
Me.Section(acPageHeader).Visible = False
End If
End Sub

[Un]

ใช้แบบนี้ดูครับซ่อน เลขหน้า หน้าสุดท้าย

Private Sub Report_Load()
If Me.Page = Me.Pages Then
Me.Section(acPageHeader).Visible = False
End If
End Sub

ก็ยังไม่ได้ครับ

Me.Section ต้องไม่มี s ต่อท้าย ไม่ใช่หรือครับ ส่วนชื่อ PageHeaderSection ต้องเป็นชื่อของพื้นที่ ที่เราจะทำการซ่อน เช่นถ้าเราต้องการซ่อนพื้นที่ในส่วนของ Header ก็คล๊กที่พื้นที่ Header นั้น ในมุมมองออกแบบ แล้วดูที่ Property > Other > Name ว่าใช้ชื่อว่าอะไรก็ใส่ให้ตรงกับชื่อนั้น ส่วนการเทียบ Page = Pages เราจำเป็นต้องสร้าง Control Text Box ขึ้นมา โดย Control Source กำหนดเป็น [Pages] จะแสดงหรือไม่ก็ได้แต่ต้องมี เพื่อให้การนับหน้าทั้งหมดทำงาน เราถึงจะเทียบค่ากับหน้าปัจจุบันได้จริง ประมาณนี้ครับ

คำตอบนี้ ทำให้ผมเข้าใจเพิ่มว่า แต่ละ Section เปลี่ยนชื่อได้ และเอาจุดนี้ไปอ้างอิง
ที่สร้าง Control Text Box ขึ้นมา ผมลองทำแล้ว มัน Error ที่บรรทัด ที่อ้างคอนโทลเลยครับ
ผมลองเอา Control Text Box  ไปไว้ในส่วนต่างๆ ทัง Detail , ReportHeader และ PageHeader มันก็ยัง Error
ลองเปลี่ยน Event ดู ที่ On Load ยัง Error เหมือนเดิม ไปไว้ที่ On Format ไม่ Error แต่ ไม่มีผลอะไรเกิดขึ้นครับ

[ปิ่นณรงค์]

ผมลองใช้
ที่ ControlTextBox ใส่

โค๊ด: [Select]

="Page " & [Page] & " of " & [Pages]
ที่ตัวรายงานใส่

โค๊ด: [Select]

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Cancel = Me.Page = Me.Pages
End Sub






มันได้ผลครับพี่ลอง Print แล้วเลขหน้าติดมา เว้นแต่หน้าสุดท้ายที่ไม่มีเลขหน้า

[Un]

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
      Cancel = Me.Page = Me.Pages
End Sub

อันนี้เจ๋งครับ อาจารย์ Newbies ขอบพระคุณมากครับ คำสั่งนี้ ผมเอาไปประยุกต์ได้อีกเยอะเลย