A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] Sürekli Formda Satırları 1 Alan Değerine Göre Renklendirmek
#1
Merhaba, forumda sürekli formda satır renklendirme ile ilgili bir çok örnek inceledim ancak benim yapmak istediğime uygun değillerdi.
Ekteki örnekte 6 kayıt mevcut. Yapmak istediğim olay YAŞI alanına göre o satırdaki aynı değerde sahip tüm metin kutularının aynı rengi alması.
Örneğin;

YAŞI RENK
25    SARI
30    YEŞİL
35    MAVİ
40    KIRMIZI

gibi. Renkleri değiştirebilmemiz önemli bir husus. Örneğim ektedir. Yardımlarınız için teşekkür ederim.


Eklenti Dosyaları
.rar   Yeni Microsoft Access Veritabanı.rar (Boyut: 24,56 KB / İndirilme: 31)



  Alıntı
Bu mesajı beğenenler:
#2
Renk kutularinin arka plan stili = Normal olmali.
Visual Basic
  1. Private Sub ADI_GotFocus()
  2. Call Ayrıntı_Paint
  3. End Sub
  4. Private Sub ID_GotFocus()
  5. Call Ayrıntı_Paint
  6. End Sub
  7. Private Sub SOYADI_GotFocus()
  8. Call Ayrıntı_Paint
  9. End Sub
  10. Private Sub YASI_GotFocus()
  11. Call Ayrıntı_Paint
  12. End Sub
  13. Private Sub Ayrıntı_Paint()
  14. Dim ctl As Control
  15. For Each ctl In Me.Controls
  16.    If ctl.ControlType = 109 Then
  17.        Me.Controls(ctl.Name).BackColor = IIf(Me.YASI = 25, vbYellow, IIf(Me.YASI = 30, vbGreen, IIf(Me.YASI = 35, vbBlue, IIf(Me.YASI = 40, vbRed, vbWhite))))
  18.        Me.Controls(ctl.Name).ForeColor = IIf(Eval.(Me.YASI & " between 35 And 40"), vbWhite, 0)
  19.    Else
  20.        Me.Controls(ctl.Name).BackColor = vbWhite
  21.        Me.Controls(ctl.Name).ForeColor = 0
  22.    End If
  23. Next ctl
  24. End Sub



NOT: Eval. satirinda ki nokta olmamali.


Eklenti Dosyaları
.rar   HturkAvcı-Renk.rar (Boyut: 22,98 KB / İndirilme: 42)



  Alıntı
Bu mesajı beğenenler:
#3
Hocam, metin kutularının arka planı saydamdan normale çevirdim.

Compile error:
Syntax erro

hatası veriyor. ve

Me.Controls(ctl.Name).ForeColor = IIf(Eval.(Me.YASI & " between 35 And 40"), vbWhite, 0)

bu kod satırı kırmızı renk oluyor.
Renkleri isimle değil de renk kodları ile değiştirmek mümkün mü? Örneğin vbred yerine 255 gibi.



  Alıntı
Bu mesajı beğenenler:
#4
Notu geç gördüm. Kusuruma bakmayın. Renk kodları için yapabileceğimiz bir şey var mı?



  Alıntı
Bu mesajı beğenenler:
#5
Bir de şimdi fark ettim. Renklendirme oluyor ancak her hangi bir alan tıkladığımda rengi rastgele değişiyor.
Metin kutularına tıkladığımızda satır rengi ne ise o renk kalmalı.



  Alıntı
Bu mesajı beğenenler:
#6
Mesaj 2'yi guncelledim.
Metin kutu odaklanmasina Call Ayrıntı_Paint yazabilirsiniz.
Renk kodlarini, soylediginiz gibi degistirebilirsiniz.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Iki Alan Arasındaki Verileri Filtreleme kamil_55 8 218 26-05-2021, 13:43
Son Mesaj: kamil_55
  [FORM] Sürekli Formda Resim Görünümü abkbek 2 92 11-05-2021, 19:07
Son Mesaj: abkbek
  [VBA] Mesaj Kutusuna Alan Ismi Yazmak M_Kemal_Askeri 9 283 06-04-2021, 01:08
Son Mesaj: M_Kemal_Askeri
  Alan Ve Dal Seçmek sefersanli 2 141 05-04-2021, 09:04
Son Mesaj: sefersanli
  [SORGU] Sorgu Veya Form Da Alan Değerlerini Getirebilmek mart02 15 402 31-03-2021, 21:55
Son Mesaj: mart02
  [RAPOR] Formda Aranan Kişiye Göre Kayıtların Raporda Listelenmesi muzaffer2727 2 147 22-03-2021, 15:30
Son Mesaj: muzaffer2727
  [FORM] Bölünmüş Formda Imlecin Veri Sayfasında Spesifik Bir Alan Içerisinde Takılı Kalması schecter 3 156 25-02-2021, 12:40
Son Mesaj: onur_can
  Sürekli Form Kayıt Yineleme Hatası ekremer1969 6 233 24-02-2021, 19:29
Son Mesaj: ekremer1969

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi