ผมเคยทำคลิปตอบคำถามแนวๆนี้ ไม่รู้ว่าพอช่วยเป็นแนวทางได้หรือไม่นะครับ ลองดูแล้วกัน

อื่ม! ห้ามถึงต้องก๊อปปี้เรคคอร์ดที่กำลังโฟกัสอยู่ สำเนาไปเป็นเรคคอร์ดใหม่อีกเรคคอร์ดอย่างนั้นใช่ไม๊ครับ
ลองดูโค้ดแล้ว ใช้ได้นะครับ ใช้การเรียก Command menu แบบที่ใช้ก็ใช้ได้นะครับ ลองใส่แบบนี้ดูครับ

    DoCmd.RunCommand acCmdSelectRecord
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdCopy
    End If
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdRecordsGoToNew
    End If
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdSelectRecord
    End If
    If (MacroError = 0) Then
        DoCmd.RunCommand acCmdPaste
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
        DoCmd.GoToRecord , , acLast
    End If
    DoCmd.GoToRecord , , acLast
    DoCmd.GoToControl "CNC"

ผมขอช่วยเสริมนิดนะครับ คือผมขอยกตัวอย่างไฟล์ Northwind ของ Microsoft


คือโดยปกติเรากำหนด pk ฟิลด์เดียวในตาราง เราก็จะหมายถึงฟิลด์นั้นในทุกเรคคอร์ดเราจะไม่ให้มีการซ้ำกันของข้อมูล ส่วนการทำ pk หลายฟิลด์มักจะใช้กับกรณีที่เราต้องการให้ข้อมูลในฟิลด์ทุกฟิลด์สามารถซ้ำกันได้ แต่เมื่อฟิลด์ทั้งหลายที่เรากำหนดเป็น pk รวมกันแล้วจะไม่สามารถซ้ำกันได้ ถ้าจะพูดให้สั้นๆว่าเหมือนกับการที่เรานำ Composite key คีย์ร่วมทั้งหมดมาทำให้เป็นคีย์หลัก Primary key เพื่อบ่งบอกว่าถ้าฟิลด์ทั้งหมดที่กำหนดเป็น pk รวมกันจะมีได้แค่เรคคอร์ดเดียวในตาราง
ไม่รู้จะอ่านแล้ว งง หรือไม่นะครับ

ใช้โค้ดประมาณนี้ในการเซฟไฟล์ครับ แทนค่าตัวสีแดงให้ถูก
On Error GoTo Err_SaveImage
    Dim db As DAO.Database
    Dim rsParent As DAO.Recordset2
    Dim rsChild As DAO.Recordset2
    Set db = CurrentDb
    Set rs = Me.Recordset ' หรือหากฟอร์มไม่ได้ผูกกับฐานข้อมูล Set rsParent = db.OpenRecordset("ชื่อตาราง", dbOpenDynaset)
     rsParent.FindFirst "[ID] = " & Me.txt_ID ' txt_ID คือชื่อ TextBox ที่เป็น ID
'    rsParent.FindFirst "[ProductName] Like '*A*' AND [Quantity] = 15" ' หรือหากต้องการอ้างเรคคอร์ดที่เงื่อนไขอื่นๆ
    Set rsChild = rsParent.Fields("ชื่อฟิลด์ Attachment").Value
    While Not rsChild.EOF
        rsChild.Fields("FileData").SaveToFile "C:\Backup" 'พาธโฟลเดอร์ที่ต้องการเซฟไฟล์
        rsChild.MoveNext
    Wend
Exit_SaveImage:
    Set rsChild = Nothing
    Set rsParent = Nothing
    Exit Sub
Err_SaveImage:
    If Err.Number = 3839 Then
        MsgBox ("File Already Exists in the Directory!")
        Resume Next
    Else
        MsgBox "Some Other Error occured!", Err.Number, Err.Description
        Resume Exit_SaveImage
    End If

ปล. หากอยากเลือกโฟลเดอร์เองด้วยก็ต้องเขียนโค้ดเปิด Dialog Box เลือกโฟลเดอร์เพิ่มเติมอีก ปรับใช้ดูครับ

ด้วยตัวคอนโทรลเองไม่น่าจะทำได้ครับ ต้องใช้ฟอร์มทำเป็น Popup แสดงแทน ซึ่งก็ต้องเขียนโค้ต และอาศัยเหตุการณ์หลายๆอย่างช่วย และต้องรัดกุมในการเขียนคำสั่งพอควรครับ ตามความคิดผมนะ ใช้การคลิ๊กเมาส์ เปิดฟอร์ม Popup ที่เราทำไว้เพื่อแสดงภาพต่างหากก็พอครับ ถ้าใช้การเลื่อนเมาส์ก็เท่ากับเราต้องใช้เหตุการณ์ On Mouse Move จะเขียนยากเพราะเหตุการณ์นี้จะทำงานตลอดเมื่อ Pointer Mouse ขยับ

