Skip to main content

AccessTr.neT


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

ertuğrul2022
ertuğrul2022
3
224

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

Çözüldü #1
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.
.rar filtrelenen kayıtların sutunlarını bir sutunda yazdırma.rar (Dosya Boyutu: 39,34 KB | İndirme Sayısı: 1)
Cevapla
#2
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] & "*"));
Cevapla
#3
(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.
Cevapla
#4
Rica ederim
İyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task