AccessTr.neT

iyi çalışmalar;

Calisiyor_Ayrildi Alanı Ayrılmış ise Aktif_Pasif Alanı Ayrılmış Yazsın.
Personel_Ozel_Durumu Alanı boş ise (açılır Seçilmemiş ise) ve Vize_Bitis_Trh Alanı Tarih geçmiş ise Aktif_Pasif Alanı Pasif Yazsın.
Değilse Aktif_Pasif Alanı Aktif Yazsın formülü Formda Form_Current 'e nasıl yazabiilirim.

önceki sorunuzdan bağımsız mı yani bir önceki konunuzda istediğiniz koşullardan bağımsız ise aşağıdaki kodu deneyebilirsiniz?

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

Üstad ilginiz için Teşekkür ederim.

aşagıda ki resimde çizerek anlattmaya çalıştım.

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

Tarihi geçmiş olarak seçtim ve Personel özel durumunuda boş değilde seçim yaptım pasif yazdı personel ozel durumu seçildiğinde çalışıyor da seçili ise aktif olacaktı

Private Sub Form_Current()
If Calisiyor_Ayrıldı = "Ayrılmış" Then
    Me.Aktif_Pasif = "Ayrılmış"
    Exit Sub
ElseIf Personel_Ozel_Durumu = "Dolu" Then Me.Aktif_Pasif = "Aktif"
ElseIf Vize_Bitis_Trh < Date Then     Me.Aktif_Pasif = "Pasif"
End If
End Sub