AccessTr.neT

merhaba arkadaşlar programın giriş ekranında dönem tarihi her yıl 1 ocak tarihi gelince dönem yılını otomatik ekletip öyle giriş yapmasını istiyorum bu konuda yardımlarınız bekliyorum. dosya ektedir.

form yüklendiğinde olayının en başına aşağıdaki kodu ekleyip dener misiniz?

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ı?

berduş hoca kod çalıştı teşekkürler evet dediğiniz gibi sayısal olması gerekirmiş metin olarak düzenlemişim fakat sayısala dönüştürdüğümde kod hata verdi o zaman sayısala göre kodu düzenlerseniz memnun olurum.

sayısal alan için tek tırnak kullanılmaz koddan tek tırnakları silmeyi dener misiniz?

If DCount("Donem", "Tbl_Donemler", "Donem=" & Year(Date) ) = 0 Then CurrentDb.Execute "insert into Tbl_Donemler (Donem) values (" & Year(Date) & ")"

berduş hoca şimdi oldu teşekkürler iyi seneler.

Rica ederim
İyi çalışmalar
Mutlu yıllar