20/06/2017, 12:10
20/06/2017, 15:39
Sn Odin;
almak istediğin metin kutusu denetim kaynağına;
metinKutusuAdi = Day(DateSerial(yil_metinkusuadi, ay_metinkutusuadi + 1, 0))
sonuca ulaşabilirisn..
almak istediğin metin kutusu denetim kaynağına;
metinKutusuAdi = Day(DateSerial(yil_metinkusuadi, ay_metinkutusuadi + 1, 0))
sonuca ulaşabilirisn..
20/06/2017, 16:32
(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
21/06/2017, 00:04
İncelermisiniz...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
Lütfen olumlu veya olumsuz geri dönüş yapınız...
21/06/2017, 01:14
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 SubKod:
Private Sub AY_Change()
Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)
End Sub21/06/2017, 07:50
Sn Power;
Teşekkürler istediğim gibi olmuş
Saygılarımla
Teşekkürler istediğim gibi olmuş
Saygılarımla