10/04/2020, 18:05 #7 sledgeab ozanakkaya Bul Kurucu Adı Soyadı: Oz.... Ak.... Konum: Denizli Ofis Versiyonu: Ofis 2016 64 Bit Son Oturumu: Dün,09:16 Yorumları: 13.543 Konuları: 499 Kayıt Tarihi: 29/01/2008 Teşekkür Puanı: 3.139 Mesleğiniz: Memur .Selection.TypeText Nz(Kayit.Fields("DURUMU"), "")Kodu SeçKodu Kopyala kodunun üstüne If Nz(Kayit.Fields("DURUMU"), "") = "kaydı var" Then .Selection.Font.ColorIndex = wdRed Else .Selection.Font.ColorIndex = wdBlue End If Kodu SeçKodu Kopyala kodu ekle. Cevapla Cevapla
11/04/2020, 03:52 #8 Üye suayip Bul Üye Adı Soyadı: Yaşı: 43 Konum: Ofis Versiyonu: Son Oturumu: 29/04/2020,15:10 Yorumları: 18 Konuları: 4 Kayıt Tarihi: 17/06/2019 Teşekkür Puanı: 0 Çok teşekkür ederim Ozan hocam.sayenizde işlemler gerçekleşti. Çalışmalarınızda başarılar diliyorum. Cevapla Cevapla