Skip to main content

AccessTr.neT M.


Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi

Formda Bitiş Tarihi Geçenlerin Alan Rengi Değişimi

Çözüldü #1
Son Düzenleme: 30/04/2019, 12:43, Düzenleyen: haziran4.
Ü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.
Cevapla
#2
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. 
Cevapla
...........
#3
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

Cevapla
#4
Üstad Görmemiştim Çok teşekkür Ederim İyi çalışmalar

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task