A.S.C Filtre, Grafik ve Raporlama Eklentisi

Koşullu Biçimlendirme
#1
Merhaba değerli hocalarım sizlerin de yardımları ile yapmış olduğum bir çok konuda projemin son aşamasına getirmiş bulunmaktayım Koşullu biçimlendirme ile ilgili yardım edebilirseniz çok mutlu olurum ben belli bir aşamaya getirdim fakat daha ötesine gidemedim resim üzerinde anlatmaya çalıştım


Eklenti Dosyaları
.jpg   koşullu biçimlendirme.JPG (Boyut: 259,8 KB / İndirilme: 21)



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba Sensu hocam;
Kodlarınızın nasıl yazıldığını örnek eklemediğiniz için yorumlamak zor ama anladığım kadarıyla siz zaten koşula bağlı olarak biçimlendirme yapmışsınız. İstediğiniz biçimlendirme ise iş emri alanında biçimlendirme yapmak ancak koşula bağlamak anladığım kadarıyla.

Aşağıda işinizi görebileceğini tahmin ettiğim uydurmasyon olarak yazdığım kodları kendinize uyarlayarak deneyeniz. Eğer olmazsa programınızın yalnızca ilgili kısmını içeren örneği paylaşırsanız. Üzerinde deneme yaparak daha net cevap sağlanabilir...

if Paket Adet = 1 then
   if sütun1 = Planlanan then
      me.iş emri.BackColor = RGB(30, 180, 69) 'Not ben burada  rast gele bir yeşil rengin RGB kodlarını yazdım siz kendi yeşil renk RGB kodunu yazmalısınız.
   End if
elseif Paket Adet = 2 then
     if sütun1 and sütun2 = planlanan then
        me.iş emri.BackColor = RGB(30, 180, 69)
     End if
elseif Paket Adet = 3 then
      if sütun1 and sütun2 and sütun3 = planlanan then
         me.iş emri.BackColor = RGB(30, 180, 69)
      End if
...... v.s. 
End if



  Alıntı
Bu mesajı beğenenler:
#3
Teşekkür ederim vermiş olduğunuz örneği denedim ama bir türlü beceremedim isteğiniz üzerine örnek ekliyorum GenelSorguAltFormuRapor bölümünde işlem yapmak istiyorum tekrar yardımınız için teşekkür ederim.


Eklenti Dosyaları
.rar   17.04.2021.rar (Boyut: 326,71 KB / İndirilme: 13)



  Alıntı
Bu mesajı beğenenler:
#4
(17-04-2021, 15:30)sensu demiş ki: GenelSorguAltFormuRapor bölümünde işlem yapmak istiyorum.
Visual Basic
  1. Private Sub Ayrıntı_Paint()
  2. Dim Sayac, RenkA As Long
  3. RenkA = Me.Controls("Urn").BackColor
  4. For Sayac = 1 To 12
  5.    If Me.Controls("[" & Sayac & "]").Tag = "Renklendir" Then
  6.        If Me.Planlanan = Me.Controls("[" & Sayac & "]").Value Then
  7.            Me.Controls("[" & Sayac & "]").BackColor = vbGreen
  8.        ElseIf Me.Planlanan < Me.Controls("[" & Sayac & "]") Then
  9.            Me.Controls("[" & Sayac & "]").BackColor = vbYellow
  10.         ElseIf 0 > Me.Controls("[" & Sayac & "]") Then
  11.            Me.Controls("[" & Sayac & "]").BackColor = vbRed
  12.         Else
  13.            Me.Controls("[" & Sayac & "]").BackColor = RenkA
  14.         End If
  15.    End If
  16. Next Sayac
  17. End Sub


Kosul bolumu kaldırın, yukarıdaki proseduru ayrıntı boyanırken olay yordamına taşıyın.

DETAY
Formda rakam adları(1, 2, 3, .....) olan veri kutularına ait özellik bölümü, Diğer--Im alanına Renklendir kelimesini yazın, bu alanlar için önceden belirlediğiniz koşullu biçim ayarlarını kaldırın.



  Alıntı
Bu mesajı beğenenler:
#5
Hocam sizleri de yoruyorum ama daha ayrıntılı anlatabilir misiniz.


Eklenti Dosyaları
.rar   17.04.2021.rar (Boyut: 326,71 KB / İndirilme: 12)



  Alıntı
Bu mesajı beğenenler:
#6
(17-04-2021, 22:59)sensu demiş ki: Hocam sizleri de yoruyorum ama daha ayrıntılı anlatabilir misiniz.

Mesaj 4 DETAY bölümünde anlatmaya çalıştım. Prosedürü kopyala yapıştır ile bahsedilen yere taşıyın ve IM bölümüne dikkat edin.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Metin Kutusundaki Yazıları Biçimlendirme Mert1985 1 82 25-04-2021, 19:45
Son Mesaj: dsezgin
  [VBA] Excel Aktarma Ve Hücre Biçimlendirme lemoncher2 11 346 05-04-2021, 18:32
Son Mesaj: oosmaner
  Tarih E Göre Kosullu Bicimlendirme oenderayak 3 239 27-01-2021, 23:28
Son Mesaj: oenderayak
  [SORGU] Açılan Kutu Koşullu Listeleme eagle28 16 378 17-01-2021, 19:01
Son Mesaj: eagle28
  [VBA] Koşullu Buton eagle28 14 562 16-01-2021, 21:43
Son Mesaj: eagle28
  [FORM] Altformdaki Liste Kutusu Koşullu Olarak Açılmıyor M_Kemal_Askeri 2 156 16-01-2021, 01:49
Son Mesaj: M_Kemal_Askeri
  [SORGU] Koşullu Sorguda ııf Ile ın() Veya Not ın () Kullanımı Birleşik Giriş Kut. çalıştırma sarsak 8 538 14-08-2020, 15:22
Son Mesaj: sarsak
  [VBA] Toplu Biçimlendirme Ve Tasarım Modunda Kaydetme h2001 9 466 07-06-2020, 23:42
Son Mesaj: halily

Foruma Git:


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