Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
01/05/2019 15:57
Konu Sahibi
haziran4
Yorumlar
8
Okunma
242
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
Çözüldü 
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.


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Dün,23:49
önceki sorunuzdan bağımsız mı yani bir önceki konunuzda istediğiniz koşullardan bağımsız ise aşağıdaki kodu deneyebilirsiniz?

Visual Basic Code
1
2
3
4
5
6
7
8
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



...........
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
Üstad ilginiz için Teşekkür ederim.

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

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


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Dün,23:49
aşağıdaki şekilde dener misiniz?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
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



...........
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
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ı


haziran4, 15-05-2009 tarihinden beri AccessTr.neT üyesidir.

halily

halily

Uzman
65596
ha....
 26
 1.161
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Dün,23:49
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



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 204 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Sorguda Koşullu Formül Kullanma haziran4 9 375 07/05/2019, 16:46
Son Yorum: haziran4
Çözüldü Formda Form Yenileme haziran4 2 163 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 153 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 542 30/04/2019, 12:17
Son Yorum: haziran4

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.