Sizin uygulamanıza göre, geçerli olduğunda olayının çalışması için formu yenilemeniz gerekiyor. 

Formun geçerli olduğunda olayındaki kodu silin,

Vba sayfasında en alta

Sub AktifPasifHesap()



If Calisiyor_Ayrildi = "Ayrılmış" Then



    Me.Aktif_Pasif = "Ayrılmış"



ElseIf Calisiyor_Ayrildi = "Kapalı" Then



    Me.Aktif_Pasif = "Kapalı"

    Me.Vize_Baslangic_Trh = ""

    Me.Vize_Bitis_Trh = ""

    Me.Metin40.BackColor = vbRed



ElseIf Me.Personel_Ozel_Durumu <> "" Then 



Me.Aktif_Pasif = "Aktif"

Me.Metin40.BackColor = vbGreen



ElseIf Me.Vize_Bitis_Trh < Date Then



Me.Aktif_Pasif = "Pasif"

Me.Metin40.BackColor = vbRed



ElseIf Me.Personel_Ozel_Durumu = "" Or Me.Vize_Bitis_Trh < Date Then 



Me.Aktif_Pasif = "Pasif"

Me.Metin40.BackColor = vbRed



End If





End Sub

şeklinde kod ekle.

şeklinde kod ekle.

- Formun geçerli olduğunda olayına

call AktifPasifHesap

kodu ekle.

Formun geçerli olduğunda olayına eklediğin kodu açılan kutuların güncelleştirme sonrasında olayına da ekle.

Form geçerli olduğunda ve açılan kutularda değişiklik yaptığınızda Sub AktifPasifHesap çalışacaktır.