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.

Amin ecmain