Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
30/04/2019 12:40
Konu Sahibi
haziran4
Yorumlar
3
Okunma
251
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
 01/07/2019,11:46
Çö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
 482
 12.135
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,23:46
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. 

...........
berduş

berduş

Uzman
65596
ha....
 29
 1.382
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
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
 01/07/2019,11:46
Ü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ü Formda Metin Kutularında Veri Görünmemesi U.ALTUN 12 209 03/08/2019, 16:59
Son Yorum: berduş
Çözüldü Boş Alan Kontrolü most 16 398 20/07/2019, 23:12
Son Yorum: berduş
Çözüldü Formda Metin Kutusu İçerik Kontrolü hbal09 4 191 10/07/2019, 16:20
Son Yorum: berduş
Çözüldü Raporda Boş Alan Sorunu Yunus Bozkurt 7 385 03/06/2019, 04:22
Son Yorum: berduş
Çözüldü Formda Açılır Kurularda 3101 Hatası Veriyor haziran4 11 356 24/05/2019, 16:22
Son Yorum: haziran4

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