Programınıza bir tablo ilave edin ve iki alan ekleyin bu alanlardan bir tanesinin adı ID (Alan Özelliği Otomatik Sayı) diğer alanın adıda sene (Alan Özelliği Sayı ) adında olsun.
Tablonuzun adınıda seneislem yapın.
Programınızın ilk açılan formuna günü kontrol ettirin.

if DCount ("sene","seneislem","sene=" & val(year(date)) ) <>1 then 

' Ozan Hocamın Kodu Burada Çalışacak. Ardından Alttaki Kod Çalışacak

docmd.setwarnings false 

docmd.runsql "INSERT INTO seneislem (sene) values (" & val(year(date)) & ")" 

docmd.setwarnings true 

end if 

Bu kısmı ekleyin en son halinide ekleyin inceleyelim.