Sayın atoz112, hata veren kodların tamamı şöyle;


Private Sub Ayrıntı_Paint()
If Metin10 > 0 And Metin10 <= 3 Then
Me.Kimlik.BackColor = vbGreen
Me.tarih.BackColor = vbGreen
Me.baslama_saat.BackColor = vbGreen
Me.yer.BackColor = vbGreen
Me.aciklama.BackColor = vbGreen
ElseIf Metin10 >= 4 And Metin10 <= 6 Then
Me.Kimlik.BackColor = vbYellow
Me.tarih.BackColor = vbYellow
Me.baslama_saat.BackColor = vbYellow
Me.yer.BackColor = vbYellow
Me.aciklama.BackColor = vbYellow
ElseIf Metin10 > 6 Then
Me.Kimlik.BackColor = vbRed
Me.tarih.BackColor = vbRed
Me.baslama_saat.BackColor = vbRed
Me.yer.BackColor = vbRed
Me.aciklama.BackColor = vbRed
End If
End Sub


Bu kodlar konusunda siz yardımcı olmuştunuz. Girilmiş arızanın süresine göre bekleyen arızalar listesinde renk alıyor. Kodlar görevini yapıyor arızalar listede doğru renkleri alıyor fakat sık sık bu hata mesajı çıkıyor.