Skip to main content

AccessTr.neT


Satırları Birleştirerek Bir Metin Kutusunda Yazdırma

ertuğrul2022
ertuğrul2022
5
198

Satırları Birleştirerek Bir Metin Kutusunda Yazdırma

Çözüldü #1
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
.rar SatırBirleştirme.rar (Dosya Boyutu: 52,67 KB | İndirme Sayısı: 3)
Son Düzenleme: 27/11/2022, 16:55, Düzenleyen: ertuğrul2022.
Cevapla
#2
Daha önce önerdiğim rs.getstring ifadesini neden kullanmıyorsunuz?
Cevapla
#3
(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.
Cevapla
#4
Ö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?
Cevapla
#5
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?
Cevapla
#6
(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.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da