Bu durumda çoğaltmak istediğiniz kayıt verilerini aşağıdaki örnek koda benzer şekilde recordsete alıp ilgili değerleri formunuzdaki denetimlere atamalısınız duplicate record veya kopyala yapıştır ile yapamazsınız.

    Dim rs_SubForm As DAO.Recordset

    Dim fld As DAO.Field

    Dim ctl_SubForm As Form

    

    Set ctl_SubForm = Me!AltformAdı.Form    'Alt forma erişim

    Set rs_SubForm = ctl_SubForm.RecordsetClone    ' Alt formun Recordset'ini koplayalım

    

    rs_SubForm.Bookmark = ctl_SubForm.Bookmark    'Kayıt bookmarkını belirleme

    ctl_SubForm.Recordset.AddNew    'Yeni kayıt oluşturma

    

    'Alt formdaki her alanı kopyalama işlemleri

    'ID gibi alanları, hesaplama yapılan alanlar vs. hariç tutabilirsiniz

    For Each fld In rs_SubForm.Fields

        If fld.Name <> "ID" Then    'Örneğin ID alanını çoğaltmıyoruz

            ctl_SubForm(fld.Name) = rs_SubForm(fld.Name)

        End If

    Next fld

    

    ctl_SubForm.Recordset.Update    'Yeni kaydı güncelleyip kaydediyoruz

    

    rs_SubForm.Close

    Set rs_SubForm = Nothing

    Set ctl_SubForm = Nothing