İyi günler. Sitemizden bulmuş olduğum örnek kod ile tablo1 deki ilgili alanları sorguda yan yana gösteriyorum. Yapmak istediğim sorgudaki alanları da yan yana olacak şekilde form üzerinde yada raporda gösterebilmek. Sorgu alanları bazen tek satır olabildiği bigi bazen de daha fazla olabiliyor. Örnek dosya ekte. İlgilenenlere teşekkür ederim.
Raporunuzun veya formunuzun kaynağı olarak sorgunuzu belirlerseniz yanyana getirmiş olduğunuz alanları tek bir kontrolde gösterebilirsiniz.
Günaydın. Sorgudaki sonuc ve f_adi alanlarındaki aynı sıradaki satırları tek bir kontrolde yan yana getirmek istiyorum. Örnek: 1.sıra sonuc, f_adi - 2.sıra sonuc, f_adi - 3.sıra sonuc, f_adi - "sonunana da metin yazacağım". Umarım ifade edebilmişimdir. Ekli dosyada anlatmaya çalıştım. İlginiz için teşekkür ederim.
sonuç bir düğmeye basınca mı gelecek yoksa form yüklenince mi?
aşağıdaki yordamı ona göre uygun bir yerden çağırırsınız.
Sub Rs2Metin()
SQL = " SELECT Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]) AS sonuc" & _
" FROM Tablo2 INNER JOIN Tablo1 ON Tablo2.Kimlik = Tablo1.sirano" & _
" GROUP BY Tablo2.firmaadi, ConcatRelated(""sirano"",""Tablo1"",""[firma]="" & [firma]);"
Set rs = CurrentProject.Connection.Execute(SQL)
If Not rs.EOF And Not rs.BOF Then xSonuc = rs.GetString(, , " : ", vbNewLine) & "Malzemeler kalmıştır" Else xSonuc = "Kayıt bulunamadı"
Metin0 = xSonuc
End Sub
Cevabınız için teşekkür ederim. Eklediğim dosyada açıklamaya çalıştım. Kodu Form yüklenince çağırdım. Benim düzenlediğim sorgu daki sonuç ile metin kutusuna gelen farklı. Ayrıca metin kutusuna alt alta satır şeklinde sıralanıyor. Yan yana arada virgül olacak şekilde olabilir mi? Örnek: a firması : 1, 3, b firması : 2, 5, c firması : 4, 6
1 -
(29/12/2023, 14:44)nakres64 yazdı: [ -> ]Benim düzenlediğim sorgu daki sonuç ile metin kutusuna gelen farklı.
Kusura bakmayın dikkatimden kaçmış
Sorgu kodunuzda
INNER JOIN Tablo1 ON Tablo2.Kimlik = Tablo1.sirano satırı var o kısımda firma alanı yerine sırano yazılmış sadece o kısmı firma alanının adı ıle değiştirmeniz yeterli. Alanın adı aklımda değil
2 -
(29/12/2023, 14:44)nakres64 yazdı: [ -> ]Yan yana arada virgül olacak şekilde olabilir mi?
xSonuc = rs.GetString(, , " : ", vbNewLine) alt alta olmasını sağlayan yani her kaydin yeni satirda baslamasini saglayan kısım
vbNewLine : o kısmı
" , " ile değiştirmeniz gerekiyor