Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/04/2019 12:40
Konu Sahibi
haziran4
Yorumlar
3
Okunma
160
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
Çözüldü 
Üstad "ozanakkaya"  nın Yardımıyla

tarihi geçenlerin Aktif Pasif Bölümüne Pasif yazdırmayı ağagıdaki gibi yaptık. Bitiş tarihi Tarihi geçen Alanının Arka rengkleri Sarı olmasını Eğer Vize Bitiş Tarihi boş ise Aktif Pasif Kapalı Yazıyor Kapalı yazarsa da Vize bitiş Tarihi kırmızı olması için Aşagıdaki kod'un nerelerine nasıl yazmam gerekir.

Kısaca Özetlemek Gerekirse; Yillik_Vize_Bitis_Trh Boş Bırakıldığında Kapalı Yazdığında Yillik_Vize_Bitis_TrhAlanın Arka Rengi kırmızı,
Diğer Alanların Pasif yazdığında geçen Tarih alan hangisi ise arka alan rengi sarı olmasını nasıl uygulayabilirm.
 
Dim GDate, G1, G2, G3, G4 As Long

GDate = CLng(Date)
G1 = CLng(Nz(Me.Yillik_Vize_Bitis_Trh, Date))
G2 = CLng(Nz(Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi, Date))
G3 = CLng(Nz(Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi, Date))
G4 = CLng(Nz(Me.AltYapi_Vize_Bitis_Trh, Date))


If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then
    Me.Aktif_Pasif = "Kapalı"
        
    Exit Sub
End If

If (G1 > GDate) And (G4 < GDate) Then

    Me.Aktif_Pasif = "Pasif"

ElseIf (G1 > GDate) And (G2 < GDate) Then

    Me.Aktif_Pasif = "Pasif"

ElseIf (G1 > GDate) And (G3 < GDate) Then

    Me.Aktif_Pasif = "Pasif"
    
ElseIf (G1 < GDate) Then

    Me.Aktif_Pasif = "Pasif"

Else

    Me.Aktif_Pasif = "Aktif"
   

End If



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

ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 483
 12.103
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:31
Merhaba, önceki konunuzda son mesajımda gerekli kodları yazmıştım.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
halily

halily

Uzman
65596
ha....
 26
 1.170
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,00:29
aslında Ozan hocam son mesajında cevabı da yazmıştı)

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Dim GDate, G1, G2, G3, G4 As Long

GDate = CLng(Date)
G1 = CLng(Nz(Me.Yillik_Vize_Bitis_Trh, Date))
G2 = CLng(Nz(Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi, Date))
G3 = CLng(Nz(Me.ic_Tesisat_Belgesi_Vize_Bitis_Tarihi, Date))
G4 = CLng(Nz(Me.AltYapi_Vize_Bitis_Trh, Date))


If Not IsDate(Me.Yillik_Vize_Bitis_Trh) Then
    Me.Aktif_Pasif = "Kapalı"
    Me.AltyapiVizeBitisTrh.BackStyle = 1
    Me.AltyapiVizeBitisTrh.BackColor = vbRed
    Exit Sub
End If

If (G1 > GDate) And (G4 < GDate) Then

    Me.Aktif_Pasif = "Pasif"
    Me.AltyapiVizeBitisTrh.BackStyle = 1
    Me.AltyapiVizeBitisTrh.BackColor = vbYellow

ElseIf (G1 > GDate) And (G2 < GDate) Then

    Me.Aktif_Pasif = "Pasif"
    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1
    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackColor = vbYellow


ElseIf (G1 > GDate) And (G3 < GDate) Then

    Me.Aktif_Pasif = "Pasif"
    ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackStyle = 1
    ic_Tesisat_Belgesi_Vize_Bitis_Tarihi.BackColor = vbYellow
      
ElseIf (G1 < GDate) Then

    Me.Aktif_Pasif = "Pasif"
    Me.Yillik_Vize_Bitis_Trh.BackStyle = 1
    Me.Yillik_Vize_Bitis_Trh.BackColor = vbYellow

Else
    
    Me.Aktif_Pasif = "Aktif"
    Yillik_Vize_Bitis_Trh.BackStyle = 0
    Me.AltyapiVizeBitisTrh.BackStyle = 0
    Me.Endustriyel_Donusum_Belgesi_Vize_Bitis_Tarihi.BackStyle = 0
    Me.Yillik_Vize_Bitis_Trh.BackStyle = 0
End If



haziran4

haziran4

Aktif Üye
6706
 44
 55
 188
 15/05/2009
0
 Eskişehir
 
 Ofis 2007
 18/06/2019,17:53
Üstad Görmemiştim Çok teşekkür Ederim İyi çalışmalar



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

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 239 03/06/2019, 04:22
Son Yorum: halily
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 218 24/05/2019, 16:22
Son Yorum: haziran4
Çözüldü Formda Form Yenileme haziran4 2 170 02/05/2019, 13:44
Son Yorum: haziran4
Çözüldü Formda Formül Kullanma haziran4 8 256 02/05/2019, 13:04
Son Yorum: haziran4
Çözüldü Formda If İç İçe Kullanım haziran4 28 548 30/04/2019, 12:17
Son Yorum: haziran4

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