Hayırlı akşamlar.
Benim uygulamada Metin1'e girilen sayıyı metin kutusu güncelleştirme sonrasında Metin1'deki sayı Yazı ile ay ismini yazsın istiyorum. Bir de Metin1'deki ayın son gününü Metin2'ye yazmasını istiyorum. Bu konuda bana yardımcı olursanız memnun olurum. Şimdiden çok teşekkür ederim.
Örnek: Metin1'e 6 yazdım ve çıkınca Metin1'e 6 yerine Haziran yazsın, Metin2'ye 30 yazsın istiyorum.
yalnız yılı girmezseniz şubat ayının son günü doğru hesaplanamaz, o zaman ne yazılacak?
(18/12/2024, 23:11)berduş yazdı: [ -> ]yalnız yılı girmezseniz şubat ayının son günü doğru hesaplanamaz, o zaman ne yazılacak?
Hocam Metin3'e de yılı 2025 gibi yazarız o zaman hocam o şekilde bana yardımcı olabilirmisin.
aşağıdaki kodu dener misiniz
metin1 çıkıldığında olayı
Private Sub Metin1_Exit(Cancel As Integer)
If Val(Me.Metin1.Value & "") > 0 And Val(Me.Metin3.Value & "") > 0 Then
xAyAdi = Format(DateSerial(Me.Metin3.Value, Me.Metin1.Value, 1), "mmmm")
xSonGun = Day(DateSerial(Me.Metin3.Value, Me.Metin1.Value + 1, 0))
Me.Metin1.Value = xAyAdi
Me.Metin2.Value = xSonGun
Else
Me.Metin1.Value = Null
Me.Metin2.Value = Null
MsgBox "hatalı veri"
End If
End Sub
(18/12/2024, 23:37)berduş yazdı: [ -> ]aşağıdaki kodu dener misiniz
metin1 çıkıldığında olayı
Private Sub Metin1_Exit(Cancel As Integer)
If Val(Me.Metin1.Value & "") > 0 And Val(Me.Metin3.Value & "") > 0 Then
xAyAdi = Format(DateSerial(Me.Metin3.Value, Me.Metin1.Value, 1), "mmmm")
xSonGun = Day(DateSerial(Me.Metin3.Value, Me.Metin1.Value + 1, 0))
Me.Metin1.Value = xAyAdi
Me.Metin2.Value = xSonGun
Else
Me.Metin1.Value = Null
Me.Metin2.Value = Null
MsgBox "hatalı veri"
End If
End Sub
Tamamdır hocam Allah bol kazanclar uzun ömür nasip etsin inşallah.