Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme

Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme (/konu-acceste-filtrelenen-sutunlarin-sira-numaralarini-birlestirme.html)

Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme - ertuğrul2022 - 31/12/2022

Hayırlı günler
Benim Accesste VERİLER diye tablom var
Sorgu1 adında sorgum var
Form1 ve formaltform diye 2 formum var sorum ise
formda açılan kutu ile fatura dönemlerini filtreleyip alt formda gösteriyorum.
Ancak ben aynı sipariş olanlarını SIRA_NU sütununda yan yana yazmasını istiyorum aşağıdaki gibi
SIRA_NU SİPARİŞ_NU MALZEME_ADI FATURA_DÖNEMİ
2022-1, 2022-3 SPRŞ-1 TORMAVİDA Ekim 2022
2022-5, 2022-8, 2022-9 SPRŞ-2 PENSE Ekim 2022
Bir modül oluşturdun ve

xSQL = "select [SIRA_NU] from [Sorgu1] where SİPARİŞ_NU='" & xNU & "'"
Set rs = CurrentProject.Connection.Execute(xSQL)
'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)
xGrup = rs.getstring(, , , ", ", "")
xKes = InStrRev(xGrup, ",") - 1
xGrup = Left(xGrup, xKes)
End Function

dediğimde Set rs = CurrentProject.Connection.Execute(xSQL) burada hata veriyor. Modülün kayıt kaynağını tablo yapınca birleştirme işi oluyor ancak Kayıt kaynağı sorgu olunca hata veriyor biraz uzun bir açıklama oldu ama kusura bakmayın. Hayırlı işler diliyorum.

RE: Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme - berduş - 31/12/2022

fonksiyonu ve sorguyu aşağıdaki gibi düzenleyip dener misiniz?
fonksiyon:



Function xGrup(xNU As String, xFtrDnm As String) As String

xSQL = "select [SIRA_NU] from [VERİLER] where SİPARİŞ_NU='" & xNU & "' and [FATURA_DÖNEMİ]='" & xFtrDnm & "'"

Set rs = CurrentProject.Connection.Execute(xSQL)

'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)

xGrup = rs.getstring(, , , ", ", "")

xKes = InStrRev(xGrup, ",") - 1

xGrup = Left(xGrup, xKes)

End Function

Sorgu:

SELECT VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ, xGrup([SİPARİŞ_NU],[FATURA_DÖNEMİ]) AS Sonuc

FROM VERİLER

GROUP BY VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ

HAVING (((VERİLER.FATURA_DÖNEMİ) Like "*" & [Formlar]![Form1]![Açılan_Kutu0] & "*"));

RE: Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme - ertuğrul2022 - 31/12/2022

(31/12/2022, 13:53)berduş yazdı: fonksiyonu ve sorguyu aşağıdaki gibi düzenleyip dener misiniz?
fonksiyon:



Function xGrup(xNU As String, xFtrDnm As String) As String

xSQL = "select [SIRA_NU] from [VERİLER] where SİPARİŞ_NU='" & xNU & "' and [FATURA_DÖNEMİ]='" & xFtrDnm & "'"

Set rs = CurrentProject.Connection.Execute(xSQL)

'recordset.GetString(StringFormat, NumRows, ColumnDelimiter, RowDelimiter, NullExpr)

xGrup = rs.getstring(, , , ", ", "")

xKes = InStrRev(xGrup, ",") - 1

xGrup = Left(xGrup, xKes)

End Function

Sorgu:

SELECT VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ, xGrup([SİPARİŞ_NU],[FATURA_DÖNEMİ]) AS Sonuc

FROM VERİLER

GROUP BY VERİLER.SİPARİŞ_NU, VERİLER.[MALZEME ADI], VERİLER.FATURA_DÖNEMİ

HAVING (((VERİLER.FATURA_DÖNEMİ) Like "*" & [Formlar]![Form1]![Açılan_Kutu0] & "*"));

işlem tamamdır hocam Allah razı olsun.

RE: Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme - berduş - 31/12/2022

Rica ederim
İyi çalışmalar