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

On Error GoTo Err_Komut118_Click

Dim strSQL As String, ilkKimlik

ilkKimlik = Me.Kimlik



    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdCopy

    DoCmd.RunCommand acCmdRecordsGoToNew

    DoCmd.RunCommand acCmdSelectRecord

    DoCmd.RunCommand acCmdPaste

    DoCmd.RunCommand acCmdSave '|<-----kaydetme işlemi için eklendi bu olmadan alt tabloya veri eklenmiyor



strSQL = ""

strSQL = "SELECT * FROM Malzeme where [Kimlik]=" & ilkKimlik

    Set rs1 = CurrentDb.OpenRecordset(strSQL)

    Set rs2 = CurrentDb.OpenRecordset("Malzeme")

    

        With rs1

            If Not .BOF And Not .EOF Then

                .MoveFirst

                While (Not .EOF)

                    rs2.AddNew

                        For x = 1 To .Fields.Count - 1

                            If rs1(x).Type <> 7 Then rs2(x) = rs1(x)

                        Next x

                    rs2(0) = Me.Kimlik

                    rs2.Update

                .MoveNext

                Wend

            End If

        End With





Exit_Komut118_Click:

    Exit Sub



Err_Komut118_Click:

    MsgBox Err.Description

    Resume Exit_Komut118_Click