Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın

Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - 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ığı: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın (/konu-acceste-metin-kutusuna-girilen-sayiyi-ay-olarak-yazsin.html)

Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - Acemi54 - 18/12/2024

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.

RE: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - berduş - 18/12/2024

yalnız yılı girmezseniz şubat ayının son günü doğru hesaplanamaz, o zaman ne yazılacak?

RE: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - Acemi54 - 18/12/2024

(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.

RE: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - berduş - 18/12/2024

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

RE: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - Acemi54 - 18/12/2024

(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.

RE: Acceste Metin Kutusuna Girilen Sayıyı Ay Olarak Yazsın - berduş - 19/12/2024

Amin ecmain