ถ้ากด ctrl+' ที่ฟิลด์ จะได้ข้อความเดิมก่อนหน้าที่พิมพ์ไว้ในฟิลด์นั้น  ถ้าจะใช้แบบ เพียง click mouse ข้อความจะปรากฏ แทนกด ctrl +' ได้ไหมครับ เพราะมีหลายฟิลด์มากในฟอร์ม  ถ้าจะให้ดี เรียกข้อมูลเก่าให้โชว์  และแก้แต่ฟิลด์ที่ต้องเปลี่ยน แล้ว save ยิ่งดีมากๆๆครับ

ยังไม่ได้ครับ

ถ้าจุดเริ่มดูสินค้าคงเหลือ  แล้วไปค้นหารายการสินค้าซื้อเข้าสัมพันธ์กับจำนวนที่เหลือเพื่อหาอินวอยซ์ที่ซื้อเข้า เพื่อหาราคาทุน จะเขียน code อย่างไรครับเพื่อดึงอินวอยซ์ที่เกี่ยวข้องออกมาใช้คำนวณ  ตอนนี้ใช้ export รายงานสต๊อก ไป excel ช่วยคำนวณแบบ manual 

ได้แล้วครับ อจ. รายการที่อยู่ section pagefooter หายหมด  จะไปโชว์เฉพาะหน้าสุดท้าย  อจ.ครับ ....ถ้าจะให้หน้าแรก ที่ footer หายหมด ให้แสดงลายมือชื่อผู้ขาย  ผู้จัดการ เหมือนหน้าสุดท้าย เราจะเอาไปไว้ใน section ไหนของ page ครับ

โมดูลที่ใส่เป็นอย่างนี้ครับ

Option Compare Database

Option Explicit

Dim ShowPageFooter As Boolean

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    ShowPageFooter = False
    Me.Section("PageFooterSection").Visible = True
End Sub


Private Sub voucher_s_id_footer_Format(Cancel As Integer, FormatCount As Integer)

    ShowPageFooter = True
End Sub

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
    If Not ShowPageFooter Then Me.Section("PageFooterSection").Visible = False
End Sub

ชื่อ groupfooter1 แต่หาโมดูลของ form ไม่เจอครับ ผมคงใส่โมดูลผิด   หรือเป็นว่าส่วนยอดรวมทั้งหมดผมอยู่ที่ pagefooter

ยังไม่ได้ครับ เอา code นี้ไปใส่ในโมดูล ถูกต้องไหมครับ และ froce new page เปลี่ยนเป็น after section

ที่ทำมาผิดหมด แก้ไขเสร็จแล้ว แต่สังเกตว่าบิลใบที่1 ใบที่2 จำนวนเงินมียอดและรายการเท่ากัน  อจ.มี codeที่ไม่ให้บิลใบที่ 1แสดงหรือไม่ครับ กรณีบิลมีมากกว่า 1 หน้า