aşağıdaki şekilde dener misiniz?

Private Sub Form_Current()



If Calisiyor_Ayrıldı = "Ayrılmış" Then

    Me.Aktif_Pasif = "Ayrılmış"

    Exit Sub

ElseIf Vize_Bitis_Trh < Date Then

    Me.Aktif_Pasif = "Pasif"

    Exit Sub

ElseIf Personel_Ozel_Durumu <> "" Then Me.Aktif_Pasif = "Aktif"

End If



End Sub