Rapor içindeki bir alanda satır sonu yapabilirmiyiz?

[abkbek]

Arkadaşlar merhaba,
Raporda yer alan bir alan içerisinde aradığımız bir kriterden sonra satır sonu verilmesini ve devam eden verinin satırbaşına yazılmasını nasıl sağlayabiliriz. örneğin bir alan içerisinde yer alan sarı, mavi, yeşil ile başlayan veriler olsun, bu verilerden mavi ve yeşil ile başlayan her veriyi yeni satırdan başlayarak yazsın istiyorum. bu mümkün mü? mümkünse nasıl yapabilirim?

 

[yeni54]

Yazdırdığın alan değişkenine xStr dersek:

If InStr(1, xStr, "Mavi") > 0 Then
xStr = Replace(xStr, "Mavi", "Mavi"&chr(13))
End If
If InStr(1, xStr, "Yeşil") > 0 Then
xStr = Replace(xStr, "Yeşil", "Yeşil"&chr(13))
End If

şeklinde xStr nin yeni değerini bul ve xStr yi yazdır.

(denemedim, yanlış da olabilir)

 

[abkbek]

Sayın yeni54,
verdiğiniz kodu raporun Ayrıntı_Format kısmına yazdım ancak çalıştıramadım. acaba doğru yere mi yazdım?

 

[yeni54]

Ayrıntı_Print olması lazım

 

[abkbek]

Sayın yeni54,
onu da denedim ama olmadı. belki örnek üzerinde siz de denemek istersiniz basit bir örnek yaptım, onun üzerinde deneyebilir misiniz?

 

[yeni54]

maalesef olmadı. enter karakteri düşündüğüm anlamda işe yaramadı.

 

[abkbek]

Sayın yeni 54,
ilginize ve emeğinize çok teşekkür ederim. belki bilen bir arkadaş çıkar. bekleyelim bakalım.

 

[modalı]

Sayın abkbek,

Bir de şu kodu deneyin:

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
If InStr(1, soyad, "Mavi") > 0 Then
xStr = Replace(soyad, "Mavi", vbNewLine & "Mavi")
End If
If InStr(1, soyad, "Yeşil") > 0 Then
xStr = Replace(xStr, "Yeşil", vbNewLine & "Yeşil")
End If
Me.Metin8 = xStr
End Sub

İyi çalışmalar

 

[abkbek]

Sayın Modalı,
verdiğiniz kodu denedim ancak "Me.metin8=xstr" satırında hata veriyor. metin8 yerine soyad'ı da denedim. ayrıca ayrı bir başka metin kutusuna yazdım orada da aynı satırda hata veriyor. kod çalışmıyor.

 

[modalı]

Doğru yaptınız, ancak metin8 de veri ilişkisini silmeniz gerekiyor.


İyi çalışmalar

 

[assenucler]

Rica

Sn. abkbek;

Hata iletisi kalkmış son halini rica etsem yüklermisiniz? Teşekkürler.

 

[abkbek]

Sayın modalı,
ilginize ve emeğinize çok teşekkür ederim. size olan şükran duygularımı inanın içtenlikle iletmek istiyorum. iyiki siz ve sizin gibi bilgilerini paylaşan üstadlarımız var.
arkadaşlar problemin çözülmüş hali ile son durumunu istifade etmek isteyenler için ekte gönderiyorum. (Raporlarda iki farklı örnek mevcut)