''''Private Sub Form_Current()
If kalan >= 0 Then kalan.ForeColor = vbBlue
Else
kalan.ForeColor = vbRed
End
End Sub......
hata veriyor "else" MAVİ YANİ SEÇİLİ oluyor. emeğinize sağlık.
MESAJI GÜNCELLEDİM

Sayın aleysan;
kod hatası vardı düzelttim, birde örnek ekliyorum,
burada yazdığımız kodu ikinci sayının çıkıldığında olayına yazıyoruz..

iyi çalışmalar..

SAYIN ONURCAN HOCAM UFAK BİR SORUN DAHA VAR KOUYLA ALAKALI.
BENİM KULLANACAĞIM FORM SEKMELİ OLDUĞU İÇİN OLSA GEREK
KODU UYGULAYINCA BÜTÜN KAYITLAR AYNI RENGE DÖNÜYÖR SON KAYIT NE RENK OLMASI GEREKEİYORSA TÜM KAYITLARDAKİ O ALANI O REGE DÖNÜŞTÜRÜYOR.
İYİ ÇALIŞMALAR.
AYRICA İLGİNİZE ÇOK ÇOK TEŞEKKÜR EDERİM

Eğer kullandığınız form sekmeli sürekli form ise söylediğiniz gibi olur formu tek form olarak değiştirme imkanınız yoksa koşullu biçimlendirme uygulayabilirsiniz..

sayın onur can bu konu kayıt ve yedek konusundaki ekteydi ve bundan daha büyük sorunlar ortaya çıkınca bu kaldı " kayıt ve yedek konusunda yardımlarınızı bekliyorum. selamlar herkese kolay gelsin