Bu sorunun raporu Excel yoluyla mail ile gönderirken oluşan sorun bağlantısındaki sorudan farkı nedir?

İlgili kodu aşağıdaki ile değiştirip tekrar deneyiniz.

Sub BodyYenile()

Dim SatirSayisi, a As Integer

mtn_body = ""

mtn_body = " Sn. " & Me.g_kimlik & "<br />"

Me.fiyat_dalt.SetFocus

DoCmd.GoToRecord , , acFirst



SatirSayisi = Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1



mtn_body = mtn_body & "<table><tbody><tr><td style='width:100px;'>Kalite:</td><td style='width:100px;'>En:</td><td style='width:100px;'>Metraj:</td></tr><tr>"



For a = 0 To SatirSayisi

mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_kalite] & "</td>"

mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_metraj] & "</td>"

mtn_body = mtn_body & "<td>" & [fiyat_dalt].Form![d_en] & "</td>"

If a <> SatirSayisi Then

mtn_body = mtn_body & "</tr><tr>"

End If

Me.fiyat_dalt.SetFocus

DoCmd.GoToRecord , , acNext

Next a

mtn_body = mtn_body & "</tr></tbody></table>"

mtn_body = mtn_body

Me.g_musteri.SetFocus



End Sub