Перенос списка из формы в форму

dim fld, i
fld=Array("ИмяПоля1", "ИмяПоля2", "ИмяПоля3", "ИмяПоля4")
for i=0 to ubound(fld)
   Me(fld(i)).DefaultValue = Forms!Оборудование(fld(i))
next

dim fld, i
dim rst as dao.recordset
fld=Array("ИмяПоля1", "ИмяПоля2", "ИмяПоля3", "ИмяПоля4")
set rst=Forms!Оборудование.Form.Recordset
do until rst.eof
   if !ПолеСГалкой Then
       .addnew
       for i=0 to ubound(fld)
           Me(fld(i)) = Forms!Оборудование(fld(i))
       next
       .update
    end if
loop

Private Sub Кнопка42_Click()
 
Dim fld, i
Dim rst As dao.Recordset
fld = Array("Код_оборудования")
Set rst = Forms!ОборудованиеФ47.Form.Recordset
Do Until rst.EOF
   If !ВДокумент Then   'вот тут ругается, на неправильную ссылку.
       .AddNew
       For i = 0 To UBound(fld)
           Me(fld(i)) = Forms!ОборудованиеДок(fld(i))
       Next
       .Update
    End If
Loop
 
End Sub

dim fld, i
dim rst as dao.recordset
fld=Array("ИмяПоля1", "ИмяПоля2", "ИмяПоля3", "ИмяПоля4")
set rst=Forms!Оборудование.Form.Recordset
With Me.Recordset
do until rst.eof
   if rst!ПолеСГалкой Then
       .addnew
       for i=0 to ubound(fld)
           .fields(fld(i)) = rst.fields(fld(i))
       next
       .update
    end if
    rst.movenext
loop
end with

Private Sub Кнопка37_Click()
    Dim nDoc, s
    Dim db As DAO.Database
    Set db = CurrentDb
    
    ' Найти максимальный номер документа и прибавить 1
'    nDoc = DMax("КодДокументы", "ДокументыЗаказ") + 1
 
    'записать в переменную существующий Номер документа
    nDoc = Me.КодДокументы
    
    'Записать в ОборудованиеДок записи, где ВДокумент=True
    s = "insert into ОборудованиеДок(Код_Оборудования, Код_документы) " _
    & " select Код_Оборудования, " & nDoc & " from ОборудованиеДок " _
    & " where ВДокумент"
    db.Execute s
    
    'Задать подформе источник для выисленного номера документа
    Me.ОборудованиедОК.Form.RecordSource = "select * from ОборудованиеДок where Код_документы=" & nDoc
    
    'Очистить чекбокс ВДокумент
    db.Execute "update ОборудованиеДок set ВДокумент=False"
 
'    Me.Код_Оборудования.RowSource = "SELECT Оборудование.КодОборудования, Оборудование.KKS FROM Оборудование " & _
'                                "WHERE Оборудование.KKS LIKE '' & Forms!заказы!Система & '*'"
End Sub