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.