[Resolvido]Formatação Condicional - Várias caixa de texto de uma única vez

Bom dia a todos, venho aqui tirar a seguinte dúvida:

Tenho uma tabela de revisão de apartamentos, que existe um campo de sim/não chamado "Entregue".
No meu formulário eu tenho um esquema do prédio que mostra todos os apartamentos do 101 ao 2004 (foto anexa), cada apartamento está associado a uma caixa de texto (não associada) que quando clicada procura no formulário o apartamento específico, já que na Tabela "Revisao T1" eu tenho um campo chamado "APTO".

O que eu quero fazer era formatar as caixas de texto que contém a numeração dos apartamentos caso aquele apartamento específico estivesse entregue, ou seja o campo Entregue = Verdadeiro.

Eu até pensei em uma solução, mas ela não é muito eficaz devido ao tempo de processamento e de elaboração do método. O método utilizado seria:
DPesquisa("Entregue";"[Revisao T1]";"[APTO]=2001") isso seria para o apartamento 2001, teria que colocar essa expressão na formatação condicional em todos os números... O que fica inviável.

Se alguém puder ajudar eu agradeço bastante.

Obs. Talvez por código seja mais fácil de fazer, só que não sei colocar formatação condicional por código... As caixas de texto seguem uma numeração específica caso ajude.

Olá, coloque o campo da situação no formulário em modo oculto e passe o nome dele na formatação condicional.

Chamando este sub feito no joelho, num botão para teste;

Private Sub SeuBotão_Click()
    Call PintaCampos(Me)
End Sub

Public Sub PintaCampos(frm As Form)
'By JPaulo ® Maximo Access
Dim strCor1 As String, strCor2 As String
Dim intValor
Dim ctl As Control

strCor1 = RGB(255, 99, 71)
strCor2 = RGB(255, 255, 255)

intValor = 0
For Each ctl In frm
        If ctl.ControlType = acTextBox Then
           On Error Resume Next
           intValor = DLookup("APTO", "[Revisao T1]", "[APTO]=" & ctl.Value & " and Entregue=-1")
          
           If Val(ctl.Value) = intValor Then
              ctl.BackColor = strCor1
              Else
              ctl.BackColor = strCor2
        End If
      End If
Next ctl
Set ctl = Nothing
End Sub

Cores RGB à escolha:
http://www.endprod.com/colors/