Skip to main content

AccessTr.neT


Tek Formdan İki Farklı Tabloya Kayıt

Tek Formdan İki Farklı Tabloya Kayıt

Çözüldü #1
Merhaba;

Sitede ki bir çok örneği inceledim, INSERT le alakalı kodları kendi yapıma uyguladım fakat bir türlü formda kaydet tuşuna basılınca iki farklı (birisi ana tablo) tabloya kaydetme işlemini başaramadım.

VERIGIRIS formun ana kaynağı, ben istiyorum ki şahsın gelmediği veya geldiği(bu değişebilir-şimdilik geldiği günleri) günleri tbl_kisiler tablosuna da aktarsın..

Velhasıl, kaydet tuşu ile iki farklı tabloya kaydetsin istiyorum.

Tşk.
.rar Tek Formdan İki Ayrı Tabloya Kayıt.rar (Dosya Boyutu: 35,1 KB | İndirme Sayısı: 8)
"Her tercih, bir vazgeçiştir"

Cevapla
#3
INSERT INTO tbl_kisiler ( KLNO, TCKIMLIKNO, ADISOYADI, BASLAMATARIHI, geldimi, SAVNO )
SELECT VERIGIRIS.KLNO, VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI, VERIGIRIS.BASLAMATARIHI, VERIGIRIS.geldimi, VERIGIRIS.SAVNO
FROM VERIGIRIS INNER JOIN tbl_kisiler ON VERIGIRIS.TCKIMLIKNO = tbl_kisiler.TCKIMLIKNO;


Ekleme yapıyor şimdi ancak, sürekli aynı kayıtları ekleyip duruyor. Burada her tc ye bir kayıt açması gerekiyor(tbl_kisiler'de)...kaydet butonuna DoCmd.Open query "ekleme"   kodunu ekledim, her kaydet komutunda, mevcut kayıtları ekliyor. Örnek toplamda 8 kayıdım var, bir kayıta girip değişiklik yaptığımda, tüm kayıtları aktarıyor..yani 8 iken 16 oluyor.

Sorun nerede anlamadım.
"Her tercih, bir vazgeçiştir"

Son Düzenleme: 06/12/2019, 21:44, Düzenleyen: yorum70. (Sebep: ekleme)
Cevapla
#4
son hali.(tbl_kisiler içeriğini boşalttım)
.rar SİTEYE_6 aralık.rar (Dosya Boyutu: 37,84 KB | İndirme Sayısı: 4)
"Her tercih, bir vazgeçiştir"

Cevapla
#5
kaydetme butonun kodunu aşağıdaki kodla değiştirip dener misiniz?

Visual Basic Code
Private Sub SAKLA_Click()
On Error GoTo Err_SAKLA_Click
Dim X, a, B
Dim Sorgu As String
If IsNull(Me.KLNO) Then
MsgBox "Lütfen Boş geçmeyin ,Klasör No'yu  Yazmalısınız", 48, "Kayıt İşlemi"
 Me.KLNO.SetFocus
 Exit Sub
End If
If MsgBox("denetim saati girilmezse, diğer tüm alanlar girilse bile kayıt işlemi GERÇEKLEŞMEZ: Değişiklikler kaydedilsin mi?", 36, "K A Y D E T") = 6 Then
  DoCmd.SetWarnings False



DoCmd.SetWarnings True
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  DoCmd.RunCommand acCmdSaveRecord
       'DoCmd.OpenQuery "ekleme"
       CurrentDb.Execute " delete from tbl_kisiler WHERE tbl_kisiler.TCKIMLIKNO='" & Me.TCKIMLIKNO & "'"
       Sorgu = " INSERT INTO tbl_kisiler ( KLNO, TCKIMLIKNO, ADISOYADI, BASLAMATARIHI, geldimi, SAVNO )" & _
               " SELECT VERIGIRIS.KLNO, VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI, VERIGIRIS.BASLAMATARIHI, " & _
               " VERIGIRIS.geldimi, VERIGIRIS.SAVNO" & _
               " FROM VERIGIRIS " & _
               " WHERE VERIGIRIS.TCKIMLIKNO='" & Me.TCKIMLIKNO & "'"
               CurrentDb.Execute Sorgu, dbFailOnError
    
    Me.liste_1.Requery
   

Else
    Me.Undo
    End If


Exit_SAKLA_Click:
    Exit Sub
Err_SAKLA_Click:

    Resume Exit_SAKLA_Click
   
End Sub

Cevapla
#6
Sorgu = " INSERT INTO tbl_kisiler ( KLNO, TCKIMLIKNO, ADISOYADI, BASLAMATARIHI, geldimi, SAVNO,hangigun,BITISTARIHI )" & _
              " SELECT VERIGIRIS.KLNO, VERIGIRIS.TCKIMLIKNO, VERIGIRIS.ADISOYADI,VERIGIRIS.BITISTARIHI,VERIGIRIS.hangigun VERIGIRIS.BASLAMATARIHI, " & _
              " VERIGIRIS.geldimi, VERIGIRIS.SAVNO" & _


Sayın berduş, sizin eklediğiniz kodla tc üzerinden ekleme , delete komutuyla gerçekleşiyor.....Ben sizin koda; BITISTARIHI VE hangigun alanlarını ekleyip, ekleme sorgusunda da gerekli eklemeyi yapınca;

" INSERT INTO BİRDEN ÇOK DEĞERLİ ALANI İÇERMEZ "  komutunu almaktayım...benim eklediğim iki alanı çıkarırsak, sorun yok..Ama tabloda bu iki alınında gösterilmesi lazım..

Tşk.
"Her tercih, bir vazgeçiştir"

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task