A.S.C Filtre, Grafik ve Raporlama Eklentisi

[SORGU] Sql Indirekt Tablo Sütunu Referansı
#1
Selamlar,

Aşağıdaki Sql kodunu w14,w15,.... tablo sütunları endirekt refere ederek daha kısa yazmanın yolu var mıdır ?

"w" & [W_No] gibi...

Şimdiden teşekkürler...


Visual Basic
  1. IIf ([W_No] < 23,
  2.  
  3. Switch( [W_No]=13, [w13],
  4. [W_No]=14, [w14],
  5. [W_No]=15, [w15],
  6. [W_No]=16, [w16],
  7. [W_No]=17, [w17],
  8. [W_No]=18, [w18],
  9. [W_No]=19, [w19],
  10. [W_No]=20, [w20],
  11. [W_No]=22, [w22]
  12.  ),
  13.  
  14. IIf ([W_No] < 33,
  15.  
  16. Switch( [W_No]=23, [w23],
  17. [W_No]=24, [w24],
  18. [W_No]=25, [w25],
  19. [W_No]=26, [w26],
  20. [W_No]=27, [w27],
  21. [W_No]=28, [w28],
  22. [W_No]=29, [w29],
  23. [W_No]=30, [w30],
  24. [W_No]=32, [w32]
  25.  ),
  26.  
  27. IIf ([W_No] < 43,
  28.  
  29. Switch( [W_No]=33, [w33],
  30. [W_No]=34, [w34],
  31. [W_No]=35, [w35],
  32. [W_No]=36, [w36],
  33. [W_No]=37, [w37],
  34. [W_No]=38, [w38],
  35. [W_No]=39, [w39],
  36. [W_No]=40, [w40],
  37. [W_No]=42, [w42]
  38.  ),
  39.  
  40. IIf ([W_No] < 53,
  41.  
  42. Switch( [W_No]=43, [w43],
  43. [W_No]=44, [w44],
  44. [W_No]=45, [w45],
  45. [W_No]=46, [w46],
  46. [W_No]=47, [w47],
  47. [W_No]=48, [w48],
  48. [W_No]=49, [w49],
  49. [W_No]=50, [w50],
  50. [W_No]=52, [w52]
  51.  ),
  52.  
  53. IIf ([W_No] < 53,
  54.  
  55. Switch( [W_No]=21, [w21],
  56. [W_No]=31, [w31],
  57. [W_No]=41, [w41],
  58. [W_No]=51, [w51]
  59.  ),
  60. ),
  61. ),
  62.  ),
  63. ),
  64. ),





  Alıntı
Bu mesajı beğenenler:
#2
(17-03-2020, 16:36)Murathan77 demiş ki: Selamlar,

Aşağıdaki Sql kodunu w14,w15,.... tablo sütunları endirekt refere ederek daha kısa yazmanın yolu var mıdır ?

"w" & [W_No] gibi...

Şimdiden teşekkürler...


