Merhablar;
Tablo1 Soru ile alınan bilgilerden sadece mailleri aralarında noktalı virgül olarak tek bir metinde nasıl birleştirebilirim?
Biraz üzerinde çalıştım.
form1 üzerinde sağda bulunan tablodan seçtiğim maili sağdaki metin kutusuna aktarıyorum.
Bunu her satır için tekrarlamam gerekiyor.
Sol tabloda listelenmiş bütün satırlardaki mail lerin tamamı tek seferde metin kutusuna aktarılabilir mi?
access 2003 halini de ekleyebilirmisiniz.
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
Teşekkür ederim Tekinuygun. eline sağlık.