AccessTr.neT

Malesef test etme imkanım olmadı.

'---------------------------------------------------------------

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.

Sn. XXXX
Kesintiniz Maaş Tutarınız 11 45 16 49

şeklinde geliyor. Aşağıda gönderdiğim gibi alt alta gelmesini istiyordum.

Sn. XXXX
Kesintiniz : 11
Maaş Tutarınız :45
Kesintiniz : 16
Maaş Tutarınız :49

İnceleyiniz. Eklediğim metin kutusunu gizleyebilirsiniz.

çok teşekkürler Ozan Bey, ellerinize sağlık.