Inicio ACCESS RT_EliminarFormatoCondicional

RT_EliminarFormatoCondicional

por juanjo@luna-soft.es

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")

También te puede interesar

Deja un comentario

El Blog de Juanjo Luna
Todo sobre Access, Excel, Sharepoint, IA y tecnología en general

Este sitio web utiliza cookies para mejorar su experiencia. Suponemos que está de acuerdo, pero puede darse de baja si lo desea. Aceptar Leer más