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