เขียน VBA แบบนี้อย่างไร
กระทู้เก่าบอร์ด อ.Yeadram

 1,176   3
URL.หัวข้อ / URL
เขียน VBA แบบนี้อย่างไร

เรียน อ.ทุกท่าน ครับ
ผมจะเขียน VBA แบบนี้อย่างไรครับ

ใน Detail_Print
If
เมื่อจบ ข้อมูล ของ Group ID ( บรรทัดนี้ VBA จะเขียนอย่างไรครับ )
Then
Me.LineA.Visible = False
Else ( ถ้ายังไม่จบ )
Me.LineA.Visible = True
End if

ขอบพระคุณมากครับ

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

1 @R18302
คือ อย่างนี้ครับ
ใน detail ของ group id
ผมออกแบบรายงาน
เมื่อเป็นข้อมูลของกลุ่ม ID แต่ละคน(1 คนมีข้อมูลซ้ำหลายบรรทัด)
ก็จะมีเส้นปะ คั่นในแต่ละแถว
แต่เมื่อจบข้อมูลของ 1 คน ผมต้องการเปลี่ยนเป็นเส้นคู่
ผมเลยเอา เส้นคู่นี้ ไปใส่ไว้ใน ID Footer ที่ตำแหน่ง Top = 0 ก็ได้อยู่
แต่ เส้นคู่กับเส้นปะ จะซ้อนกัน ไม่สามารถทับกันได้สนิท (เส้นปะไม่หายไป)
จึงทำให้รายงานออกมาไม่สวยงาม

ที่ต้องการก็คือ
ถ้าเป็นบรรทัดของ ID คนที่ 1 ก็ให้มีเส้นปะ คั่นระหว่างบรรทัด
ถ้าจบบรรทัดสุดท้ายของ ID คนที่1 ก็ให้มีเส้นคู่ คั่น ระหว่าง ID คนที่ 2 ... 3..4..

ขอบพระคุณมากนะครับ
2 @R18304
เนื่องจากยังคิดไม่ออกว่าจะหาวิธีอะไรมาตรวจว่าเป็นการพิมพ์บรรทัดสุดท้ายของแต่ละกลุ่ม เลยคิดว่าต้องเปลี่ยนไปเป็นวางขีดเส้นไว้ที่เหนือของแต่ละบรรทัดแทน แล้วไม่พิมพ์เส้นนี้ที่บรรทัดแรกของกลุ่ม ซึ่งเราสามารถทำได้จากสร้างเท็กซ์บ็อกซ์ T ไว้ใน detail section   กำหนด Visible property เป็น false   ใส่ =1 (มีเครื่องหมายเท่ากับด้วย) ใน Control Source property   กำหนก Running Sum เป็น Overgroup ดังนั้นค่านี้จะวิ่งตั้งแต่ 1 ถึงจำนวนบรรทัดสูงสุดในแต่ละกลุ่ม ใน event procedure Detail_Format ก็ใส่โค้ดว่า (สมมุติ เส้นมีชื่อว่า L) L.Visible = (me.T <> 1) เท่านี้ครับ
3 @R18305
ทำได้แล้วครับ

ขอขอบพระคุณ
1. สันติสุข
2. PichaiTC
3. yeadram
4. TTT
5. อื่นๆ อีกทุกๆ ท่าน ในเว็บบอร์ด นี้

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