Merhaba;
Ekteki örnekte Metin kutularına yıl ve ay girdiğimizde sonuç olarak gün sayısını verdirebilirmiyiz.
Saygılarımla
Sn Odin;
almak istediğin metin kutusu denetim kaynağına;
metinKutusuAdi = Day(DateSerial(yil_metinkusuadi, ay_metinkutusuadi + 1, 0))
sonuca ulaşabilirisn..
(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
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
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
Sn Power;
Teşekkürler istediğim gibi olmuş
Saygılarımla