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

Derecelendirme: 0/5 - 0 oy

haziran4

Aktif Üye
6706
 43
 52
 177
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 Bugün,18:44
Çö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.

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.031
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,22:21
ö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

Aktif Üye
6706
 43
 52
 177
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 Bugün,18:44
Ü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.

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.031
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,22:21
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

Aktif Üye
6706
 43
 52
 177
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 Bugün,18:44
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.

haliliyas

Uzman
65596
Ha.... Ya....
 Belirtilmemiş
 23
 1.031
 30/07/2014
172
 -
 
 Ofis 2019 64 Bit
 Bugün,22:21
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ü Sorguda Koşullu Formül Kullanma haziran4 9 321 07/05/2019, 16:46
Son Yorum: haziran4
Çözüldü Formda Form Yenileme haziran4 2 129 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi haziran4 3 112 30/04/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 455 30/04/2019, 12:17
Son Yorum: haziran4
Çözüldü Formda Koşullu Biçimlendirme haziran4 4 222 30/04/2019, 10:03
Son Yorum: haziran4

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