AccessTr.neT

Tam Versiyon: tablolar arası veri transferi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Değerli Arkadaşlar
2 adet tablom var.
Kisi tablosundaki id_kisino ve adisoyadi alanındaki veriyi aynen ek tablosundaki idk_kisino ve adisoyadi alanına otomatik taşımak istiyorum.Şu anda 2 kayıt var.
kisi alanındaki tabloya her veri girildikçe,ek tablosundaki ilgili alana  otomatik gelsin istiyorum.
Yardımınızı bekliyorum.selam
Kişi tablosunu güncelleyen formunuzuda ekleyiniz...
(01/06/2015, 13:34)POWER yazdı: [ -> ]Kişi tablosunu güncelleyen formunuzuda ekleyiniz...

Sn POWER
Kisi formunu ekledim ama diğer tablonunda formu eklenecek mi  bilmiyorum.
İlginize teşekkür.Düzenleme yaparsanız sevinirim selamlar
Tablo ilişkilendirmelerinde, Bilgi tutarliligina zorla alanındaki tıkı kaldırıp aşağıdaki kodu bir butonun tıklandığı olayına  ekleyiniz..


Kod:
Private Sub Command7_Click()
'uyari mesajini kapa
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ek (idfk_kisino,AdiSoyadi) VALUES ('" & Me.id_kisino & "','" & Me.AdiSoyadi & "')"
DoCmd.SetWarnings True
'uyari mesajini ac
End Sub
Sn ScCavusoglu

İlginize teşekkür.
Sizin dediğiniizi uyguladım.Evet kısmen isteğim olmuş.Şöyle bir eksiklik var.
kisi formunda her girilen veri için buton tıklamak gerekiyor.Bundan şu anlaşılıyor; hangi kayıt üzerinde tıklanırsa, o veri transfer oluyor.
Ben istiyorumki...Bir anda girilen örneğin 10 adet veri , anında öbür ek dosyasına aktarılsın.Mesela,kisi kaydı yapılırken arka planda ek  tablosuna kayıt yapılsın.Ya da ,Bunun için Form olayına böyle bir kod yazılabilir mi bilmiyorum.Formdan çıkıldığında yeni eklenen veriler , ek dosyasına aktarılsın şeklinde.Selam saygılar.
kisi isimli formun kapandığında olayına aşağıdaki kodu ekleyiniz.

DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO ek ( idfk_kisino, AdiSoyadi ) SELECT tbl_ektablosundaolmayan.id_kisino, tbl_ektablosundaolmayan.AdiSoyadi FROM (SELECT kisi.id_kisino, kisi.AdiSoyadi, kisi.meslegi FROM ek RIGHT JOIN kisi ON ek.[idfk_kisino] = kisi.[id_kisino] WHERE (((ek.idfk_kisino) Is Null))) AS tbl_ektablosundaolmayan;"
DoCmd.SetWarnings True

Ayrıca, aynı veriyi tekrar farklı tabloya kaydetmekteki amacınızı belirtir misiniz?
Sayfalar: 1 2