ต้องการใช้ ตัวเลขปี 4 ตัวในวันนี้

ลองใช้ฟังก์ชั่น Year(date) มันกับ Error ครับ
อยากทราบว่ามันจะเรียกใช้ยังงัยถึงจะได้เลข ปี 4 ตัวครับ

ลองทดลอง Month(date) ก็ได้ตามปกติครับ

ใส่ Input Mark ยังงัย ให้บันทึกไอดีต่างชาติ แบบนี้ได้ครับ

0-0000-T035991-3

กำหนดรูปแบบตัวคั่นของ Text File เป็น | (Pii)
มีความจำเป็นต้องใช้ Code ในการเขียน จึงเขียนออกมาแบบนี้

       
        Dim filex
        Dim rst As DAO.Recordset
        Set rst = CurrentDb.OpenRecordset("Tableที่ส่งออก")
 
                filex = FreeFile
                Open "D:\Folder\FileName.txt" For Output As filex
                Print #filex, "Text ต่างๆ ที่ต้องใช้ประกอบไฟล์"
                Do Until rst.EOF
                Print #filex, rst("ฟิลด์ที่1") & "|" & rst("ฟิลด์ที่2") & "|" & rst("ฟิลด์ที่3")      <---- บรรทัดนี้เอา | มาขั้น
                rst.MoveNext
                Loop
                Print #filex, "Text ต่างๆ ที่ต้องใช้ประกอบไฟล์"
                Set rst = Nothing
           
                Close

ผลที่ส่งมา บางไฟล์ที่ส่งมา สามารถรับ Text ไฟล์ แยกฟิลด์ตาม | ที่ขั้นได้ปกติ
บางไฟล์ ไม่สามารถ แยกได้ ฟิลด์ซ้อนกันใน 1 เรคคอด

ในกรณีปกติ ผมส่งออกแล้วบันทึกรูปแบบการส่งออกมา แต่ถ้าจะนำรูปแบบที่บันทึก
มาใช้ใน Code นี้ ต้องเขียนยังงัยครับ

ขอบพระคุณครับ

การ Export Query หลายๆ Query ออกเป็น Text ไฟล์ๆ เดียว โดยที่
Query แต่ละ Query คอลัม ไม่เท่ากัน เลย สามารถทำได้มั้ยครับ

ทำอย่างไรครับ

เพิ่มกล่องข้อความในส่วน Report Footer แล้ว Error
ตามรูปครับ มันเกิดจากอะไร ต้องแก้ไขยังงัยครับ

จะใช้คำสั่ง Alt+ลูกศรลง เพื่อให้  combo ลงอัตโนมัติ แต่ไม่รู้ ว่าจะโค๊ตยังงัยครับ รบกวนอาจารย์ด้วยครับ

ซ่อน Page Header ที่หน้าสุดท้าย โดย ใช้คำสั่ง เมื่อ Page = Pages
ให้ Page Header.Visible = False แต่มันไม่ได้ สังเกตุว่า เวลาพิมพ์ Page Header
มันไม่ขึ้นอัตโนมัติ เหมือนใช้คำว่า Section(?).Visible=False

คำถามมีอยู่ว่า มันคือ Section ที่เท่าไหร่ คือ Page Header
หรือมันมีวิธีอื่นที่ไม่ใช่ 2 แบบนี้ครับ