ต้องการพิมพ์สติกเกอร์ตามจำนวนแผ่นที่กำหนด



ในแต่ละแผ่นก็มีข้อมูลเช่น ชื่อ-สกุล ปัญหาคือ เช่น
นาย ก ต้องการ 3 แผ่น นาย ข 4 แผ่น นาย ค 5 แผ่น
เก็บข้อมูลในตารางไว้ดังนี้
์Name                 Unit(จำนวนแผ่นที่จะพิมพ์)
นาย ก                    3
นาย ข                    4
นาย ค                    5
ต้องตั้งค่าหรือ เขียนยังงัยให้พิมพ์ออกมาในสติกเกอร์ ดังรูปภาพ ได้ครับ

ขอบคุณครับ

อยากซ่อน PageHeaderSection ที่หน้าแรก

ผมใช้โคตแบบนี้

        If Page = 1 Then
            Me.PageHeaderSection.Visible = False
        Else
            Me.PageHeaderSection.Visible = True
        End If

แต่ทำไมมันกับซ่อนที่หน้าถัดไป แต่หน้าแรกไม่ซ่อน
ผมลองทำสลับกัน ผลออกมาเหมือนเดิม

จากรูป ผมกำหนด  Format ของกล่องข้อความเป็น Standard ทศนิยม 2 ตำแหน่งแล้ว (วงกลมที่ 1)
แต่ผลลัพธ์ตอน Preview ออกเป็นแบบ วงกลม 2 และ 3 ซึ่งผมอยากให้ออกเป็นแบบวงกลม 3

คำถามคือทำไมมันเป็นแบบนี้
และจะแก้ไขอย่างไรบ้างครับ

ผมได้ลองใส่ format([B4],"0.00") ในคิวรี่และว ก็ไม่ได้

ผมมี combobox ที่เลือกธนาคารต่างๆ เมื่อเลือกแล้ว ผมจะคลิกที่ปุ่มนึงแล้ว
ให้มันดูว่า เป็นธนาคารไหน แล้วเปิดฟอร์มที่กำหนดไว้

Text ใน combo ไม่ได้มีชื่อธนาคารอย่างเดียว เช่น
ธนาคารกรุงไทย สาขา......
ธนาคารไทยพานิชย์ สาขา.....

ถามว่าจะเขียนโคตยังงัยครับ

มีคำสั่งไหนแทน Sendkey {Enter} ได้บ้างครับ

ต้องการใช้ ตัวเลขปี 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 นี้ ต้องเขียนยังงัยครับ

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