Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
20/06/2018 21:01
Konu Sahibi
murat dikme
Yorumlar
2
Okunma
230
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

murat dikme

Aktif Üye
mu.... di....
 40
 40
 163
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 22/07/2018,22:48
Çözüldü 
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



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.718
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,18:15
Kaydet butonunun tıklandığında olayındaki kodların tamamını aşağıdaki ile değiştir.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

murat dikme

Aktif Üye
mu.... di....
 40
 40
 163
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 22/07/2018,22:48
Sayın Ozan Hocam emeğiniz ve ilginiz için teşekkür ederim kod şuan istediğim gibi çalışmaktadır.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Kaydetme, Yeni Kayıt Ekleme Ve Kayıt Silme Sorunu mmert06 18 468 Dün, 01:05
Son Yorum: mmert06
Çözüldü Liste Kutusuna Başlık ekleme bibib 8 218 31/12/2018, 08:02
Son Yorum: bibib
Çözüldü Toplu Ekleme Ara Değer Problemi hbal09 4 111 26/12/2018, 14:50
Son Yorum: hbal09
Çözüldü Form Açılışa Şifre Ekleme Bilgisayar Kullanıcı Adı Ve Şifresi İle Açılsın cozum 5 180 19/12/2018, 16:02
Son Yorum: cozum
Çözüldü Stok Durumu Sorgusu 001hacker 26 749 16/12/2018, 21:13
Son Yorum: haliliyas

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.