Ayın Gün Sayısını Bulma - Baskı Önizleme

Ayın Gün Sayısını Bulma - Baskı Önizleme

+- 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ığı: Ayın Gün Sayısını Bulma (/konu-ayin-gun-sayisini-bulma.html)

Ayın Gün Sayısını Bulma - odin - 20/06/2017

Merhaba;

Ekteki örnekte Metin kutularına yıl ve ay girdiğimizde sonuç olarak gün sayısını verdirebilirmiyiz.

Saygılarımla

Cvp: Ayın Gün Sayısını Bulma - jon206 - 20/06/2017

Sn Odin;
almak istediğin metin kutusu denetim kaynağına;
metinKutusuAdi = Day(DateSerial(yil_metinkusuadi, ay_metinkutusuadi + 1, 0))
sonuca ulaşabilirisn..

Cvp: Ayın Gün Sayısını Bulma - odin - 20/06/2017

(20/06/2017, 15:39)jon206 yazdı: Sn Odin;
almak istediğin metin kutusu denetim kaynağına;
metinKutusuAdi = Day(DateSerial(yil_metinkusuadi, ay_metinkutusuadi + 1, 0))
sonuca ulaşabilirisn..

Sn jon206;

Sizin dediğiniz gibi yaptım fakat sonuç alamadım hata veriyor.

Saygılarımla

Cvp: Ayın Gün Sayısını Bulma - POWER - 21/06/2017

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...

Cvp: Ayın Gün Sayısını Bulma - idrisy - 21/06/2017

POVER hocanın yazdığı kodu Metin kutusunun Exıt olayına yazarsan anında hesaplıyor.

Kod:

Private Sub Yıl_Exit(Cancel As Integer)

Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)

End Sub

Kod:

Private Sub AY_Change()

Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)

End Sub

Cvp: Ayın Gün Sayısını Bulma - odin - 21/06/2017

Sn Power;

Teşekkürler istediğim gibi olmuş

Saygılarımla