Kopiere poster i en subform til en anden

Dette er en knap, der skal kopiere felterne fra en subform (fortløbende) til en anden:

Private Sub UdfyldRestUge_Click()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE listemedarbejderdag SET tirsdagbox = false WHERE tirsdagmedarbnr=" & Form_MandagSubform.MandagMnr
    Form_TirsdagSubform.Tirsdag = Form_MandagSubform.Mandag
    Form_TirsdagSubform.TirsdagMnr = Form_MandagSubform.MandagMnr
    Form_TirsdagSubform.TirsdagKKB = Nz(DLookup("[KKB]", "[KKB]", "[Medarbejdernr]=" & Nz(Form_TirsdagSubform.TirsdagMnr, 0) & " And [InterntNr] =" & Nz([InterntNr], 0)), "")
    Form_Listeform.RestMedarbejdereTirsdag.Requery
    Form_Listeform.ListeTirsdag.Requery
    DoCmd.SetWarnings True 
End Sub

Det der mangler er et loop så den kopierer alle felter i den fortløbende subformMandag og ikke bare det første felt, med en værdi. Dernæst skal de stå i den samme "række", hver række har et InterntNr og disse er de samme i alle subforms.
Nogen forslag? For jeg har ikke helt styr på mine loops (endnu!~) og alt hvad jeg prøver på for tiden med findrecord (som jeg tror skal bruges) virker overhovedet ikke.