Tekli silme olayı nedir bilmiyorum, ekteki örnekte "Datenbank1" ve "Dateneingabe" isimli veritabanları aynı dizinde olmak şartıyla (farklı dizin için seçme işlemi için kod eklenmeli);


Dateneingabe.accdb isimli dosyadaki Form1'i açıp butonu tıkladığında, Datenbank1.accdb isimli kapalı dosyada bulunan Tablo1 isimli tablodaki verilerden 3 aydan eski verileri siler.

'Datenbank1.accdb veritanbanındaki Tablo1'i al

DoCmd.TransferDatabase acImport, "Microsoft Access", CurrentProject.Path & "\Datenbank1.accdb", acTable, "Tablo1", "Tablo1", False



'Tablo1'deki 3 aydan eski kayıtları sil

DoCmd.SetWarnings False

DoCmd.RunSQL "DELETE Tarih, Adi FROM Tablo1 WHERE ((DateDiff('m',[Tarih],Date())>=3));"

DoCmd.SetWarnings True



'Tablo1'i Datenbank1.accdb veritanbanına geri gönder.

DoCmd.TransferDatabase acExport, "Microsoft Access", CurrentProject.Path & "\Datenbank1.accdb", acTable, "Tablo1", "Tablo1", False



'Alınan Tabloyu sil.

DoCmd.RunSQL "DROP TABLE Tablo1"