AccessTr.neT

Tam Versiyon: Acceste Filtrelenen Sutunların Sıra Numaralarını Birleştirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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] & "*"));
(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.
Rica ederim
İyi çalışmalar