Ekte yer alan örnek proje işinizi görecektir. Mümkün mertebe yorum satırı eklemeye çalıştım:
Sub TarihleriEtiketteGoster()
lblBugun.Caption = Date
lblUcAyOncekiTarih.Caption = DateAdd("m", -3, Date)
End Sub
Private Sub btnKayitSil_Click()
Dim ucAyOncekiTarih As Date
Dim ucAyOncekiTarihSon As String
' Formu kullanırken gece yarısını geçebileceği için kullanıcıyı yanıltmayalım tarihi tekrar formda gösterelim
TarihleriEtiketteGoster
' 3 ay önceki tarihi bulalım
ucAyOncekiTarih = DateAdd("m", -3, Date)
' Türkçe tarih ile ingilizce tarih uyumu için işlem yapalım
ucAyOncekiTarihSon = Format(ucAyOncekiTarih, "dd""/""mm""/""yyyy")
DoCmd.SetWarnings False
' Üç aydan eski kayıtları silecek olan Sql cümlemiz
DoCmd.RunSQL "DELETE FROM tblMusteriler WHERE (Tarih < #" & ucAyOncekiTarihSon & "#)"
' Silinen kayıtlar olduğu için liste kutusunuda güncelleyelim
lstKayitListesi.Requery
DoCmd.SetWarnings True
End Sub
Private Sub btnTestKayitlariniEkle_Click()
DoCmd.SetWarnings False
' Formu kullanırken gece yarısını geçebileceği için kullanıcıyı yanıltmayalım tarihi tekrar formda gösterelim
TarihleriEtiketteGoster
' Tablodaki eski kayıtları silelim
DoCmd.RunSQL "DELETE FROM tblMusteriler"
' Test için tabloya yedi kayıt ekleyelim
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net','" & DateAdd("m", -3, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net 1','" & DateAdd("m", -1, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net SİL 1','" & DateAdd("m", -5, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net 102','" & DateAdd("m", -2, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net Test','" & DateAdd("m", -1, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net SİL 2','" & DateAdd("m", -6, Date) & "')"
DoCmd.RunSQL "INSERT INTO tblMusteriler (AdSoyad,Tarih) VALUES ('AccessTr.Net alpeki99','" & DateAdd("m", 1, Date) & "')"
DoCmd.SetWarnings True
' Tabloya eklenen verileri liste kutusunda gösterelim
lstKayitListesi.Requery
' Kullancıyı bilgilendirelim
MsgBox "Test için veritabanına 7 kayıt eklenmiştir." & vbCrLf & vbCrLf & "Şimdi ikinci butona basarak 3 aydan eski tarihli kayıtları silebilirsiniz.", vbInformation, "AccessTr.Net - alpeki99"
End Sub
Private Sub Form_Load()
' Bugünün tarihi ve üç ay öncenin tarihini form üzerinde gösterelim ki farkı görebilsin.
TarihleriEtiketteGoster
End Sub
Uc_Aydan_Onceki_Kayitlari_Sil.rar
(Dosya Boyutu: 26,97 KB | İndirme Sayısı: 10)
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için
Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.