Sn. aakkir;

1- Madde'de belirtmiş olduğunuz işlem tamamdır aşağıdaki kod ile belirtmiş olduğunuz gibi Son_Durum2 değiştiğinde bilgi yazılı ise Rapor boş("") dolu ise AYLIK olarak yazacaktır.

Private Sub Text89_Exit(Cancel As Integer)

If (Me.Text89.Value = "") Then

Me.Text71.Value = " "

MsgBox ("Rapor Türü Silindi")

Else

Me.Text71.Value = "AYLIK"

MsgBox ("Rapor Türü Aylık Olarak Düzenlendi")

End If

End Sub

2- Arşivleme Statüsü değiştiğinde değiştirme tarihi yazılacak.

Private Sub STATU_Exit(Cancel As Integer)

If (Me.STATU = "Kararlı - Arşiv") Then

    Arsiv_Date.Value = Date

    Check81.Value = False

    MsgBox ("Dava Arşivlendi")

Else

    Arsiv_Date.Value = Null

    Check81.Value = True

    MsgBox ("Dava Arşivden Çıkarıldı")

End If

End Sub

Kolay gelsin.