Visual Basic
  1. IIf ([W_No] < 23,
  2.  
  3. Switch( [W_No]=13, [w13],
  4. [W_No]=14, [w14],
  5. [W_No]=15, [w15],
  6. [W_No]=16, [w16],
  7. [W_No]=17, [w17],
  8. [W_No]=18, [w18],
  9. [W_No]=19, [w19],
  10. [W_No]=20, [w20],
  11. [W_No]=22, [w22]
  12.  ),
  13.  
  14. IIf ([W_No] < 33,
  15.  
  16. Switch( [W_No]=23, [w23],
  17. [W_No]=24, [w24],
  18. [W_No]=25, [w25],
  19. [W_No]=26, [w26],
  20. [W_No]=27, [w27],
  21. [W_No]=28, [w28],
  22. [W_No]=29, [w29],
  23. [W_No]=30, [w30],
  24. [W_No]=32, [w32]
  25.  ),
  26.  
  27. IIf ([W_No] < 43,
  28.  
  29. Switch( [W_No]=33, [w33],
  30. [W_No]=34, [w34],
  31. [W_No]=35, [w35],
  32. [W_No]=36, [w36],
  33. [W_No]=37, [w37],
  34. [W_No]=38, [w38],
  35. [W_No]=39, [w39],
  36. [W_No]=40, [w40],
  37. [W_No]=42, [w42]
  38.  ),
  39.  
  40. IIf ([W_No] < 53,
  41.  
  42. Switch( [W_No]=43, [w43],
  43. [W_No]=44, [w44],
  44. [W_No]=45, [w45],
  45. [W_No]=46, [w46],
  46. [W_No]=47, [w47],
  47. [W_No]=48, [w48],
  48. [W_No]=49, [w49],
  49. [W_No]=50, [w50],
  50. [W_No]=52, [w52]
  51.  ),
  52.  
  53. IIf ([W_No] < 53,
  54.  
  55. Switch( [W_No]=21, [w21],
  56. [W_No]=31, [w31],
  57. [W_No]=41, [w41],
  58. [W_No]=51, [w51]
  59.  ),
  60. ),
  61. ),
  62.  ),
  63. ),
  64. ),



For Next ile yapılabilir sanırım... Şuan bilgisayarım uygun değil ama örnek vermesi açısından yazayım.

Visual Basic
  1. Private Sub Btn_Click()
  2. Dim deger As Integer
  3.  
  4. For deger = 1 To 50
  5.  
  6. sonuc = "w" & deger  '///SONUÇ YAZDIRMAYI BU ŞEKİLDE YAPARSAN w1 DİYE YAZAR
  7. sonuc = "w[" & deger & "]"    '///SONUÇ YAZDIRMAYI BU ŞEKİLDE YAPARSAN w[1] DİYE YAZAR
  8.  
  9. Next deger
  10.  
  11. End Sub





  Alıntı
Bu mesajı beğenenler:
#3
VBA kullanmadan SQL üzerinden yapabilmenin bir yolu var mıdır ?



  Alıntı
Bu mesajı beğenenler:
#4
SELECT Tablo1.W_No, IIf([W_No]<23,Switch([W_No]=13,[w13],[W_No]=14,[w14],[W_No]=15,[w15],[W_No]=16,[w16],[W_No]=17,[w17],[W_No]=18,[w18],[W_No]=19,[w19],[W_No]=20,[w20],[W_No]=22,[w22]),iif(.........Yeni sart....)) AS Sonuc FROM Tablo1

seklinde olabilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veritabanında Kayıtlı Son Sütünu Bulma toprak2349 3 185 21-10-2019, 13:20
Son Mesaj: halily
access-sql-18 [FORM] Formaki Temizle Butonuna Tablodaki Sutunu Temizleme Kodu eklemek haziran4 3 1.193 05-01-2017, 16:35
Son Mesaj: haziran4
  [SORGU] 2 tablo/sorgu ile her kayda ait son değerden oluşan tablo yada sorgu oluşturma Gurselgu 5 1.991 02-09-2016, 15:29
Son Mesaj: Gurselgu
  [TABLO] 70 Sutunlu 1 Tablo Mu yoksa 2 Yada 3 Tablo karakabus 4 2.000 09-04-2015, 22:21
Son Mesaj: onur_can
access-sql-8 Evet/Hayir sutunu icin SQL sorusu ceneyikees 1 1.303 13-11-2014, 23:21
Son Mesaj: dsezgin
access-sql-8 [TABLO] İki sütunu birleştirme matematiksel 5 2.944 16-06-2014, 23:41
Son Mesaj: dsezgin
  [TABLO] formdaki butonla tablo alanına veri eklemek ve birbirine bağlı tablo oluşturmak perahim 5 2.896 01-07-2013, 21:25
Son Mesaj: mbmbmbmb
  [TABLO] tablo içinden başka tablo seçmek metehan16 0 1.270 05-12-2012, 01:39
Son Mesaj: metehan16

Foruma Git:


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