ปริ้นเฉพาะรูปที่ต้องการเท่านั้น ไ่ม่ทราบว่าต้องเขียน VBA หรือ Macro ยังไงครับ

[001Jetnipit]

สวัสดีครับ ผมไม่ทราบวิธีโค้ด VBA หรือ Macro ในการปริ้นรูปที่เราต้องการ ตอนนี้ผมสร้าง Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา แต่ผมไม่ทราบวิธีการเขียน VBA หรือ Macro ว่าต้องเขียนยังไง ขอบคุณครับ

รูปภาพ

[PNR]

Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา

Field เก็บรูปเป็นแบบ Attachment หรือเปล่าครับ
ในรายงานมีรหัสของพนักงานแต่ละคนอยู่ด้วยไหมครับ ถ้ามีสามารถใช้การอ้างอิง Field รหัสพนักงานเพื่อพิมพ์ภาพของ Record นั้นได้ครับ

ตัวอย่างด้านล่าง

[PNR]

ถ้าท่านต้องการปริ้นทันที ไม่แสดงตัวอย่างก็แก้โค้ดเป็นแบบนี้

แก้จาก DoCmd.OpenReport "rpt1", acViewPreview
เป็น DoCmd.OpenReport "rpt1", acViewNormal

ตัวอย่างด้านบนผมแก้ไขใหม่ครับ โหลดไปดูได้

[001Jetnipit]

เป็น Attachment ครับ ในตัว Form ไม่ได้ใส่ ID ไว้มีแต่ Name ครับ ส่วนใน Report ผมใส่ Field Name อันเดียวกับที่ใช้กับ Form ไว้แล้วครับ ให้ Position อยู่ใต้รูปครับเพราะผมไม่อยากให่มันแสดง

[001Jetnipit]

ครับแต่ตอนนี้ปัญหาคือ ไม่ทราบว่าจะทำให้มันลิงค์กันยังไงครับ เพราะกด Preview ที่ไรมันโชว์มาทุกคนเลยครับ

[001Jetnipit]

Button ไว้ และ Report ของ field รูปภาพ ตอนเราดูพนักงานคนไหนอยู่ เมื่อกด Button ใต้รูป มันก็จะพิมพ์รูปนั้นๆ ออกมา

Field เก็บรูปเป็นแบบ Attachment หรือเปล่าครับ
ในรายงานมีรหัสของพนักงานแต่ละคนอยู่ด้วยไหมครับ ถ้ามีสามารถใช้การอ้างอิง Field รหัสพนักงานเพื่อพิมพ์ภาพของ Record นั้นได้ครับ

ตัวอย่างด้านล่าง

ผมกดปริ้นแล้วมันขึ้นแบบนี้อะครับไฟล์ที่พี่ส่งมา

[PNR]

SYSTEM LOCATE ไม่เหมือนกันแน่เลย
ที่ตัวรายงานให้กำหนดการแสดงรูปโดยกำหนด Criteria ตามรูปนะ
ที่ตัวรายงาน
1.เข้าไปกำหนด RecordSource
1.

2.เมื่อเข้ามาแล้วกำหนด Criteria โดยใช้ฟิลล์ที่จะอ้างอิง จากตัวอย่างผมใช้
Field เก็บรูปชือ Field1
Field EmpID โดยอ้างอิ้งเทคบ๊อก EMPID
ชื่อฟอร์มชื่อ Frm1 โค้ดจะเป็น   Nz([forms]![Frm1]![EMPID],"")
2.

3.ตรงปุ่มปริ้นใส่โค้ดแบบนี้
Me.Dirty = False
DoCmd.OpenReport "rpt1", acViewPreview
ถ้ายังไม่เข้าใจถ้าสามารถรีโมทได้จะไปเพิ่มให้

[001Jetnipit]

ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ

[001Jetnipit]

ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ

ได้แล้วครับ อิง Record Source ผิดครับ อิงเป็น Query ที่ส้รางมาใหม่ได้ผลแล้วครับ ขอบคุณครับ