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.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla