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.