(07/10/2019, 19:39)berduş yazdı: eğer alt formunuzu verisayfası görünümünde değil de sürekli form şeklinde yaparsanız mümkün
dilerim işinize yarar

Private Sub Ayrıntı_Paint()
RenkDegis (xRenk)
End Sub

Private Sub Form_Timer()
If Nz(xRenk, 0) = 0 Then xRenk = 1 Else xRenk = 0
Ayrıntı_Paint
End Sub

Sub RenkDegis(xRenk As Boolean)
    If Me.tarih <= Date Then
        If xRenk = 0 Then tarih.BackColor = vbWhite Else tarih.BackColor = vbRed
    Else
        tarih.BackColor = vbWhite
    End If
End Sub

Önemli olan kısmı burasıydı Üstadım. Timer ile süre dolduğunda kısmına eklemişsiniz. Teşekkür ederim.