+- 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