AccessTr.neT
Formda Formül Kullanma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formda Formül Kullanma (/konu-formda-formul-kullanma.html)

Sayfalar: 1 2


Formda Formül Kullanma - haziran4 - 01/05/2019

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.


Cvp: Formda Formül Kullanma - berduş - 01/05/2019

ö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



Cvp: Formda Formül Kullanma - haziran4 - 02/05/2019

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

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

[Resim: do.php?imgf=6cfe529a3f281.jpg]


Cvp: Formda Formül Kullanma - berduş - 02/05/2019

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



Cvp: Formda Formül Kullanma - haziran4 - 02/05/2019

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ı


Cvp: Formda Formül Kullanma - berduş - 02/05/2019

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