AccessTr.neT
liste kutusundan virgülle metin kutusuna veri yazdırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: liste kutusundan virgülle metin kutusuna veri yazdırma (/konu-liste-kutusundan-virgulle-metin-kutusuna-veri-yazdirma.html)



liste kutusundan virgülle metin kutusuna veri yazdırma - exmadon - 30/12/2013

Merhaba ekteki örnekte toplu email gönderimi yapmak için el ile adreslerin arasına "," yazıldığında gönderim yapabiliyoruz. Seç butonuna bir liste yaptım. Verilerin üzerine çift tıkladığımda mail gönderme formundaki gönderilecek adres kutusuna tek adres yazdırabiliyorum. Ama çoklu seçimi yapamadım.
Birden fazla seçip aralarına "," koydurarak yazdırabilir miyim?


Cvp: liste kutusundan virgülle metin kutusuna veri yazdırma - exmadon - 30/12/2013

Biraz daha kurcaladıktan sonra sorunumu çözdüm. Aşağıdaki kodlarla halletim.
Private Sub Liste0_DblClick(Cancel As Integer)
Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Forms.Frm_Mail_Gonder!TxtGonderilecekMail & "," & Liste0.Column(1)
If Left(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, 1) = "," Then Forms!Frm_Mail_Gonder!TxtGonderilecekMail = Right(Forms!Frm_Mail_Gonder.TxtGonderilecekMail, Len(Forms!Frm_Mail_Gonder.TxtGonderilecekMail) - 1)
End Sub