Skip to main content

AccessTr.neT


Ekleme Sorgusu Hk

Ekleme Sorgusu Hk

Çözüldü #1
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
.rar Murat_soru_olustur.rar (Dosya Boyutu: 178,86 KB | İndirme Sayısı: 2)
Cevapla
#2
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
Cevapla
#3
Sayın Ozan Hocam emeğiniz ve ilginiz için teşekkür ederim kod şuan istediğim gibi çalışmaktadır.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da