ถ้าแบบนี้ละครับ ถ้าไม่ได้ก็ teamviewer ไปดูให้ก็ได้นะครับ 

Private Sub TxtFindDapartment_GotFocus()
Dim strFindName As String
If Not IsNull(Me.Parent.TxtFindName) Then
Me.Parent.TxtFindName = Null
Me.Parent.TxtPicturePath = ""
strFindName = "SELECT * FROM [Personal_ST26] WHERE [MName] = null ;"
Me.Parent.RecordSource = strFindName
End Sub

มีตาราง voucher_sale สร้างฟอร์มรับข้อมูล เมื่อกดบันทึกและ และexit จะใช้คำสั่ง Insert INTO เพื่อส่งข้อมูลฟิลด์ที่เกี่ยวข้องไปไว้ในตารางต่างๆๆ แต่ปัญหาคือเมื่อมีการแก้ไขข้อมูลเน่องจากป้อนผิด เราควรใช้คำสั่งอะไรดีครับ ถ้าไม่ใช่คำสั่ง INSERT INTO (อยากจะให้ไปทับของเก่า ไม่ว่าข้อมูลเก่าจะูกแล้ว หรือผิดแต่แก้ไขแล้ว)

ใช้ Update Query ครับ
โดยอาจจะใช้การอัพเดทข้อมูลโดยอ้างถึง ID ข้อข้อมูลนั้นครับ
เช่น
UPDATE.....
WHERE criteria

ถ้าแบบนี้ละครับ

Private Sub TxtFindDapartment_GotFocus()
Dim strFindName As String
If Not IsNull(Me.Parent.TxtFindName) Then
Me.Parent.TxtFindName = Null
Me.Parent.TxtPicturePath = ""
strFindName = "SELECT * FROM [Personal_ST26] WHERE [MName] = null ;"
Me.Parent.RecordSource = strFindName
End Sub

attachment คือการผูกไฟล์เข้าไปเลย ไม่น่าจะเหมาะ ถ้ารูปมีจำนวนเยอะครับ (อยู่ที่ว่าจะนำไปใช้ทำอะไร)
ข้อดีคือสะดวก ไฟล์รูปภาพ รวมถึงไฟล์อื่นๆ ที่ใส่เข้าไปนั้นจะผูกติดไปกับ access เลย เหมือนที่อาจารย์ TTT บอก ถ้าผูกไฟล์เยอะ ไฟล์จะใหญ่ขึ้นเรื่อยๆ ครับ และมันจำกัดขนาดของไฟล์ แต่ละไฟล์ต้องมีขนาดไม่เกิน 256 Mb  รวมกันทั้งหมดแล้ว ไม่เกิน 2 GB (เท่ากับขนาดของ Access ที่รองรับได้คับ)

แต่ถ้ามีรูปจำนวนมากครับ ผมว่าใช้การกำหนด path ของรูป แล้วนำมาแสดงน่าจะดีกว่า
ลองปรับตามของอาจารย์ TTT ได้เลยคับ มีการสร้างปุ่ม Add รูปภาพ และกำหนด Path เป็น CurrentProject.Path จะสะดวกถ้ามีการเปลี่ยนชื่อโฟลเดอร์ หรือย้ายตำแหน่งของ โฟลเดอร์ ครับ

ลองแก้เป็น
Option Compare Database
Option Explicit
Public clnClient As New Collection
Function OpenReport2()
    Dim Rpt As Report
    Set Rpt = New Report_report_bill
     Rpt.Visible = True
    Rpt!ReportLabel.Caption = "สำเนา"
    clnClient.Add ITEM:=Rpt, Key:=CStr(Rpt.Hwnd)
    Set Rpt = Nothing
End Function

ไม่รู้ Reference อันไหนไม่มีหรือเปล่า เดี่ยวขอลองติดตั้ง เวอร์ชั้นเก่าทดสอบดูก่อนนะคับ

ถ้ายังไม่ได้  @Line มาครับ เดี่ยวคุยกันเอาให้จนทำได้เลย ส่งไลน์ ID ทางข้อความคับ:cool:

สร้างฟอร์มให้ค้นหาข้อมูลบุคคลากร โดยให้ค้นได้ 2 ทาง เพื่อให้ผู้มาติดต่อใช้งานค้นหา คือ
1.ค้นจากชื่อ เลยสร้างฟอร์มให้มี datasource เป็นตาราง "ข้อมูลส่วนตัว" ใช้ค้นข้อมูลจากชื่อ เป็นฟอร์มหลัก  และ
2.ค้นจากแผนกงาน เลยสร้างเป็น subform ที่มี datasource เป็นตาราง"แผนกงาน" ใช้ค้นข้อมูลจากแผนกงาน เป็นฟอร์มย่อยที่อยู่ในฟอร์มหลัก (ข้อ 1.)
     ทีนี่อยากจะขอให้ช่วย คือ เมื่อผู้ใช้บริการคนแรก มา ใส่ชื่อพนักงาน ค้นหา แล้ว พบ และแสดงข้อมูลมาแล้ว แต่เมื่อผู้ใช้คบริการคนถัดไปมาจะค้นหาจากแผนกงาน แต่ข้อมูลของบุคคลากรคนเก่ายังค้างอยู่ที่หน้าจอทำให้เมื่อค้นจากแผนกงานได้ข้อมูลใหม่มาแล้วแต่หน้าจอฟอร์มหลักยังแสดงข้อมูลที่เกิดจากการค้นหาของคนแรกอยู่ จะล้างข้อมูลที่เกิดจากการค้นหาของคนแรกได้อย่างไรครับ...ขอขอบคุณครับ

