Skip to main content

AccessTr.neT


liste kutusu öğelerini mail olarak gönderme

liste kutusu öğelerini mail olarak gönderme

#7
kodu sorgu üzerinden mi kurgulamamız gerek?
Cevapla
#8
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
Cevapla
#9
çok teşekkürler ozan bey, zihninize sağlık...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da