AccessTr.neT

(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

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 & "';"

(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

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

(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

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