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

Derecelendirme: 0/5 - 0 oy
murat dikme

murat dikme

Altın Üye
85129
mu.... di....
 41
 41
 164
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 24/03/2019,22:31
Çö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



ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.100
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,20:08
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. 

...........
murat dikme

murat dikme

Altın Üye
85129
mu.... di....
 41
 41
 164
 24/10/2016
12
 İstanbul
 Özel Güvenlik Amiri
 Ofis 2007
 24/03/2019,22:31
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ü Gruba Göre Form Çağırıp, Forma Ekleme magmar 8 290 21/05/2019, 12:28
Son Yorum: magmar
Çözüldü Güncelleme Sorgusu te-kin 9 339 29/03/2019, 00:47
Son Yorum: te-kin
Çözüldü İki Tarih Arası Ay Bazında Satır Ekleme fkilic76 6 324 06/03/2019, 09:13
Son Yorum: halily
Çözüldü İki Tarih Arası Satır Ekleme Ve Veri Kaydetme fkilic76 5 232 26/02/2019, 18:04
Son Yorum: fkilic76
Çözüldü Sorguya Artan Numara Ekleme Sayaç cozum 1 165 07/02/2019, 12:00
Son Yorum: ozanakkaya

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