Private Sub Komut5_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim Mail As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from [Tablo1 Sorgu]")
Metin3 = ""
With rst
Do While Not .EOF
Mail = Mail + !Mail & ";"
.MoveNext
Loop
End With
Me.Metin3 = Mail
End Sub
Aynı Sütunun Bilgilerlini Birleştirme
Bu Konudaki Yorumlar |
Aynı Sütunun Bilgilerlini Birleştirme - Yazar: herdogan22 - 09/11/2019, 07:14
Cvp: Aynı Sütunun Bilgilerlini Birleştirme - Yazar: herdogan22 - 09/11/2019, 21:50
Cvp: Aynı Sütunun Bilgilerlini Birleştirme - Yazar: husem - 10/11/2019, 00:04
Cvp: Aynı Sütunun Bilgilerlini Birleştirme - Yazar: tekinuygun - 10/11/2019, 00:14
Cvp: Aynı Sütunun Bilgilerlini Birleştirme - Yazar: herdogan22 - 10/11/2019, 01:01
Cvp: Aynı Sütunun Bilgilerlini Birleştirme - Yazar: tekinuygun - 10/11/2019, 01:05
|
Konuyu Okuyanlar: 1 Ziyaretçi