liste kutusu öğelerini mail olarak gönderme

1 2
06/06/2016, 00:55

mehmetb84

kodu sorgu üzerinden mi kurgulamamız gerek?
06/06/2016, 17:55

ozanakkaya

Uygulamanızın çalışma mantığını çözemedim, ancak gördüğüm hataları belirteyim. Kendiniz çözüm bulabilirsiniz.



Forms!f_cikislar!listekutusu4.RecordsetClone.RecordCount

bu kodun 

Forms!f_cikislar!listekutusu4.listcount
ile değiştirilmesi gerekli

Ayrı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 Sub
06/06/2016, 19:34

mehmetb84

çok teşekkürler ozan bey, zihninize sağlık...
1 2