Aşağidaki kod, 3 aydan önceki verileri ay, ay siliyor.
Kod:
Private Sub cmdLöschen_2_Click()
'üc aydan eski tarihleri siler
Select Case MsgBox("Wollen Sie die Datensätze, die länge als 6 Monate sind, wirklich löschen?", _
vbYesNo Or vbQuestion Or vbDefaultButton1, "Datensatz löschen")
Case vbYes
MsgBox "Löschen..."
CurrentDb.Execute "DELETE DateDiff('m',[Datum1],Date()) AS Ifade1, * FROM tblKfzPersDE IN '' [ms access;pwd=test;database=D:\KfzPersonenDB.accdb] WHERE (((DateDiff('m',[Datum1],Date()))>=3));"
Case vbYes
MsgBox "nicht Löschen..."
End Select
'Formular aktualisieren
Me.Requery
Me.untFrmKfz.Requery
End Sub
Yani 24.01.2014 de kodu çaliştırdıgım zaman 01.11.2013 den önceki verileri siliyor.
Benim istediğim
Kodu 24.01.2014 de çaliştırırsam 24.10.2013 tarihinden önceki verileri silsin.
Kodu 25.01.2014 de çaliştırırsam 25.10.2013 tarihinden önceki verileri silsin.
Kodu 26.01.2014 de çaliştırırsam 26.10.2013 tarihinden önceki verileri silsin.
Ben üç aydan eski verileri kaydetmek istemediğim gibi, üç aylık verilerinde kayıtlı olmasını istiyorum. Şu anda kodu çalıştırdığımda 2 ay 1,2,3….29,30. Günlük veriler kayıtta kalıyor.
Yardımcı olursanız menmun olurum
Saygılarımla
kaleci