vba代碼根據ID將文件插入到表中

Question

我開發了將文件插入訪問數據庫表中的附件字段的代碼。 該表被稱爲「報告」，附件字段被稱爲「Field1」。目前，我的代碼將文件插入到「Reports」表中的第一條記錄，我想要做的是根據它的ID向記錄中添加附件，例如（將ID附加到Field1的ID = some value ）。這可能有人可以幫我解決這個問題嗎？

Instantiate the parent recordset. 
Set rsfile = db.OpenRecordset("Reports") 


Do While Not rsfile.EOF 
If rsfile.Fields("ID").Value = 1 Then 
' Activate edit mode. 
rsfile.Edit 

' Instantiate the child recordset. 
Set rsReport = rsfile.Fields("Field1").Value 

'Add a new attachment. 
filePath = "C:\dbPDF\sitereport.pdf" 
rsReport.AddNew 
rsReport.Fields("FileData").LoadFromFile (filePath) 
rsReport.Update 

' Update the parent record 
rsfile.Update 

rsfile.MoveNext 
Loop 

Answer 1

你可以迭代思想的報告和更新，如果條件匹配，是應該與此類似：

rsfile = db.OpenRecordset("Reports") 

Do While Not rsfile.EOF 
If rsfile.Fields("ID").Value = 1 Then 
    'Activate edit mode. 
    rsfile.Edit 

    'Instantiate the child recordset. 
    Set rsReport = rsfile.Fields("Field1").Value 
    'Add a new attachment. 
    filePath = "C:\dbPDF\sitereport.pdf" 
    rsReport.AddNew 
    rsReport.Fields("FileData").LoadFromFile (filePath) 
    rsReport.Update 
    'Update the parent record 
    rsfile.Update 
End If 
'Next row 
rsfile.moveNext 
Loop