Hayırlı günler

Acceste Aşağıdaki kod ile tablodaki satırları bir metin kutusunda birleştiriyorum ama satır kaynağı tablo yerine sorgu yapınca kod çalışmıyor bu konuda bana yardım edebilirmisiniz.

---

Private Sub Komut9_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim birlik As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from T_SIPARİŞ")
birlik = ""
With rst
Do While Not .EOF
birlik = birlik + !SiparişNu & ", "
.MoveNext
Loop
End With
Me.SraYaz = birlik
End Sub

Daha önce önerdiğim rs.getstring ifadesini neden kullanmıyorsunuz?

(27/11/2022, 17:59)berduş yazdı: Daha önce önerdiğim rs.getstring ifadesini neden kullanmıyorsunuz?

hocam kusura bakma orada iki tablo bardı ve ve ben sorgudan yapmak istediğim için işin içinden çıkamadıım. Bilgisayarım bozuk dediğin için seni tekrar rahatsız etmek istemedim. Hakkını helal et.

Önemli olan tablo sayısı değil ki tablolardan alacağınız alanlar ve tablolar arası ilişki
Aynı tabloyu 2 farklı tabloymuş gibi sorguya ekleyebiliyorsunuz değil mi?

Bilgisayar olmadığından incelemedim ama yazdığınız koda bakarak

xSQL = "Select SiparişNu from T_SIPARİŞ"

Set rs = CurrentProject.Connection.Execute(xSQL)

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

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

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

birlik = Left(xGrup, xKes)

Me.SraYaz = birlik

gibi dener misiniz?

(27/11/2022, 18:39)berduş yazdı: Bilgisayar olmadığından incelemedim ama yazdığınız koda bakarak

xSQL = "Select SiparişNu from T_SIPARİŞ"

Set rs = CurrentProject.Connection.Execute(xSQL)

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

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

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

birlik = Left(xGrup, xKes)

Me.SraYaz = birlik

gibi dener misiniz?

Teşekkür ederim hocam işimi gördüm.
Birleştirilen kelimeyi BİRLEŞTİRALTFORM da SİPARİŞ metin kutusuna nasıl yazdırabilirim. Bu konuda da yardımcı olursan çok makbule geçecek. Şimdiden başarılar diliyorum.