İki Tablo Arası Veri Kopyalama

İki Tablo Arası Veri Kopyalama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: İki Tablo Arası Veri Kopyalama (/konu-iki-tablo-arasi-veri-kopyalama.html)

Sayfalar: 1 2 3 4 5

RE: İki Tablo Arası Veri Kopyalama - Erbil36 - 16/06/2022

(16/06/2022, 16:50)berduş yazdı: form hangi tabloya bağlı olacak??

FORM KAYITLAR TABLOSUNA bağlı olacak KAYITLAR TABLOSUNDAN verileri FORMA çekilip ÇIKIŞ YAPANLAR TABLOSUNA kopyalancak tekrar KAYITLAR TABLOSUNDAN silinecek

RE: İki Tablo Arası Veri Kopyalama - berduş - 16/06/2022

aşağıdaki kod işinize yarayabilir
ama [DosyaNo] alanı benzersiz değilse sorun çıkarabilir

xAlanlar = "[DosyaNo],[AdıSoyadı],[TCKimlikNo],[Koğus_Numarası],[Koğusu],[Durumu],[Suç Gurubu],[Suç Türü],[Baba Adı],[Ana Adı],[Doğum Tarihi],[Doğum Yeri],[Suçu],[Mevcut],[Geliş Tarihi],[Ayrılış Tarihi],[Geliş Sebebi],[Risk Durumu],[Çalışma Durumu],[Hasım Durumu],[Çalıştığı Birim]"

CurrentDb.Execute "INSERT INTO [ÇIKIŞ YAPANLAR] (" & xAlanlar & ") " _

                 & "SELECT " & xAlanlar _

                 & "FROM [Kayıtlar] where [DosyaNo]='" & Me.DosyaNo & "';"

CurrentDb.Execute "delete * " & "FROM [Kayıtlar] where [DosyaNo]='" & Me.DosyaNo & "';"

RE: İki Tablo Arası Veri Kopyalama - Erbil36 - 16/06/2022

(16/06/2022, 17:08)berduş yazdı: aşağıdaki kod işinize yarayabilir
ama [DosyaNo] alanı benzersiz değilse sorun çıkarabilir

xAlanlar = "[DosyaNo],[AdıSoyadı],[TCKimlikNo],[Koğus_Numarası],[Koğusu],[Durumu],[Suç Gurubu],[Suç Türü],[Baba Adı],[Ana Adı],[Doğum Tarihi],[Doğum Yeri],[Suçu],[Mevcut],[Geliş Tarihi],[Ayrılış Tarihi],[Geliş Sebebi],[Risk Durumu],[Çalışma Durumu],[Hasım Durumu],[Çalıştığı Birim]"

CurrentDb.Execute "INSERT INTO [ÇIKIŞ YAPANLAR] (" & xAlanlar & ") " _

                 & "SELECT " & xAlanlar _

                 & "FROM [Kayıtlar] where [DosyaNo]='" & Me.DosyaNo & "';"

CurrentDb.Execute "delete * " & "FROM [Kayıtlar] where [DosyaNo]='" & Me.DosyaNo & "';"

FORM ÜZERİNDE DÜZEMLEYEBİLİRMİSİNİZ

RE: İki Tablo Arası Veri Kopyalama - berduş - 16/06/2022

1 - formun veri kaynağını Kayıtlar olarak değiştireceksiniz
2 - yukardaki kodu formda yer alan butona atayacaksınız

RE: İki Tablo Arası Veri Kopyalama - Erbil36 - 16/06/2022

(16/06/2022, 17:28)berduş yazdı: 1 - formun veri kaynağını Kayıtlar olarak değiştireceksiniz
2 - yukardaki kodu formda yer alan butona atayacaksınız

Söylediklerinizi aynen uyguladım fakat Forma Bilgiler gelmiyor gelmediği içinde çıkış yapanlar tablosuna kopyalamıyorum

RE: İki Tablo Arası Veri Kopyalama - berduş - 16/06/2022

gönderdiğiniz tablolarda kayıt yoktu orijinal çalışmanızda kayıt var mıydı?