AccessTr.neT

(16/06/2022, 20:01)berduş yazdı: [ -> ]gönderdiğiniz tablolarda kayıt yoktu orijinal çalışmanızda kayıt var mıydı?

evet vardı

yaptığınız değişilkiklerin ve kayıtların olduğu örnek çalışmanızı eklerseniz inceleyip çözmeye çalışırız

(16/06/2022, 21:32)berduş yazdı: [ -> ]yaptığınız değişilkiklerin ve kayıtların olduğu örnek çalışmanızı eklerseniz inceleyip çözmeye çalışırız

hocam şimdi denedim oldu yalnız  tarihleri çıkış yapanlar tablosunda kopyalamıyor boş çıkıyor değer 
+ birde diğelimki yalnış bilgi sildik geri alma kodu ekleyebilirmisiniz acaba

(17/06/2022, 11:30)Erbil36 yazdı: [ -> ]yalnız  tarihleri çıkış yapanlar tablosunda kopyalamıyor boş çıkıyor değer

şimdi tarih olan bir kayıt girdim tarihi eklemede sorun çıkmadı

(17/06/2022, 11:30)Erbil36 yazdı: [ -> ]yalnış bilgi sildik geri alma kodu ekleyebilirmisiniz acaba

bunun için yeni konu açmalısınız

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

Hocam Bu kod çalışıyor işlem sonunda siliyor acaba işlem sonunda silinmemesi için kodu nasıl düzenleye biliriz ?

kayıtlar tablosundan silmeyi kastediyorsanız koddan aşağıdaki satırı silmelisiniz

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