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.