Merhabalar,
Asagidaki kodu yeni bir modul olusturup icine kopyalayiniz.
Public Function Yanyana(TT As String)
Dim Kyt As Recordset, laf As String
Set Kyt = Application.CurrentDb.OpenRecordset("Select adi From " & TT)
Kyt.MoveFirst
Do Until Kyt.EOF
laf = laf & Kyt.Fields(0) & ","
Kyt.MoveNext
Loop
Yanyana = laf
End Function
Asagidaki gibi de verileri yan yana listeleyebilirsiniz.
SELECT Yanyana("Table1") AS E1
Not:kodlari inceleyiniz suan cepten yaziyorum, sorun olursa musait; lunca tekrar bakalim.
İyi calismalar.
Textboxa Çoklu Veri Yazdırma Hk.
Bu Konudaki Yorumlar |
Textboxa Çoklu Veri Yazdırma Hk. - Yazar: rknbrlz - 06/04/2015, 17:45
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: simendifer - 06/04/2015, 18:49
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: rknbrlz - 06/04/2015, 19:02
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: serdar_20 - 06/04/2015, 21:23
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: rknbrlz - 06/04/2015, 21:40
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: serdar_20 - 06/04/2015, 21:46
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: rknbrlz - 06/04/2015, 21:58
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: ozanakkaya - 07/04/2015, 13:14
Cvp: Textboxa Çoklu Veri Yazdırma Hk. - Yazar: rknbrlz - 07/04/2015, 13:21
|
Konuyu Okuyanlar: 1 Ziyaretçi