AccessTr.neT

Tam Versiyon: Zengin Metin Alanındaki Biçim Özellikleri Worde Aktarma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
.Selection.TypeText Nz(Kayit.Fields("DURUMU"), "")

kodunun üstüne

If Nz(Kayit.Fields("DURUMU"), "") = "kaydı var" Then
                .Selection.Font.ColorIndex = wdRed
                Else
                .Selection.Font.ColorIndex = wdBlue
                End If


kodu ekle.
Çok teşekkür ederim Ozan hocam.sayenizde işlemler gerçekleşti. Çalışmalarınızda başarılar diliyorum.
Sayfalar: 1 2