Ekleme Sorgusu Hk

20/06/2018, 21:01

murat dikme

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
21/06/2018, 10:11

ozanakkaya

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
21/06/2018, 11:26

murat dikme

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