Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [SORGU] Sql Indirekt Tablo Sütunu Referansı

[SORGU] Sql Indirekt Tablo Sütunu Referansı
Murathan77
Yeni Üye 1-15

*
Kayıt Tarihi: 17.03.2020
Toplam 1 konu açtı.
Toplam 2 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 0
#1
17-03-2020, 16:36
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.  ),





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

*
Kayıt Tarihi: 06.11.2013
Toplam 93 konu açtı.
Toplam 626 yorum yaptı.
Toplam 88 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016, Office 2019,
Beğeniler: 0 / 31
#2
19-03-2020, 16:00
(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





  Bul
  Alıntı
Bu mesajı beğenenler:
Murathan77
Yeni Üye 1-15

*
Kayıt Tarihi: 17.03.2020
Toplam 1 konu açtı.
Toplam 2 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2019,
Beğeniler: 0 / 0
#3
24-03-2020, 08:49
VBA kullanmadan SQL üzerinden yapabilmenin bir yolu var mıdır ?



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

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.769 yorum yaptı.
Toplam 1.004 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#4
24-03-2020, 10:23
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.
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
  Veritabanında Kayıtlı Son Sütünu Bulma toprak2349 3 938 21-10-2019, 13:20
Son Mesaj: halily
access-sql-18 [FORM] Formaki Temizle Butonuna Tablodaki Sutunu Temizleme Kodu eklemek haziran4 3 1.586 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 2.634 02-09-2016, 15:29
Son Mesaj: Gurselgu
  [TABLO] 70 Sutunlu 1 Tablo Mu yoksa 2 Yada 3 Tablo karakabus 4 2.481 09-04-2015, 22:21
Son Mesaj: onur_can
access-sql-8 Evet/Hayir sutunu icin SQL sorusu ceneyikees 1 1.568 13-11-2014, 23:21
Son Mesaj: dsezgin
access-sql-8 [TABLO] İki sütunu birleştirme matematiksel 5 5.682 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 3.409 01-07-2013, 21:25
Son Mesaj: mbmbmbmb
  [TABLO] tablo içinden başka tablo seçmek metehan16 0 1.577 05-12-2012, 01:39
Son Mesaj: metehan16

Foruma Git:


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