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