Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Eski kayıtları butonla silmek

[FORM] Eski kayıtları butonla silmek
prestij06
Aktif Üye 100-150

*
Kayıt Tarihi: 12.06.2014
Toplam 26 konu açtı.
Toplam 129 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#1
29-11-2017, 14:35
Merhaba ustalar. Sizlerin de yardımlarıyla projem tamamlanmak üzere. Uğraşıp yapamadığım bir konu var.
Projemde 4 yıldan daha eski kayıtları sildirmek için özellik koymak istiyorum. Malum access in şişmemesi için. Bunun için Ayarlar adındaki altformuna "Eski Kayıtları Temizle" butonu koydum. Kullanıcı bu butona bastığında "4 Yıldan Eski Verileri Silinecek Devam Etmek İstiyor Musunuz?" uyarısıyla beraber şimdiki tarihten 4 yıldan daha eski (4 yıl dahil) ve Ana formda bulunan "Çıkış Tarihi" yazılmış olan verileri silsin. Çıkış tarihi yazılmamışları asla silmesin. Yıl tablosu mevcuttur. Şimdiden teşekkürler



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.776 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#2
01-12-2017, 00:05
SQL
  1. currentdb.EXECUTE "DELETE DEFTER_KAYIT.* FROM DEFTER_KAYIT WHERE (((DateDiff('yyyy',[ALINDIĞI TARİH],Date()))>=5))"



ile yapilabilir.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
prestij06
Aktif Üye 100-150

*
Kayıt Tarihi: 12.06.2014
Toplam 26 konu açtı.
Toplam 129 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#3
01-12-2017, 09:08 (En son düzenleme: 01-12-2017, 09:10 prestij06.)
(01-12-2017, 00:05)dsezgin demiş ki:
SQL
  1. currentdb.EXECUTE "DELETE DEFTER_KAYIT.* FROM DEFTER_KAYIT WHERE (((DateDiff('yyyy',[ALINDIĞI TARİH],Date()))>=5))"



ile yapilabilir.

Hocam kod çalışıyor ancak Çıkış Tarihinin 4 yıldan eski olup olmamasına bakmasın. Çıkış Tarihinin tarihi önemli değil, girilmesi yeterli olsun. Sadece yıl 4 yıldan eski olacak ve çıkış tarihi girilmiş olacak.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.776 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#4
01-12-2017, 21:19
(01-12-2017, 09:08)prestij06 demiş ki: Sadece yıl 4 yıldan eski olacak ve çıkış tarihi girilmiş olacak.
Kaydin 4 yildan eski olup, olmadigina hangi tarih alani ile kiyaslanmasi gerekiyor ise datediff komutuna yazabilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
prestij06
Aktif Üye 100-150

*
Kayıt Tarihi: 12.06.2014
Toplam 26 konu açtı.
Toplam 129 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013 TR,
Beğeniler: 0 / 0
#5
01-12-2017, 21:46 (En son düzenleme: 01-12-2017, 22:44 prestij06.)
(01-12-2017, 21:19)dsezgin demiş ki:
(01-12-2017, 09:08)prestij06 demiş ki: Sadece yıl 4 yıldan eski olacak ve çıkış tarihi girilmiş olacak.
Kaydin 4 yildan eski olup, olmadigina hangi tarih alani ile kiyaslanmasi gerekiyor ise datediff komutuna yazabilirsiniz.

hocam kıyas değil Çıkış Tarihi girildiği sürece 4 yıldan eski yani örneğin 2013/1 2013/2 vs. olan kayıtlar silinecek. Çıkış tarihinin hangi tarihte olduğunun önemi yok. Bana verdiğin kodda Çıkış Tarihinin de 4 yıldan eski olması gerekiyor. Çıkış tarihine herhangi bir tarihin girilmesi yeterli



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.776 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#6
01-12-2017, 22:57
(29-11-2017, 14:35)prestij06 demiş ki: şimdiki tarihten 4 yıldan daha eski (4 yıl dahil) ve Ana formda bulunan "Çıkış Tarihi" yazılmış olan verileri silsin. Çıkış tarihi yazılmamışları asla silmesin.

Visual Basic
  1. currentdb.execute "DELETE DEFTER_KAYIT.* FROM DEFTER_KAYIT WHERE (((DateDiff('yyyy',[ALINDIĞI TARİH],Date()))>=5))"



Visual Basic
  1. currentdb.execute "DELETE DEFTER_KAYIT.* FROM DEFTER_KAYIT WHERE (((Year(Date())-CLng([yil]))>=5) AND ((DEFTER_KAYIT.[ALINDIĞI TARİH]) Is Not Null))"



Sn prestij06; ilk mesajinizda da yazduginiz uygun onerim olmustu.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Acces Sql De Tablodakı Bos Kayıtları Sorgulayabılmek sevincili 2 97 02-02-2024, 01:59
Son Mesaj: dsezgin
  Access Son Eklenen Kayıtları Bulmak bilservisci 4 97 16-01-2024, 11:34
Son Mesaj: bilservisci
  [VBA] Masaüstündeki Tüm Access Dosyalarını Silmek benuva 10 277 22-07-2023, 14:35
Son Mesaj: dsezgin
  [VBA] Ilişkili Tablodaki Verileri Tüm Tablolardan Silmek. programmer67 1 161 14-01-2023, 20:13
Son Mesaj: dsezgin
  Access'te Boş Satırları Komple Silmek Asistan1 26 625 05-12-2022, 16:06
Son Mesaj: Asistan1
  [VBA] Iki Tablo Arasında Eşleşmeyen Kayıtları Bulup Kayıttaki Dosyaları Ve Datayı Silme Mr.Midnight 3 215 22-11-2022, 15:09
Son Mesaj: alperalper
  Access Te Tabloya Eklenen Verileri Forma Konulan Bir Butonla Silme kursun 4 233 10-11-2022, 21:29
Son Mesaj: kursun
  [FONKSiYON] Butonla Alt Formda Filtreleme derzulya 2 155 15-06-2022, 16:27
Son Mesaj: derzulya

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi