(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
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: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ş yazdı: 1 - formun veri kaynağını Kayıtlar olarak değiştireceksinizSöylediklerinizi aynen uyguladım fakat Forma Bilgiler gelmiyor gelmediği içinde çıkış yapanlar tablosuna kopyalamıyorum
2 - yukardaki kodu formda yer alan butona atayacaksınız
