A.S.C Filtre, Grafik ve Raporlama Eklentisi

[SORGU] Birden Fazla Olan Verinin Ilk Olanını Almak
#1
merhaba hocalarım

elimde vardiya listesi var bu listede personel ismi birden fazla var ve bu isimlerin karşısında farklı bölgeler var 
benim isteğim isimlere denk gelen bölgeleri tek hücre içinde yazdırmak yada ilk olan veriyi yazdırmak


Eklenti Dosyaları
.rar   deneme.rar (Boyut: 23,65 KB / İndirilme: 39)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Public Function YanYana(Yer As Long, Kim As String) As String
  2. Dim Kyt As Recordset, Yaz As String
  3. Set Kyt = CurrentDb.OpenRecordset("Select deneme1.bolge, deneme1.olusan_sayý FROM deneme1 LEFT JOIN vardiya ON (deneme1.vardiya = vardiya.vardiya) AND (deneme1.tarih = vardiya.tarih) AND (deneme1.bolge = vardiya.bolge) WHERE (((vardiya.personel) = '" & Kim & "')) GROUP BY deneme1.bolge, deneme1.olusan_sayı ORDER BY deneme1.bolge, deneme1.olusan_sayı")
  4. If Kyt.RecordCount = 0 Then Exit Function
  5. Do Until Kyt.EOF
  6. Yaz = Yaz & Kyt(IIf(Yer = 1, "bolge", "olusan_sayı")) & ", "
  7. Kyt.MoveNext
  8. Loop
  9. Kyt.Close
  10. Set Kyt = Nothing
  11. YanYana = Mid(Yaz, 1, Len(Yaz) - 2)
  12. End Function



.rar   footprinting(YanYana).rar (Boyut: 21,29 KB / İndirilme: 51)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Formda Birden çok Veri Kaydetme calief 2 113 08-06-2021, 13:50
Son Mesaj: calief
  [RAPOR] Liste Kutusundan Seçtiğim Kaydın Ilgili Raporunu Almak. charisma1907 4 107 24-05-2021, 16:04
Son Mesaj: charisma1907
  [VBA] Vba Koduyla Birden Fazla Metin Kutusu Gizleme footprinting 5 138 01-05-2021, 18:00
Son Mesaj: halily
  [RAPOR] Tek Sayı Olan Kayıtlar akinokrizo 5 178 24-04-2021, 19:33
Son Mesaj: akinokrizo
  [SORGU] Birden Fazla Veriyi Aynı Denetim Kutusu Içerisinde Yan Yana Görüntülemek fth_babur 3 223 21-04-2021, 11:04
Son Mesaj: fth_babur
  [SORGU] Birden Fazla Veriyi Aynı Denetim Kutusu Içerisinde Görüntülemek ctnerdal 5 284 20-04-2021, 17:13
Son Mesaj: fth_babur
  Listeden Veri Almak alienerji 4 159 04-04-2021, 09:17
Son Mesaj: alienerji
  Liste Kutusu Fazla Veri Kısıtlama tolgahat 4 332 11-03-2021, 23:13
Son Mesaj: dsezgin

Foruma Git:


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