กระทู้เก่าบอร์ด อ.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
รบกวนด้วยนะครับ
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
2 @R08367
หาไม่ได้เหมือนกัน .. งั้นเอาวิธีแก้คันไปก่อนละกัน
วิธีิการ
1. สร้างฟอร์มขึ้นมา 1 ฟอร์ม (เพื่อทำเป็น Template)
2. กำหนดให้แสดงส่วนของ Header/Footer
3. บันทึกฟอร์ม
วิธีใช้
Dim frm As Form
Set frm = CreateForm(, "ชื่อฟอร์มจากข้อ 3")
วิธีิการ
1. สร้างฟอร์มขึ้นมา 1 ฟอร์ม (เพื่อทำเป็น Template)
2. กำหนดให้แสดงส่วนของ Header/Footer
3. บันทึกฟอร์ม
วิธีใช้
Dim frm As Form
Set frm = CreateForm(, "ชื่อฟอร์มจากข้อ 3")
3 @R08373
DoCmd.RunCommand acCmdFormHdrFtr
หรือ
DoCmd.RunCommand acCmdPageHdrFtr
หรือ
DoCmd.RunCommand acCmdPageHdrFtr
4 @R08393
ขอบคุณมากครับ
5 @R08398
เพิ่มเติมของคุณ U&ME หน่อยนะครับ
ผมสั่ง create form จาก Template แล้ว คำถามคือ ทำไมพวก TextBox หรือ label อื่น ๆ ไม่ตามมาด้วยล่ะครับ มีแต่ฟอร์มเปล่าๆ เท่านั้น ต้องสั่งอะไรเพิ่มเติมไหมครับ
เพราะถ้าทำได้ผมก็จะสร้างเป็นต้นฉบับไว้เลย หลังจากนั้นแค่กำหนด Recordsource กับ ฟิลด์บางตัวก็เสร็จเลย
ผมสั่ง 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
Dim tpForm As New [ชื่อฟอร์มต้นแบบ]
' Create form based on custom form.
Set frm = tpForm
DoCmd.OpenForm frm.Name, acDesign
*** หากสร้างหลายฟอร์มต้องเขียนโค้ดเพื่อป้องกันชื่อที่อาจซ้ำกันจนทำให้เกิด Error
7 @R08427
มัน error หล่ะครับ กลายเป็นว่ามันไปเปิด ชื่อฟอร์มต้นแบบแทนหล่ะครับ
หรือมีวิธีเปิดฟอร์มขึ้นมาแก้ไข แล้วสั่ง save as เป็นชื่อใหม่ได้ไหมครับ
หรือมีวิธีเปิดฟอร์มขึ้นมาแก้ไข แล้วสั่ง save as เป็นชื่อใหม่ได้ไหมครับ
Time: 0.2907s
ลองหาจากวิธี create control สิครับ