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ı: 10)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#2
https://accesstr.net/konu-ekleme-sorgusu...query.html bu konuya bakınız..çözemezseniz yardımcı oluruz.
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
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ı: 6)
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla
#5
kaydetme butonun kodunu aşağıdaki kodla değiştirip dener misiniz?
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.
"Oyun bitince  şah ve piyon aynı kutuya atılır "
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da