A.S.C Filtre, Grafik ve Raporlama Eklentisi

Koşullu Biçimlendirme
#13
Hocam yeni resim üzerinde anlatmaya çalıştım


Eklenti Dosyaları
.jpg   22.04.2021.JPG (Boyut: 244,15 KB / İndirilme: 8)



  Alıntı
Bu mesajı beğenenler:
#14
(22-04-2021, 09:59)sensu demiş ki: Hocam yeni resim üzerinde anlatmaya çalıştım

Deneme yapabilmem için veri gerekiyor, örnek VT eklenebilir mı? resimdeki veriler olursa(Çapraz soruyu tablo yapabilirsiniz)

Visual Basic
  1. For Sayac = 1 To 12
  2.    If Me.Controls("[" & Sayac & "]").Tag = "Renklendir" And Me.Controls("[" & Sayac & "]").Value > 0 Then
  3.            VarYok = VarYok + IIf(Me.Controls("[" & Sayac & "]").Value > 0, 1, 0)
  4.            Isrt = IIf(Isrt = 0 And Nz(Me.Controls("[" & Sayac & "]").Value, 0) = Me.Planlanan, 0, -1)
  5.    End If
  6. Next Sayac



ilk for satırlarını yukarıdaki gibi değiştirirsiniz.

Mesaj 8 Güncelledim.



  Alıntı
Bu mesajı beğenenler:
#15
Hocam çok teşekkür ederim tam istediğim gibi oldu, bu konu ile ilgili son bir ricam olacak kırmızı renk olanlar en altta - yeşil renk alanlar kırmızının üstünde - renk almayanlar en üstte olacak şekilde renge  göre sıralama yapabilir miyiz ?



  Alıntı
Bu mesajı beğenenler:
#16
(22-04-2021, 16:02)sensu demiş ki: Hocam çok teşekkür ederim tam istediğim gibi oldu, bu konu ile ilgili son bir ricam olacak kırmızı renk olanlar en altta - yeşil renk alanlar kırmızının üstünde - renk almayanlar en üstte olacak şekilde renge  göre sıralama yapabilir miyiz ?

Veri oluşumu, gösterimden önce olursa sıralama yapılır. Etiket157_Click tıklayınca sıralama yapar.

GenelSorguAltFormuRapor sorgusunun SQL'i asagidaki ile degistirin.
Visual Basic
  1. TRANSFORM Sum(StokUrunTbl.DepoGCAdet) AS Topla
  2. SELECT StokUrunTbl.Pasif, isEmriTbl.isEmri, DLookUp("UrunAdi","UrunTbl","StokID=" & Nz([UrunAdi],0)) AS Urn, CLng(Nz(DLookUp("PaketSayisi","UrunTbl","StokID=" & Nz([PaketSayisi],0)),0)) AS PaketA, isEmriTbl.Planlanan, isEmriTbl.StokFk, isEmriTbl.isEmriID, isEmriTbl.RaporOnay, 0 AS Siralama
  3. FROM StokTbl INNER JOIN (isEmriTbl INNER JOIN StokUrunTbl ON isEmriTbl.isEmriID = StokUrunTbl.isEmriFk) ON StokTbl.StokID = isEmriTbl.StokFk
  4. WHERE (((StokUrunTbl.Pasif)=False) AND ((isEmriTbl.RaporOnay)=False))
  5. GROUP BY StokUrunTbl.Pasif, isEmriTbl.isEmri, DLookUp("UrunAdi","UrunTbl","StokID=" & Nz([UrunAdi],0)), CLng(Nz(DLookUp("PaketSayisi","UrunTbl","StokID=" & Nz([PaketSayisi],0)),0)), isEmriTbl.Planlanan, isEmriTbl.StokFk, isEmriTbl.isEmriID, isEmriTbl.RaporOnay
  6. ORDER BY isEmriTbl.isEmriID DESC
  7. PIVOT DLookUp("PaketNo","PaketTbl","PaketID=" & Nz([PaketNo],0));



GenelSorguAltFormuRapor Form altındaki kodları aşağıdaki prosedürler ile değiştirin.
Visual Basic
  1. Private Sub Form_Open(Cancel As Integer)
  2. On Error Resume Next
  3. DoCmd.DeleteObject acTable, "Gecici"
  4. CurrentDb.Execute "SELECT * INTO Gecici FROM GenelSorguAltFormuRapor"
  5. Call RenkGrp
  6. End Sub
  7. Function RenkGrp()
  8. Dim Kyt As New ADODB.Recordset
  9. Kyt.Open "SELECT * FROM Gecici", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
  10. If Kyt.RecordCount = 0 Then Exit Function
  11. Do Until Kyt.EOF
  12. Dim Sayac, VarYok As Long, Isrt As Variant
  13.  
  14. For Sayac = 1 To 12
  15.    If Kyt.Fields("" & Sayac & "") > 0 Then
  16.            VarYok = VarYok + 1
  17.            Isrt = IIf(Isrt = 0 And Nz(Kyt.Fields("" & Sayac & ""), 0) = Kyt!Planlanan, 0, -1)
  18.    End If
  19. Next Sayac
  20.  
  21.                         If Kyt!PaketA = VarYok And Isrt = 0 Then
  22.                                Kyt!Siralama = 2
  23.                         ElseIf Kyt!PaketA = VarYok And Isrt = -1 Then
  24.                                Kyt!Siralama = 1
  25.                        Else
  26.                                Kyt!Siralama = 0
  27.                        End If
  28. Kyt.Update
  29. Debug.Print Kyt!isEmri, Isrt, VarYok
  30. VarYok = 0: Isrt = 0
  31. Kyt.MoveNext
  32. Loop
  33. Kyt.Close
  34. Set Kyt = Nothing
  35. End Function
  36. Private Sub Ayrıntı_Paint()
  37.            Me.isEmri.BackColor = IIf(Me.Siralama = 2, vbRed, IIf(Me.Siralama = 1, vbGreen, Me.Controls("Urn").BackColor))
  38.            Me.isEmri.ForeColor = IIf(Me.Siralama = 2, vbWhite, vbBlack)
  39. End Sub
  40. Private Sub Etiket157_Click()
  41. Me.OrderBy = "Siralama"
  42. Me.OrderByOn = True
  43. End Sub



NOT: Referanslardan Microsoft Activex Data Objects ... Library ADODB Kitapçığı işaretli olmalı


.rar   Sensu17042021.rar (Boyut: 165,03 KB / İndirilme: 16)



  Alıntı
Bu mesajı beğenenler:
#17
Çok teşekkür ederim hocam sayenizde tam istediğim gibi projemi şekillendirdim konuyu kapatabiliriz.



  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