[Resolvido]Ativar/desativar formatação condicional

Boa tarde a todos.

Desculpem se já existe algum tópico sobre o assunto, mas procurei e não achei.

Gostaria de saber se tem como em um formulário contínuo criar um botão para ativar e desativar a formatação condicional da seção detalhe.

Obrigado.

Editando...

Consegui, através de um controle desativar(deletar) a formatação. Falta ativar novamente. Se alguém puder ajudar, agradeço.

Dim Item As Variant
Dim Textbox As Textbox

If [Tiracor] = 0 Then
With Me
For Each Item In .Section(acDetail).Controls
If TypeOf Item Is Textbox Then
Set Textbox = Item
Textbox.FormatConditions.Delete
End If
Next
End With


ElseIf [Tiracor] = -1 Then


End If

Bom dia.

A quem interessar, a resolução do meu problema.

Obrigado a todos.

-----------------------------------------------------------------------------------

Dim Item As Variant
Dim Textbox As Textbox

If [Tiracor] = 0 Then
With Me
For Each Item In .Section(acDetail).Controls
If TypeOf Item Is Textbox Then
Set Textbox = Item
Textbox.FormatConditions.Delete
End If
Next
End With
Rótulo121.Visible = False
Rótulo122.Visible = False
Rótulo123.Visible = False
Rótulo128.Visible = False
Caixa124.Visible = False
Caixa118.Visible = False
Caixa119.Visible = False
Caixa120.Visible = False
Caixa127.Visible = False
ElseIf [Tiracor] = -1 Then
With Me
For Each Item In .Section(acDetail).Controls
If TypeOf Item Is Textbox Then
Set Textbox = Item
Textbox.FormatConditions.Add acExpression, , "IIf([MEDIDA].Value = 'SENTENC.', True, False)"
Textbox.FormatConditions(0).BackColor = RGB(212, 212, 212)
Textbox.FormatConditions.Add acExpression, , "IIf([MEDIDA].Value = 'PROVIS.', True, False)"
Textbox.FormatConditions(1).BackColor = RGB(255, 255, 255)
Textbox.FormatConditions.Add acExpression, , "IIf([MEDIDA].Value = 'DESCUMP.', True, False)"
Textbox.FormatConditions(2).BackColor = RGB(170, 170, 170)
Textbox.FormatConditions.Add acExpression, , "IIf([MEDIDA].Value = 'SEMILIB.', True, False)"
Textbox.FormatConditions(3).BackColor = RGB(127, 127, 127)
End If
Next
End With
Rótulo121.Visible = True
Rótulo122.Visible = True
Rótulo123.Visible = True
Rótulo128.Visible = True
Caixa124.Visible = True
Caixa118.Visible = True
Caixa119.Visible = True
Caixa120.Visible = True
Caixa127.Visible = True
End If

----------------------------------------------------------------------------------------

Tem um exemplo?