Günü Geçmiş Verileri (Geçmiş Randevuları) Tek Tıkla Silme İşlemi Nasıl Yapılır?

Merhaba değerli forum üyeleri ve değerli adminler;

Sizlerin öneri ve yardımları ile bitirdiğimiz rehberlik araştırma merkezi randevu programı için; ihtiyaç duyduğumuz son bir özellik kaldı..

Malum bu program yıllarca kullanılacak,datanın şişmemesi için günün tarihinin  1 gün öncesinden başlayıp geriye dönük tüm kayıtların tek tık ile silinmesini istiyoruz.Yani kısaca randevusu geçen/biten öğrencilerin kayıtlarının silinmesi..
Aslında silme sorgusu hazırlayıp iki tarih arasındaki verileri/ randevusu bitenleri/geçenleri siliyorum bunda sıkıntı yok..Ama bizim amacımız iki tarih arası değil,tek tıklama ile günün tarihinden önceki tüm kayıtların tek tıklama ile silinmesi..
Günün randevuları ve sonraki tüm randevular kalacak..sadece öncesi silinecek..
Bunu tek tıkla nasıl yapabiliriz??


Öneri ve yardımlarınızı bekliyor saygılar sunuyorum..

Not:Örnek uygulama şu adresteki https://accesstr.net/konu-rehberlik-aras...#pid126404 uygulamadır,buraya bir daha ekleme gereği duymadım..

yeni sorgu oluştur, sorgu türünü "silme" olarak değiştir, sorguya tablo1 isimli tabloyu ekle, sorgu tasarım sayfasındaki ilk alana Tarihi alanını ekle, ölçüt kısmına <Date() yaz.

bu sorguyu çalıştırdığında eski tarihli veriler silinir.

bu sorgunun "sql kodunu göster"i tıklayıp, Sql kodunu kopyalayıp, formdaki butonun tıklandığında olayına

docmd.runsql "kopyalanan Sql kodu"

yazarak kullanabilirsin.

Değerli Ozan Hocam;
Öncelikle ilgine tşk ediyorum..1-2 gündür özel işlerim dolasıyla siteye girememiştim ancak fırsatım oldu..Söylediklerinizi eksiksiz yaptığımı düşünüyorum lakin resimdeki gibi bir hata alıyorum sebebi ve çözümü konusunda yardımcı olur musunuz??

SAYGILAR SUNUYORUM..

Sorgu kodum bu; DELETE Tablo1.Tarihi, Tablo1.SrNO, Tablo1.[Not], Tablo1.Miktar, Tablo1.Saati, Tablo1.Miktar2, Tablo1.Miktar3, Tablo1.melekler, Tablo1.cansuyu, Tablo1.gercekD, Tablo1.not2, Tablo1.testonay
FROM Tablo1
WHERE (((Tablo1.Tarihi)<Date()));


Buton kodum bu;
docmd.runsql "DELETE Tablo1.Tarihi, Tablo1.SrNO, Tablo1.[Not], Tablo1.Miktar, Tablo1.Saati, Tablo1.Miktar2, Tablo1.Miktar3, Tablo1.melekler, Tablo1.cansuyu, Tablo1.gercekD, Tablo1.not2, Tablo1.testonay
FROM Tablo1
WHERE (((Tablo1.Tarihi)<Date()));"

ALDIĞIM HATA BU;

Docmd.runsql kodunu tek satıra indir. Alt alta 3 satır olmasın.

Çok tşk ediyorum Ozan Hocam,Allah razı olsun..

Sorun çözülmüştür,konu cevaplanmışlar bölümüne alınabilir..

Saygılar sunuyorum..