code ในการสั่งให้ PageHeader/PageFooter
กระทู้เก่าบอร์ด อ.Yeadram

 1,411   7
URL.หัวข้อ / URL
code ในการสั่งให้ PageHeader/PageFooter

ผมสร้างฟอร์มด้วยการเขียนโปรแกรม

   Dim frm As Form
    Set frm = CreateForm

จะได้ฟอร์มขึ้นมาใหม่ 1 ฟอร์ม แต่ฟอร์มใหม่ที่ได้ไม่มีส่วนของ Header กับ Footer ไม่ทราบว่าต้องใช้คำสั่งอะไรในการสั่งให้ Header แสดง

ผมลอง frm.pageheader.visible = True ก็Error
frm.Section(acHeader).Visible = True ก็ Error

รบกวนด้วยนะครับ

7 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R08348
หน้าจะเป็น control ตัวหนึ่งที่อยู่ใน form ครับ
ลองหาจากวิธี create control สิครับ
2 @R08367
หาไม่ได้เหมือนกัน .. งั้นเอาวิธีแก้คันไปก่อนละกัน
วิธีิการ
     1. สร้างฟอร์มขึ้นมา 1 ฟอร์ม (เพื่อทำเป็น Template)
     2. กำหนดให้แสดงส่วนของ Header/Footer
     3. บันทึกฟอร์ม

วิธีใช้

     Dim frm As Form
     Set frm = CreateForm(, "ชื่อฟอร์มจากข้อ 3")

3 @R08373
DoCmd.RunCommand acCmdFormHdrFtr
หรือ
DoCmd.RunCommand acCmdPageHdrFtr
4 @R08393
ขอบคุณมากครับ
5 @R08398
เพิ่มเติมของคุณ U&ME หน่อยนะครับ

ผมสั่ง create form จาก Template แล้ว คำถามคือ ทำไมพวก TextBox หรือ label อื่น ๆ ไม่ตามมาด้วยล่ะครับ มีแต่ฟอร์มเปล่าๆ เท่านั้น ต้องสั่งอะไรเพิ่มเติมไหมครับ

เพราะถ้าทำได้ผมก็จะสร้างเป็นต้นฉบับไว้เลย หลังจากนั้นแค่กำหนด Recordsource กับ ฟิลด์บางตัวก็เสร็จเลย



6 @R08406
Dim frm As New Form
Dim tpForm As New [ชื่อฟอร์มต้นแบบ]
    
' Create form based on custom form.
Set frm = tpForm
DoCmd.OpenForm frm.Name, acDesign

*** หากสร้างหลายฟอร์มต้องเขียนโค้ดเพื่อป้องกันชื่อที่อาจซ้ำกันจนทำให้เกิด Error
7 @R08427
มัน error หล่ะครับ กลายเป็นว่ามันไปเปิด ชื่อฟอร์มต้นแบบแทนหล่ะครับ

หรือมีวิธีเปิดฟอร์มขึ้นมาแก้ไข แล้วสั่ง save as เป็นชื่อใหม่ได้ไหมครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2907s