Skip to main content

AccessTr.neT


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

ertuğrul2022
ertuğrul2022
5
199

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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Satırları Birleştirerek Bir Metin Kutusunda Yazdırma - Yazar: ertuğrul2022 - 27/11/2022, 16:25
Task