formun geçerli olduğunda bölümüne aşağıdaki kodları yazmış.

Private Sub Form_Current()
If Not Me.NewRecord Then
Me!txtBackColor3.ControlSource = "=[txtGLID] = " & Me!GLID
Else
Me!txtBackColor3.ControlSource = "=False"
End If
End Sub

form üzerine txtBackColor3 adında bir metin kutusu eklemiş. TXT nin koşullu biçimlendirmesine baktım. Biçimlendirme yok. txt yi metin kutularının altına koymuş. Ama metin kutuları ve renlendirme için ayrıca oluşturduğu metin kutusunu uyum içinde nasıl çalıştırmış anlamadım.