A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Ajanda Run Time Error 3464 sorunu
#1
t02 ile başlayan 2. satır sarı durumda. Düzelmiyor. Kendi kendine bileSmile
Ayrıca t08 ile t28 arası farklı bir düzende.

Visual Basic
  1. Public Sub Takvimle()
  2. t01.ForeColor = IIf(t01 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x01")), vbBlack, vbRed))
  3. t02.ForeColor = IIf(t02 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x02")), vbBlack, vbRed))
  4. t03.ForeColor = IIf(t03 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x03")), vbBlack, vbRed))
  5. t04.ForeColor = IIf(t04 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x04")), vbBlack, vbRed))
  6. t05.ForeColor = IIf(t05 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x05")), vbBlack, vbRed))
  7. t06.ForeColor = IIf(t06 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x06")), 32768, vbRed))
  8. t07.ForeColor = IIf(t07 > 20, 12632256, IIf(IsNull(DLookup("SrNO", "x07")), 32768, vbRed))
  9. t08.ForeColor = IIf(IsNull(DLookup("SrNO", "x08")), vbBlack, vbRed)
  10. t09.ForeColor = IIf(IsNull(DLookup("SrNO", "x09")), vbBlack, vbRed)
  11. t10.ForeColor = IIf(IsNull(DLookup("SrNO", "x10")), vbBlack, vbRed)
  12. t11.ForeColor = IIf(IsNull(DLookup("SrNO", "x11")), vbBlack, vbRed)
  13. t12.ForeColor = IIf(IsNull(DLookup("SrNO", "x12")), vbBlack, vbRed)
  14. t13.ForeColor = IIf(IsNull(DLookup("SrNO", "x13")), 32768, vbRed)
  15. t14.ForeColor = IIf(IsNull(DLookup("SrNO", "x14")), 32768, vbRed)
  16. t15.ForeColor = IIf(IsNull(DLookup("SrNO", "x15")), vbBlack, vbRed)
  17. t16.ForeColor = IIf(IsNull(DLookup("SrNO", "x16")), vbBlack, vbRed)
  18. t17.ForeColor = IIf(IsNull(DLookup("SrNO", "x17")), vbBlack, vbRed)
  19. t18.ForeColor = IIf(IsNull(DLookup("SrNO", "x18")), vbBlack, vbRed)
  20. t19.ForeColor = IIf(IsNull(DLookup("SrNO", "x19")), vbBlack, vbRed)
  21. t20.ForeColor = IIf(IsNull(DLookup("SrNO", "x20")), 32768, vbRed)
  22. t21.ForeColor = IIf(IsNull(DLookup("SrNO", "x21")), 32768, vbRed)
  23. t22.ForeColor = IIf(IsNull(DLookup("SrNO", "x22")), vbBlack, vbRed)
  24. t23.ForeColor = IIf(IsNull(DLookup("SrNO", "x23")), vbBlack, vbRed)
  25. t24.ForeColor = IIf(IsNull(DLookup("SrNO", "x24")), vbBlack, vbRed)
  26. t25.ForeColor = IIf(IsNull(DLookup("SrNO", "x25")), vbBlack, vbRed)
  27. t26.ForeColor = IIf(IsNull(DLookup("SrNO", "x26")), vbBlack, vbRed)
  28. t27.ForeColor = IIf(IsNull(DLookup("SrNO", "x27")), 32768, vbRed)
  29. t28.ForeColor = IIf(IsNull(DLookup("SrNO", "x28")), 32768, vbRed)
  30. t29.ForeColor = IIf(t29 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x29")), vbBlack, vbRed))
  31. t30.ForeColor = IIf(t30 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x30")), vbBlack, vbRed))
  32. t31.ForeColor = IIf(t31 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x31")), vbBlack, vbRed))
  33. t32.ForeColor = IIf(t32 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x32")), vbBlack, vbRed))
  34. t33.ForeColor = IIf(t33 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x33")), vbBlack, vbRed))
  35. t34.ForeColor = IIf(t34 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x34")), 32768, vbRed))
  36. t35.ForeColor = IIf(t35 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x35")), 32768, vbRed))
  37. t36.ForeColor = IIf(t36 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x36")), vbBlack, vbRed))
  38. t37.ForeColor = IIf(t37 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x37")), vbBlack, vbRed))
  39. t38.ForeColor = IIf(t38 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x38")), vbBlack, vbRed))
  40. t39.ForeColor = IIf(t39 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x39")), vbBlack, vbRed))
  41. t40.ForeColor = IIf(t40 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x40")), vbBlack, vbRed))
  42. t41.ForeColor = IIf(t41 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x41")), 32768, vbRed))
  43. t42.ForeColor = IIf(t42 < 15, 12632256, IIf(IsNull(DLookup("SrNO", "x42")), 32768, vbRed))





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Run-time Error '3061: çok Az Parametre, 1 Bekleniyor Hatası. volkan.gulbahar 3 171 21-03-2021, 08:56
Son Mesaj: dsezgin
  [FORM] Ajanda Uygulaması ekremer1969 3 333 08-01-2021, 10:11
Son Mesaj: ekremer1969
  [SORGU] Run-time Error '3340' "sorgusu Bozuk Hatası ÜmitSamlı 8 887 02-12-2019, 10:22
Son Mesaj: ÜmitSamlı
  [TABLO] Access Runtime Error 3346 kalabakli 8 613 06-10-2019, 23:54
Son Mesaj: kalabakli
  [FORM] Alan Genişliği Sorunu, Kayda Gitme Sorunu aliaslans 11 935 04-10-2019, 13:13
Son Mesaj: halily
  [ADO / DAO] Run time hatası 2465 Ahmet51 11 653 09-09-2019, 11:02
Son Mesaj: Ahmet51
  Takvim Ajanda programını ofis 2016 da çalıştırmak için çevirmek TURKOLOG 7 788 28-03-2019, 20:33
Son Mesaj: TURKOLOG
  [FORM] MÜŞTERİ HİZMET AJANDA GÜN TAKİBİ Lenadro 4 805 06-03-2019, 09:18
Son Mesaj: Lenadro

Foruma Git:


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