ผมสมมุติ textbox ค้นหาจากชื่อว่า txtFindName
           textbox ค้นหาจากแผนกว่า txtFindDepartment
           Form หลักชื่อ FrmMain

ถ้าต้องการให้ล้างค่าที่กรอกไว้ของ txtFindName ออกไป ก็กำหนด Event GotFocus เอาก็ได้ครับเช่น

Private Sub txtFindDepartment_GotFocus()
Forms!frmMain.txtFindName = Null
Forms!frmMain.txtFindName.Requery
Me.txtFindDepartment.Requery
End Sub

ที่ผมสั่ง Forms!frmMain.txtFindName.Requery เผื่อว่าคุณใช้การแสดง การค้นหาโดยใช้ Criteria จาก Query
พอเราสั่ง = null แล้ว Requery ข้อมูลที่แสดงก็จะหายไปครับ

ขอบคุณมากครับอาจารย์
       
      ตอนแรกกะจะคิดว่าให้เปิดกับโปรแกรมดูรูปข้องนอกเลย แต่ทำแบบอาจารย์น่าจะสะดวกกว่า
ขอสอบถามเพิ่มเติมครับ หากผมมีมากกว่า 1 รูปจะให้ดูทีละรูปจะทำยังไงครับ
คือประมาณว่า 1Item มีมากกว่า 1 รูป

ขอบคุณอีกครั้งครับ

กำหนด ข้อมูลในการตางแบบไหนครับ
มากกว่า 1 รูป นี้เก็บข้อมูลแบบไหน เอามาดูหน่อยครับ

เรียนอาจารย์
       ผมมีตาราง T1 ทีมี ฟิว ITEM=ใช้เก็บชื่อรูป และ Picture=เก็บพาทรูปภาพ ครับ 
       ที่ Form มี Text  ITEM และ Picture หากเรียกข้อมูล Item แล้วจะแสดง Picture ทันที
     
      คือพอแสดงแล้วผมอยากให้เปิดรูปภาพขึ้นมาเลยครับ จะต้องเขียน Code ยังไงครับ
      ปกติมันจะโชว์ Link แล้วต้องกดที่ Link ถึงจะเปิดให้ครับ
คือต้องการจะเปิดภาพ Auto ทันทีทีเรียกชื่อ Item ขึ้นมาถูกครับ

ขอบคุณครับ

คุณมี textbox ชื่อ item และ Picture ในฟอร์มแล้ว
ในตัวอย่างผมใช้เป็น txtitem กัย txtpicture นะครับ
ถ้าอยากแสดงรูปภาพ
ก็ควรมี กรอบรูปภาพ เพื่อใช้แสดงรูปภาพนะครับ


และ ที่แหล่งตัวควบคุมหรือ RecordSource กำหนดไปว่า  =txtpicture (อ้างอิงพาทจาก textbox txtpictureครับ)
ดูจากตัวอย่างแบบที่2

สอบถามเพิ่มเติมครับ การเก็บชื่อรูปกับ เก็บพาทรูปเป็นแบบไหน
  ชื่อรูปเช่น ITEM = 01.jpg  อย่างนี้ไหม เพราะการแสดงรูปได้ต้องมี พาท,ชื่อไฟล์,นามสกุลไฟล์ รวมเข้าด้วยกัน
  ส่วนพาทผมสมมุติ Picture = C:\Documents and Settings\office\My Documents\My Pictures\
หรือแบบนี้            Picture = C:\Documents and Settings\office\My Documents\My Pictures\01.่jpg
เพราะคำสั่งที่จะใช้มันจะไม่เหมือนกัน

รบกวนอธิบายเพิ่มเติมอีกนิดกว่าพาท และ ชื่อที่เก็บเป็นแบบไหนครับ
ส่วนการนำมาแสดงทำได้หลายแบบมาก
จากตัวอย่างแบบที่ 1 คุณลองไปกำหนด พาทรูปภาพ และ ชื่อรูปภาพที่มีเอาดูนะครับ
ถ้าชื่อ พาทกับชื่อไฟล์ แยกออกจากกันเราก็กำหนดให้มันรวมกันก่อนแสดง ลองดูที่ RecordSource ตัวอย่างที่ผมแนบไปนะครับ

RunningNo.    Price      Type
1                   100        A
2                   120        A
3                   130        A
1                   80          B
2                   90          B
1                   78          C
2                   80          C
3                   90          C
4                  100         C

ไม่ทราบว่า ใน Query แบบนี้ ต้องทำเช่นไรครับผม 

ตามนี้เลยคับ
ผมสมมุติตารางที่ทำชื่อ Table1 นะครับ มีฟิล์ Type กับ Price ตามตัวอย่าง

SELECT T.*, (select count(*) from Table1 where T.Price>=Price and  T.Type=Type) AS RunningNo
FROM Table1 AS T
ORDER BY T.Type, T.Price;