liste kutusu öğelerini mail olarak gönderme

kodu sorgu üzerinden mi kurgulamamız gerek?

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

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