MS Access : ต้องการ insert ข้อมูลที่เป็น attachment field จาก table นึงไปอีก Table นึง

MS Access : ต้องการ insert ข้อมูลที่เป็น attachment field จาก table นึงไปอีก Table นึง รบกวนผู้รู้ ช่วยแนะนำด้วยค่ะ มันเกิด error ขอบคุณมากค่ะ 

สมมติ : ต้องการ append /insert ข้อมูลจาก table TransactionTable ไปยัง MasterTable โดยมี field ตามด่านล่างนี้

MasterTable  มี field ชื่อ
MIDnumber
MAttachment   (attachment field)

TransactionTable  มี field ชื่อ
TIDnumber
TAttachment (attachment field)  
 
Public Sub UpdateMaster()
Dim rsMaster As DAO.Recordset
Dim rsTrans As DAO.Recordset
Dim rsMasterAtt As DAO.Recordset2
Dim rsTransAtt As DAO.Recordset2
 
Set rsMaster = CurrentDb.OpenRecordset("MasterTable", dbOpenDynaset)
Set rsTrans = CurrentDb.OpenRecordset("TransactionTable ", dbOpenDynaset)

'rsMaster.MoveFirst
'rsMaster.MoveLast

Set rsMasterAtt = rsMaster!attachfile.Value
Set rsTransAtt = rsTrans!attachfile.Value

Do While Not rsMasterAtt.EOF
    rsMasterAtt.Delete
    rsMasterAtt.MoveNext
Loop
    
   ' rsMasterAtt!MIDnumber = rsTransAtt!TIDnumber
   
Do While Not rsTransAtt.EOF
    rsMasterAtt.AddNew
    rsMasterAtt!FileData = rsTransAtt!FileData
    rsMasterAtt!fileName = rsTransAtt!fileName
    rsMasterAtt!FileType = rsTransAtt!FileType
    rsMasterAtt.Update
    rsTransAtt.MoveNext
Loop
Set rsMasterAtt = Nothing
Set rsTransAtt = Nothing
rsMaster.Close
rsTrans.Close
Set rsMaster = Nothing
Set rsTrans = Nothing
แก้ไขข้อความเมื่อ
แสดงความคิดเห็น
Preview
โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่