AccessTr.neT

Bul · 31/12/2022, 13:08

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.

Bul · 31/12/2022, 13:53

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] & "*"));

Bul · 31/12/2022, 14:07

(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.

Bul · 31/12/2022, 14:09

Rica ederim
İyi çalışmalar

AccessTr.neT

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

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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri