как использовать для й с приложением Добавить файл УВОЙ данных

Question

Helloooooooooooooooo всех моих друзья

я использовать этот код, чтобы добавить прикрепить к моему столу, и она работала Верри хорошо

 Dim rsEmployees As DAO.Recordset 
 
    Set db = CurrentDb 
 
    Set rsEmployees = db.OpenRecordset("FileAttach") 
 
    Dim rsPictures As Object 
 
    Dim x As Integer 
 

 
    ' Activate edit mode. 
 
    rsEmployees.AddNew 
 
    
 
    ' Instantiate the child recordset. 
 
    Set rsPictures = rsEmployees.Fields("AttachForms").Value 
 
     rsPictures.AddNew 
 

 

 
    ' Add a new attachment. 
 

 
    rsPictures.Fields("FileData").LoadFromFile "C:\Users\xmen5\Desktop\fl1.rar" 
 
    rsPictures.Update 
 
    
 
    ' Update the parent record 
 
    rsEmployees.Update 
 
Next

мой proplem - это когда я использую для x с этим кодом

Dim rsEmployees As DAO.Recordset 
 
    Set db = CurrentDb 
 
    Set rsEmployees = db.OpenRecordset("FileAttach") 
 
    Dim rsPictures As Object 
 
    Dim x As Integer 
 

 
    ' Activate edit mode. 
 
    rsEmployees.AddNew 
 
    
 
    ' Instantiate the child recordset. 
 
    Set rsPictures = rsEmployees.Fields("AttachForms").Value 
 
    
 

 
For x = 1 To DCount("*", "[Attchment]") 
 
    rsPictures.AddNew 
 
    ' Add a new attachment. 
 
    rsPictures.Fields("FileData").LoadFromFile DLookup("[PathTxt]", "[Attchment]", "[id]=" & x & "") 
 
    rsPictures.Update 
 
    
 
    ' Update the parent record 
 
    rsEmployees.Update 
 
Next

это дает мне эту ошибку enter image description here

я беру путь вложения из таблицы так, как я использую для й с этим кодом

Answer 1

Переместить последнюю строку для обновления из цикла:

Next 
' Update the parent record 
rsEmployees.Update