+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Giriş Ekranında Dönem Tarihi Eklenmesi (/konu-giris-ekraninda-donem-tarihi-eklenmesi.html)
Giriş Ekranında Dönem Tarihi Eklenmesi - U.ALTUN - 29/12/2021
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.
RE: Giriş Ekranında Dönem Tarihi Eklenmesi - berduş - 29/12/2021
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) & ")"RE: Giriş Ekranında Dönem Tarihi Eklenmesi - U.ALTUN - 29/12/2021
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.
RE: Giriş Ekranında Dönem Tarihi Eklenmesi - berduş - 29/12/2021
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) & ")"RE: Giriş Ekranında Dönem Tarihi Eklenmesi - U.ALTUN - 30/12/2021
berduş hoca şimdi oldu teşekkürler iyi seneler.
RE: Giriş Ekranında Dönem Tarihi Eklenmesi - berduş - 30/12/2021
Rica ederim
İyi çalışmalar
Mutlu yıllar