If isnull(Calisiyor_Ayrildi) or Calisiyor_Ayrildi="" Then
Me.Aktif_Pasif = "Ayrılmış"
Exit Sub
elseif Vize_Bitis_Trh Alanı Tarih<date then
Me.Aktif_Pasif = "Pasif
Exit Sub
else Personel_Ozel_Durumu Alanı<>"" then Me.Aktif_Pasif = "Aktif"
End If
önceki sorunuzdan bağımsız mı yani bir önceki konunuzda istediğiniz koşullardan bağımsız ise aşağıdaki kodu deneyebilirsiniz?