Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Sürekli Formda Satırları 1 Alan Değerine Göre Renklendirmek

[FORM] Sürekli Formda Satırları 1 Alan Değerine Göre Renklendirmek
hturkavci03
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.12.2010
Toplam 62 konu açtı.
Toplam 840 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#1
14-08-2020, 22:28
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: 80)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.092 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#2
15-08-2020, 00:19
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: 101)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
hturkavci03
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.12.2010
Toplam 62 konu açtı.
Toplam 840 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#3
15-08-2020, 00:33
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.



  Bul
  Alıntı
Bu mesajı beğenenler:
hturkavci03
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.12.2010
Toplam 62 konu açtı.
Toplam 840 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#4
15-08-2020, 00:34
Notu geç gördüm. Kusuruma bakmayın. Renk kodları için yapabileceğimiz bir şey var mı?



  Bul
  Alıntı
Bu mesajı beğenenler:
hturkavci03
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.12.2010
Toplam 62 konu açtı.
Toplam 840 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#5
15-08-2020, 00:44
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ı.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.092 yorum yaptı.
Toplam 1.103 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 240
#6
15-08-2020, 08:07
Mesaj 2'yi guncelledim.
Metin kutu odaklanmasina Call Ayrıntı_Paint yazabilirsiniz.
Renk kodlarini, soylediginiz gibi degistirebilirsiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Altformda Kayıt Tıklayınca Sürekli Ilk Kayda Gidiyor. M_Kemal_Askeri 6 193 11-04-2026, 02:28
Son Mesaj: M_Kemal_Askeri
  [FORM] Sürekli Form Filtrelemede Boş Kayıtların Getirmeme kral8596 4 342 03-02-2025, 12:41
Son Mesaj: halily
  Sorgu Içerisinde Boş Alan Varsa 0 (sıfır) Ile Doldurmak denizfatihi 3 517 15-08-2024, 14:38
Son Mesaj: beab05
  [SORGU] çarpraz Sorguda Sütun Değeri Olarak Birden çok Alan Seçebilir Miyiz? abkbek 2 411 13-08-2024, 21:18
Son Mesaj: abkbek
  Sürekli Formda Alt Toplam Alma ates2014 2 362 10-07-2024, 09:33
Son Mesaj: ates2014
  [FORM] Formda Kriterlere Göre Sorgulanan Kayıt Miktarının Form üzerinde Gösterilmesi M_Kemal_Askeri 1 380 13-05-2024, 05:10
Son Mesaj: dsezgin
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 997 24-12-2023, 14:38
Son Mesaj: dsezgin
  [VBA] Sürekli Formda Combobox Güncelleme Sorunu benuva 6 761 20-11-2023, 11:56
Son Mesaj: benuva

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar):