'---------------------------------------------------------------
strBody = ""
strBody = strBody & " Sn. " & Me.g_kimlik
strBody = strBody & " Kesintiniz : " & [fiyat_dalt].Form![d_metraj]
strBody = strBody & " Maaş Tutarınız : " & [fiyat_dalt].Form![d_en]
'---------------------------------------------------------------kodunu aşağıdaki ile değiştirerek deneyiniz.
'---------------------------------------------------------------
strBody = ""
strBody = " Sn. " & Me.g_kimlik & Chr(13) & Chr(10)
strBody = strBody & " Kesintiniz : " & Space(20) & "Maaş Tutarınız:" & Chr(13) & Chr(10)
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acFirst
For a = 0 To Trim(Forms!fiyatsorgu!fiyat_dalt.Form.RecordsetClone.RecordCount) - 1
strBody = strBody & [fiyat_dalt].Form![d_metraj] & Space(20) & [fiyat_dalt].Form![d_en] & Chr(13) & Chr(10)
Me.fiyat_dalt.SetFocus
DoCmd.GoToRecord , , acNext
Next a
strBody = strBody
Me.g_musteri.SetFocus
'---------------------------------------------------------------Ayrıca, sorunuza cevap yazılmamış ise önceki mesajınızı düzenlemeyiniz. Konunuza yeni cevap yazarak üst sıraya çıkarabilirsiniz.
