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.
Adı Soyadı:
Er.... Sa....
Yaşı:
53
Konum:
İzmir
Ofis Versiyonu:
Ofis 2010 64 Bit
Son Oturumu:
01/09/2023,13:46
Cevapla