If DCount("Donem", "Tbl_Donemler", "Donem='" & Year(Date) & "'") = 0 Then CurrentDb.Execute "insert into Tbl_Donemler (Donem) values (" & Year(Date) & ")"
not: yıl alanı neden metin formatında syısal olması daha uygun olmaz mıydı?
form yüklendiğinde olayının en başına aşağıdaki kodu ekleyip dener misiniz?