@bookungth หลายคนหลายความคิดดีแล้วครับ

ปล. ไม่เคยรู้ว่ามี FC ด้วย เคยแต่เป็น FC คนอื่นเหมือนกัน ขอบคุณครับ

สมมุติคุณมีตาราง Transaction ประมาณนี้
-------------------------------------------
ProductName    Quantity    Price
        A                 10         5
        A                 15         5
        A                 20         5
        A                 25         5
-------------------------------------------
- ในคิวรี่ก็ให้สร้างฟิลด์เพิ่มดังนี้
subtotal: สำหรับรวมราคาย่อย
Discount: คำนวณส่วนลดตามเงื่อนไข
Total: รวมราคา
- สมมุติตารางชื่อ Table1
------------------------------------------------------
SELECT ProductName, Quantity, Price,
[Quantity]*[Price] AS subTotal,
IIf([Quantity] Between 16 And 20,([Quantity]*[Price])*0.02,IIf([Quantity] Between 21 And 30,([Quantity]*[Price])*0.03,IIf([Quantity]>30,([Quantity]*[Price])*0.04,0))) AS Discount, [subTotal]-[Discount] AS Total
FROM Table1;
-------------------------------------------------------
ประมาณนี้ครับ ปรับใช้ดู

1. เราสามารถเขียน หรือ ประกาศ ในโปรแกรมได้หรือไม่ เพื่อคนอื่นที่มาดูแลโปรแกรมต่อจากเรา จะได้ทราบว่า โปรแกรม Load dll ตัวไหนเข้ามา
- อื่ม! กับคำถามนี้ไม่ค่อยเข้าใจความต้องการนะครับ แต่ถ้าหมายถึงการที่ยากแสดงว่าไฟล์เราใช้ไลบารี่ตัวใดบ้างโดยไม่ต้องมาดูที่ VBE เราสามารถเขียนคำสั่งให้แสดง ชื่อ หรือ พาธไฟล์ ไลบารี่ ที่ใช้งานอยู่ได้ครับ

Sub ListLibraryName()
    Dim chkref As Reference
    For Each chkref In Application.References
        MsgBox "Reference: " & chkref.name & Chr(13) & chkref.FullPath
    Next
End Function
<Return>
Reference: VBA
C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL
 
Reference: Access
C:\Program Files\Microsoft Office\Office14\MSACC.OLB
 
Reference: stdole
C:\Windows\system32\stdole2.tlb

2. ปกติพวก .dll ไม่ได้ถูก compile รวมไปด้วยกับโปรแกรมครับ มันจะไปโหลดที่เครื่องปลายทางตอนเปิดโปรแกรมขึ้นมาครับ .dll บางตัวสามารถใส่ลงไปในที่เดียวกับ .accde ได้ แต่ปกติ Access จะไปหาที่มีอยู่ในระบบก่อน สุดท้ายถึงจะมาหาใน path ที่โปรแกรมอยู่ และไฟล์ .dll บางตัวก็ทำงานไม่ได้ถ้าไม่ได้ register หรือติดตั้งเข้ากับ windows ก่อน
-เราไม่สามารถนำไฟล์ไลบารี่ภายนอกมาก bundle เข้าด้วยกันกับไฟล์ Data ได้ คืออย่าลืมว่าไฟล์ Access เราเป็นแค่ไฟล์ Data นะครับ ไม่ใช่ Execute ไฟล์ (ถึงต่อให้เป็น Execute ก็ไม่ควร bundle เข้าไปเป็นไฟล์เดียว เพราะมันจะพัฒนาต่อได้ยาก และยุ่งยากในการแก้บัค) โปรแกรมส่วนมากจะแยกไฟล์ dll ของตัวเองไว้เป็นอีกไฟล์ภายนอก ส่วนการลงในเครื่องอื่นๆ ก็สามารถใช้โปรแกรมที่สามารถทำเป็นไฟล์ติดตั้งได้ลงในพาธต่างๆตามที่เราต้องการแทน เหมือนการลงโปรแกรมทั้งไปที่จะใช้ไฟล์ตัว Setup.exe อะไรประมาณนี้แทนการแค่ก็อปปี้ใส่ลงในโฟลเดอร์เดียว

ลองใช้คำสั่งการ Ping ไปยังเครื่องเป้าหมายก่อนที่ะใช้คำสั่งดูนะครับ น่าจะช่วยได้ครับ