+- 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 kutusu öğelerini mail olarak gönderme (/konu-liste-kutusu-ogelerini-mail-olarak-gonderme.html)
Sayfalar:
1
2
Cvp: liste kutusu öğelerini mail olarak gönderme - mehmetb84 - 06/06/2016
kodu sorgu üzerinden mi kurgulamamız gerek?
Cvp: liste kutusu öğelerini mail olarak gönderme - ozanakkaya - 06/06/2016
Uygulamanızın çalışma mantığını çözemedim, ancak gördüğüm hataları belirteyim. Kendiniz çözüm bulabilirsiniz.
Forms!f_cikislar!listekutusu4.RecordsetClone.RecordCountbu kodun
Forms!f_cikislar!listekutusu4.listcountAyrıca DoCmd.GoToRecord , , acNext kodunun da silinmesi gerekli
Kısacası kod aşağıdaki gibi olacak.
Sub BodyYenile()
Dim SatirSayisi, a As Integer
mtn_body = ""
mtn_body = " Sn. " & Me.cs_irsno & "<br />"
'DoCmd.GoToRecord , , acFirst
SatirSayisi = Trim(Forms!f_cikislar!listekutusu4.ListCount) - 1
mtn_body = mtn_body & "<table><tbody><tr><td style='width:100px;'>Kalite:</td><td style='width:100px;'>Metraj:</td><td style='width:100px;'>Topadet:</td></tr><tr>"
For a = 0 To SatirSayisi
mtn_body = mtn_body & "<td>" & Me.listekutusu4.Column(0, (a + 1)) & "</td>"
mtn_body = mtn_body & "<td>" & Me.listekutusu4.Column(1, (a + 1)) & "</td>"
mtn_body = mtn_body & "<td>" & Me.listekutusu4.Column(2, (a + 1)) & "</td>"
If a <> SatirSayisi Then
mtn_body = mtn_body & "</tr><tr>"
End If
Next a
mtn_body = mtn_body & "</tr></tbody></table>"
mtn_body = mtn_body
Me.cs_tarih.SetFocus
End SubCvp: liste kutusu öğelerini mail olarak gönderme - mehmetb84 - 06/06/2016
çok teşekkürler ozan bey, zihninize sağlık...