ต้องการให้ในรายงานมีจำนวน 10 เรคคอร์ด (ถึงแม้จะมีข้อความเพียงแค่ 1 เรคคอร์ด)


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

20 มี.ค. 61 , 22:28:45
อ่าน 1492 ครั้ง

TMS Metal

ต้องการบังคับให้ในรายงานมีจำนวน 10 เรคคอร์ด (ถึงแม้จะมีข้อความเพียงแค่ 1 เรคคอร์ด) รบกวนท่านอาจารย์ ด้วยค่ะ
เป็นแบบฟอร์มใช้เสนอราคาลูกค้า ซื่งในแบบฟอร์ม ก็จะอยู่ในขนาด A4 พอดี

 
โพสต์นี้ได้รับคำขอบคุณจาก: I love movies

21 มี.ค. 61 , 09:34:33
ตอบกลับ #1

OddyWriter

วิธีนี้น่าจะช่วยได้

https://www.thai-access.com/index.php?topic=220.msg784
รับจ้างทำฐานข้อมูล สอนวางระบบฐานข้อมูล Excel/ Access/ VBA Excel/ VBA Access/ SQL Server/ Database Design
แม้กระทั่งดูดวง ก็ติดต่อได้นะครับ
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin, I love movies

23 เม.ย. 61 , 11:38:30
ตอบกลับ #2

mookda16

ขอบคุณมากค่ะ สำหรับวิธีที่แนะนำมา ลองทำอยู่นานมาก 555+

แต่ก็สามารถงมๆ ไปได้แล้วค่ะ

ปัญหาใหม่คือ พอสั่ง print เส้นที่ออกมา บางมาก ค่ะ อยากให้มีความหนาประมาณ 1พ. ต้องกำหนดได้ที่ไหนค่ะ

ขอบคุณอีกครั้งค่ะ

 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin

23 เม.ย. 61 , 11:57:20
ตอบกลับ #3

ปิ่นณรงค์

ขอบคุณมากค่ะ สำหรับวิธีที่แนะนำมา ลองทำอยู่นานมาก 555+

แต่ก็สามารถงมๆ ไปได้แล้วค่ะ

ปัญหาใหม่คือ พอสั่ง print เส้นที่ออกมา บางมาก ค่ะ อยากให้มีความหนาประมาณ 1พ. ต้องกำหนดได้ที่ไหนค่ะ

ขอบคุณอีกครั้งค่ะ

จากคำสั่งเดิมแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)

End Sub
ใส่เพิ่มเป็นแบบนี้
โค๊ด: [Select]
Private Sub Report_Page()
Me.ScaleMode = 7         'กำหนดให้หน่วยเป็น cm.
Me.DrawStyle = vbSolid
Me.DrawWidth = 5
Me.Line (0.1, 7.4)-(0.1, 19.6)     'ลากเส้นจากตำแหน่งพิกัด 0.1 cm, 7.4 cm ไปที่พิกัด 0.1 cm, 19.6 cm
Me.Line (1.2, 7.4)-(1.2, 19.6)
Me.Line (3.1, 7.4)-(3.1, 19.6)
Me.Line (10.5, 7.4)-(10.5, 19.6)
Me.Line (12.2, 7.4)-(12.2, 19.6)
Me.Line (14.2, 7.4)-(14.2, 19.6)
Me.Line (16.2, 7.4)-(16.2, 19.6)
Me.Line (18.67, 7.4)-(18.67, 19.6)
Me.Line (0.1, 7.4)-(18.67, 7.4)
Me.Line (0.1, 8.6)-(18.67, 8.6)
Me.Line (0.1, 19.6)-(18.67, 19.6)
Me.DrawWidth = 1
End Sub

น่าจะประมาณนี้คับ
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin, sjs, mookda16, I love movies

23 เม.ย. 61 , 12:44:49
ตอบกลับ #4

mookda16

ได้แล้วคร้าาา ขอบคุณที่สุด

 
โพสต์นี้ได้รับคำขอบคุณจาก: pirin


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


 

Sitemap 1 2 3 4 5