Merhaba değerli hocalarım.
Ekli Çalışmada "frm_proje_ekle" formunda ekleme sorgusu için kod bulunmakta (Sorgu1)
Burada yapmak istediğim; sorgu vasıtası ile "SORU" tablosuna SORU_ID, SORU alanlarının tabloya kopyalarak eklemek Bu işlemi yaparken SORU tablosunda PROJE_ID alanına her soru için yeni eklenen projenin Birincil anahtar değerini eklemek.
Bu işlem için sorguda veya kaydet butonuna ekelenecek kod yordamı nedir?
Konu ile ilgili yardımlarınız için şimdiden teşekkürler

Kaydet butonunun tıklandığında olayındaki kodların tamamını aşağıdaki ile değiştir.

Private Sub btn_KAYDET_Click()

On Error GoTo Err_btn_KAYDET_Click

Dim rs As ADODB.Recordset

Dim strSQL As String

    '-----------------------------------------------------------------------

    'Kontroller

    '-----------------------------------------------------------------------

    If IsNull(Me.frm_TANIMI) Or IsEmpty(Me.frm_TANIMI) Then

        MsgBox "Projenin adını giriniz!...", 46

        Me.frm_TANIMI.SetFocus

        Exit Sub

    End If

    

    Dim KayitNo

    KayitNo = DCount("*", "PROJE", "PROJE_ADI='" & Me.frm_TANIMI & "'")

    If KayitNo > 0 Then

        MsgBox "Bu adla proje kayıtlı."

        Me.frm_TANIMI.SetFocus

        Exit Sub

    End If



    '-----------------------------------------------------------------------

    ' Kayıt İşlemleri

    '-----------------------------------------------------------------------

    strSQL = "Select * From PROJE Where True=False"

    Set rs = New ADODB.Recordset

    rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    rs.AddNew

        rs("PROJE_ADI") = Me.frm_TANIMI

        rs("PROJE_YETKILI") = Me.frm_TANIMI1

        rs("PROJE_MAIL") = Me.frm_TANIMI2

        rs("PROJE_TEL") = Me.frm_TANIMI3

        rs("PROJE_ADRESI") = Me.frm_TANIMI4

        rs("TARIH") = Me.frm_TANIMI5

        rs("PRMUD") = Me.frm_TANIMI6

        rs("PROGG") = Me.frm_TANIMI8

        rs("PRAMIR") = Me.frm_TANIMI7

        rs("PRDAN") = Me.frm_TANIMI9

        rs("PRTEM") = Me.frm_TANIMI10

        rs("PRTEK") = Me.frm_TANIMI11

        rs("PRPEY") = Me.frm_TANIMI12

        rs("TXTRESİM5") = Me.mtn_proresim

        rs("TXTRESİM6") = Me.mtn_projeresim1

        rs("TXTRESİM7") = Me.mtn_projeresim2

        rs("TXTRESİM8") = Me.mtn_projeresim3

    rs.Update

    rs.Close

    

    GProjeId = DMax("PROJE_ID", "PROJE")

    

    '------------------------------------------------------------------------

'    strSQL = "Select * From SORU Where True=False"

'    Set rs = New ADODB.Recordset

'    rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

'    rs.AddNew

'    rs("PROJE_ID") = Me.frm_NO

        

'    rs.Update

'    rs.Close

    DoCmd.SetWarnings False

    DoCmd.RunSQL "INSERT INTO SORU ( SORU_ID, SORU, PROJE_ID ) SELECT TOP 10 SORU_ID, SORU, " & GProjeId & " FROM SORU WHERE (((PROJE_ID) = 1)) ORDER BY SORU.SORU_ID;"

    DoCmd.SetWarnings True

  

'    DoCmd.SetWarnings False

'    DoCmd.OpenQuery "Sorgu1"

'    DoCmd.SetWarnings True

    '-----------------------------------------------------------------------

    [Forms]![frm_degerlendir].ProjeListesi.Requery

    DoCmd.Close acForm, "frm_degerlendir_Proje_Ekle"



Exit_btn_KAYDET_Click:

    Exit Sub

Err_btn_KAYDET_Click:

    MsgBox Err.Description

    Resume Exit_btn_KAYDET_Click

End Sub

Sayın Ozan Hocam emeğiniz ve ilginiz için teşekkür ederim kod şuan istediğim gibi çalışmaktadır.