16/06/2022, 16:52
İki Tablo Arası Veri Kopyalama
16/06/2022, 16:52
Erbil36
16/06/2022, 17:08
berduş
aşağıdaki kod işinize yarayabilir
ama [DosyaNo] alanı benzersiz değilse sorun çıkarabilir
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 & "';"
16/06/2022, 17:12
Erbil36
(16/06/2022, 17:08)berduş yazdı: aşağıdaki kod işinize yarayabilirFORM ÜZERİNDE DÜZEMLEYEBİLİRMİSİNİZ
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 & "';"
16/06/2022, 17:28
berduş
1 - formun veri kaynağını Kayıtlar olarak değiştireceksiniz
2 - yukardaki kodu formda yer alan butona atayacaksınız
2 - yukardaki kodu formda yer alan butona atayacaksınız
16/06/2022, 19:52
Erbil36
16/06/2022, 20:01
berduş
gönderdiğiniz tablolarda kayıt yoktu orijinal çalışmanızda kayıt var mıydı?