.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.