สร้างบิลที่มีรายการสินค้ามาก จึงพิมพ์บิลใบที่1 2 3...



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

09 ก.ย. 62 , 15:13:57
ตอบกลับ #16

สันติสุข

ลบส่วนที่ผมตีกรอบเอาไว้
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

09 ก.ย. 62 , 20:28:46
ตอบกลับ #17

kunlek

ได้แล้วครับ อจ. รายการที่อยู่ section pagefooter หายหมด  จะไปโชว์เฉพาะหน้าสุดท้าย  อจ.ครับ ....ถ้าจะให้หน้าแรก ที่ footer หายหมด ให้แสดงลายมือชื่อผู้ขาย  ผู้จัดการ เหมือนหน้าสุดท้าย เราจะเอาไปไว้ใน section ไหนของ page ครับ

 

09 ก.ย. 62 , 23:26:00
ตอบกลับ #18

สันติสุข

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 ก็เขียนโค้ดซ้ำๆกันไปเท่านั้นบรรทัด
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

10 ก.ย. 62 , 10:27:32
ตอบกลับ #19

kunlek

ขอบพระคุณครับ เรียบร้อยครับ

 

18 ต.ค. 62 , 21:20:30
ตอบกลับ #20

kunlek

code ข้างต้นเป็นการเอา box ปิดบริเวณ  แต่ถ้าจะเป็นการปิด fieldแทน เพื่อให้ ตารางบิลคงอยู่   สมมติว่ามี field1,   field2,   field3,  field4 เขียน code ที่เขียนเป็นอย่างไรครับ จะกำหนด tag เป็นกลุ่มได้ไหมครับ

 

18 ต.ค. 62 , 22:13:25
ตอบกลับ #21

สันติสุข

ปิดฟิลด์ก็คือ ไม่ให้เห็นหรือเปล่าครับ ถ้าใช่ ก็กำหนด Me.ชื่อฟิลด์.Visible = False   หรือถ้าจะกลับมาให้เห็น ก็กำหนด Me.ชื่อฟิลด์.Visible = True  เหมือนอย่างโค้ดที่ใช้กับ Me.Box1.Visible นั่นเอง  ส่วนการใช้ Tag property กำหนด ก็ลองดูคำตอบสุดท้ายของคุณ PNR ใน https://www.thai-access.com/index.php?topic=834.0
« แก้ไขครั้งสุดท้าย: 18 ต.ค. 62 , 22:19:02 โดย สันติสุข »
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 

19 ต.ค. 62 , 09:35:56
ตอบกลับ #22

nat_c

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

แทนชื่อ Box ด้วยฟิลด์ชื่อ text105
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    Me.Text105.Visible = Not ShowPageFooter

End Sub
***ผลที่ได้คือไปแสดงผลลัพธ์หน้าสุดท้าย  แทนที่จะมีผลกับหน้า 1 แล้วหน้า 2 แสดงปกติ(พิมพ์ 2 หน้า)**
ไม่รู้ต้องไปแก้ไขตรงไหนอีกครับ

 

19 ต.ค. 62 , 10:16:17
ตอบกลับ #23

nat_c

  • สมาชิกไท.Access
  • กระทู้: 22

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

Me.Text105.Visible =  ShowPageFooter  แก้บรรทัดนี้ด้วย

 


บอร์ดเรียนรู้ Access สำหรับคนไทย