RT_EliminarFormatoCondicional

PREGUNTA

¿Se pueden eliminar los formatos condicionales de los controles de un formulario a través de código?

RESPUESTA

Utiliza esta función creada por Jesús Mansilla (Mihura).

Código

'---------------------------------------------------------------------------------------------
' Autor : JESUS MANSILLA CASTELLS -Mihura-
'---------------------------------------------------------------------------------------------
Function RT_EliminarFormatoCondicional(ByVal FrmName As String) As Boolean
    Dim ctl  As Control
    
    DoCmd.OpenForm FrmName, view:=acDesign
    
    For Each ctl In Forms(FrmName).Controls
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
            Debug.Print ctl.Name, ctl.FormatConditions.Count
            Do While ctl.FormatConditions.Count > 0
                ctl.FormatConditions(0).Delete
            Loop
        End If
    Next
    DoCmd.Close acForm, FrmName, acSaveYes
End Function

Ejemplo de uso

RT_EliminarFormatoCondicional("formulario Clientes")