If DCount("Donem", "Tbl_Donemler", "Donem=" & Year(Date) ) = 0 Then CurrentDb.Execute "insert into Tbl_Donemler (Donem) values (" & Year(Date) & ")"
sayısal alan için tek tırnak kullanılmaz koddan tek tırnakları silmeyi dener misiniz?