Ofis 2010 için yazıyorum,
uygulamanızdaki tabloya "BILGI2" adında alan ekledim, bu alanın veri türü "Not" ve Metin Biçimi "Zengin Metin"
Eklediğim Form1 isimli formda BILGINOTU ve BILGI2 alanlarını içeren metin kutuları var. forma
Function converttumu(Metin)
Metin = Replace(Metin, "Kooperatif", "<font color=red>Kooperatif</font>")
Metin = Replace(Metin, "yüksekten", "<font style='BACKGROUND-COLOR:#FFFF00'>yüksekten </font>")
Metin = Replace(Metin, "Sivil Savunma", "<u>Sivil Savunma </u>") 'altı çizgili
converttumu = Metin
End Function
kodu eklendi ve mtn_BILGINOTU metin kutusunun güncelleştirme sonrasında olayına
mtn_BILGI2 = converttumu([mtn_bilginotu])
kodu eklendi.
Siz kullandığınız forma bilgi2 alanını ekleyip bilginotu metin kutusunun çıkıldığında olayına (kendi formunuzdaki metin kutusu isimlerine göre)
mtn_BILGI2 = converttumu([mtn_bilginotu])
kodu ekleyeceksiniz.
Rapordaki BILGINOTU metin kutusunun denetim kaynağı BİLGİ2 olacak ve bu metin kutusunun "Metin Biçimi" Zengin Metin olacak.
Üstteki kodlara göre, rapor açıldığında "Kooperatif" kelimesi kırmızı, "yüksekten" kelimesinin arka plan rengi sarı, "Sivil Savunma" kelimesinin altı çizgili olacak.