นี่ทำอะไร ฟอร์ม หรือรายงาน
น่าจะเป็นรายงานนะ
ต้องเขียนโค้ด ครับ อาจเขียนเป็นฟังก์ชั่น แล้วฝังในเหตุการ on print หรือ on format ครับ

จะแนะนำเพิ่ม หรือจะยกตัวอย่างโค้ด ก็ลำบาก มันไม่มีข้อมูลอ้างอิงครับ

ภาพที่ให้ดูเป็นหน้ารายงานค่ะ
ข้อมูลอ้างอิงหมายถึงอะไรคะ
คุณ yeadram ช่วยยกตัวอย่างหน่อยค่ะ
ขอบคุณมากค่ะ

อันนี้เป็นหน้าออกแบบรายงานค่ะ

อันนี้เป็นหน้าที่ออกแบบรายงานค่ะ

เจ้าของกระทู้ทำได้หรือยังครับ รบกวนขอคำปรึกษาด้วยครับ พอดีต้องการทำ report รุปแบบเดียวกัน

ยังทำไม่ได้เลยค่ะ ท่านใด พอให้ความรู้ได้ ช่วยด้วยนะคะ

คือผมงงกับคำถาม ส่งไฟล์(เฉพาะส่วนที่มีปัญหา) มาให้ดูได้ไหมครับ พร้อมคำอธิบายถึงปัญหา

คิดว่ารูปกับคำถามน่าจะไม่ตรงกันแล้วนะครับ
(ปัญหาของ web นี้)

ภาพนี้ค่ะ

อยากให้ข้อมูลทั้ง 2 ข้าง แสดงเท่ากัน
หากไม่ครบคู่ ให้ข้อมูลที่เป็นเศษแสดงที่กึ่งกลางหน้ากระดาษค่ะ

รบกวนทุกท่านด้วยนะคะ

ทำให้ข้อมูล 2 ข้างแสดงเท่ากันน่ะคิดวิธีการออก

แต่เศษให้อยู่กึ่งกลางเนี่ยคิดไม่ออกจริงๆ

มีแนวคิดอย่างไรลองแนะนำก่อนได้นะคะ
จะได้ทำไปลองปรับใช้ดูก่อนค่ะ
ขอบคุณทุกท่านค่ะ

หายไปนานเลย

แนวคิดคือให้ออกรายงายในรูปแบบ Label ครับ เพียงเท่านี้เราก็จะได้ข้อมูลออกมาเป็นจำนวนคอลัมน์แล้วครับ

ใช่คนเดียวกันกับที่ถามผมเรื่องสมุดธนาคารหรือเปล่าครับ

การพิมพ์เป็นแบบ ซ้ายคนที่ 1   ต่อไปคนที่ 2 ก็พิมพ์ทางขวา   แล้วคนที่ 3 ก็ขึ้นบรรทัดใหม่พิมพ์ทางซ้าย   ไปอย่างนี้เรื่อยๆจนถ้าเหลือคนสุดท้ายคนเดียว ก็ให้พิมพ์กึ่งกลางกระดาษ ? หรือ ลำดับเรียงลำดับจากบนลงล่างก่อน เมื่อเต็มหน้าค่อยเปลี่ยนไปทางคอลัมน์ขวา

ถูกต้องค่ะ อ. สันติสุข คนเดียวกันค่ะ

การพิมพ์เป็นแบบ ซ้าย คนที่ 1 - 50 ขวา คนที่ 51 - 100 ค่ะ ถ้าไม่ครบคู่ก็จะเป็นเศษกึ่งกลางหน้ากระดาษค่ะ

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

ถ้าพิมพ์ซ้าย-ขวา ซ้าย-ขวา ยังมีทาง แต่บนลงล่างก่อน ไม่น่าเป็นไปได้ครับ ถ้าเป็นผม ผมคงไปพิมพ์ออก Excel แทนครับ

ถ้าพิมพ์ซ้าย-ขวา มีวิธีอย่างไรคะ

แนวคิดคือ ไปกำหนดจำนวนคอลัมน์ที่จะพิมพ์ที่ Page Setup เป็น 3 (ย้ำอีกทีว่า 3 ไม่ใช่ 2) แล้วกำหนด Column Width เป็น หนึ่งในสาม ของความกว้างกระดาษ เลือก Column Layout เป็น Cross, Then Down ดังนั้นเวลาพิมพ์มันก็จะพิมพ์ 3 เรคอร์ดในบรรทัดเดียว แต่เราจะควบคุมไม่ให้พิมพ์คอลัมน์กลาง ยกเว้นกรณีเป็นเศษเหลือ ซึ่งจะกลับกันคือไม่ให้พิมพ์คอลัมน์แรก



เราใช้ Me.NextRecord = False และ Me.เท็กซ์บ็อกซ์.Visible = False สำหรับลำดับที่ 2, 5, 8, ... ซึ่งอยู่ในคอลัมน์กลาง (ตย.ในคำถามที่เคยถามผมนั่นแหล่ะ http://www.thai-access.com/yeadram_view.php?topic_id=487) ดังนั้นคอลัมน์กลางจะไม่แสดงออกมา แต่เราจะเช็คลำดับจากเท็กซ์บ็อกซ์ SEQ ไม่ได้ เพราะเมื่อ Me.NextRecord = False ค่า SEQ มันก็จะไม่เปลี่ยนไปด้วย เราต้องสร้างตัวแปรเพื่อนับลำดับเอาเอง พอถ้ามีเศษเหลือสุดท้าย เราก็ต้องสั่งเหมือนข้างต้น แต่สั่งที่เรคอร์ดที่แสดงในคอลัมน์แรกแทน

ส่วนจะรู้ได้ยังไงว่าเป็นเรคอร์ดลำดับสุดท้าย ก็ใช้การเก็บเลขลำดับสูงสุดที่นับได้ในลูปแรกของรายงานไว้ก่อน (วิธีการทดสอบลูปแรกของรายงาน ดูได้จาก http://www.thai-access.com/yeadram_view.php?topic_id=3981&page=2 คำตอบ (R18132) ตรงบรรทัดที่เริ่มด้วย If Me.Pages = 0 Then) พอลูปจริงก็นำมาเปรียบเทียบครับ

ขอบคุณ อ.สันติสุข นะคะ จะลองนำวิธีการไปปรับใช้ ได้ผลอย่างไร จะมาแจ้งให้ทราบค่ะ

เพิ่งสังเกตุเห็นว่าเป็นกระทู้ข้ามปีแล้ว เจ้าของกระทู้ยังพยามอยู่เลย ผมมีไฟล์เก่าเคยทำไว้แบบ Down Then Across 2 คอลัมน์เท่ากัน แต่ถ้ามีเศษจะอยู่คอลัมน์ขวาหรือซ้ายก็ได้ แต่แบบตรงกลางไม่มีอ่ะครับ พอได้ไม๊ครับ ถ้าสนใจก็ตอบกลับมานะครับ เดี๋ยวส่งไฟล์ตัวอย่างไปให้ดู

จากแนวคิดของ อ.สันติสุข ผมลองปรับแก้ไฟล์ผมดู สามารถทำได้ประมาณนี้ครับ


ลองโหลดไฟล์ไปปรับใช้ดูครับ

https://www.dropbox.com/s/adz6b1bi3r77w8w/Down%20then%20across%28Mid%29.mdb