+- 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ığı: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma (/konu-satirlari-birlestirerek-bir-metin-kutusunda-yazdirma.html)
Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - ertuğrul2022 - 27/11/2022
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
RE: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - berduş - 27/11/2022
Daha önce önerdiğim rs.getstring ifadesini neden kullanmıyorsunuz?
RE: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - ertuğrul2022 - 27/11/2022
(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.
RE: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - berduş - 27/11/2022
Ö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?
RE: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - berduş - 27/11/2022
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 = birlikRE: Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - ertuğrul2022 - 27/11/2022
(27/11/2022, 18:39)berduş yazdı: Bilgisayar olmadığından incelemedim ama yazdığınız koda bakarak
gibi dener misiniz?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
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.