MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Ativar/desativar formatação condicional

    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Ativar/desativar formatação condicional Empty [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
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Ativar/desativar formatação condicional Empty 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
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

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

    Tem um exemplo?

      Data/hora atual: 6/7/2020, 18:52