MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ativar/desativar formatação condicional

    Compartilhe
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 14/08/2011

    [Resolvido]Ativar/desativar formatação condicional

    Mensagem  leoni_dias em 11/10/2018, 16:13

    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
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 14/08/2011

    Re: [Resolvido]Ativar/desativar formatação condicional

    Mensagem  leoni_dias em 17/10/2018, 15:00

    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

    ----------------------------------------------------------------------------------------
    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1458
    Registrado : 18/07/2010

    Re: [Resolvido]Ativar/desativar formatação condicional

    Mensagem  Agravina em 17/10/2018, 17:46

    Tem um exemplo?

      Data/hora atual: 26/3/2019, 02:57