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
MS Access : ต้องการ insert ข้อมูลที่เป็น attachment field จาก table นึงไปอีก Table นึง
สมมติ : ต้องการ 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