MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Formatação Condicional em Caixa de Texto de Relatório

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Formatação Condicional em Caixa de Texto de Relatório Empty Formatação Condicional em Caixa de Texto de Relatório

    Mensagem  Leandro 19/3/2012, 09:27

    Bom dia a todos!

    Tenho um relatório e preciso formatar algumas caixas de texto caso seus valores sejam menores, iguais ou maiores que outras caixas de texto, a formatação tem que ser na cor da fonte.

    Dentro das caixas de texto a que elas serão comparadas existe a seguinte fórmula:

    = DSoma("[ValorOS]"; "TabRecurso"; " [CodigoRecurso] = 2") / 36

    Ela se repete para os critérios:

    27; 28; 231; 232; 315 e 326

    Já tentei pela formatação condicional do menu formatar e pelo VBA, mas sem sucesso!

    Obrigado pela atenção.
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Formatação Condicional em Caixa de Texto de Relatório Empty Re: [Resolvido]Formatação Condicional em Caixa de Texto de Relatório

    Mensagem  Leandro 19/3/2012, 10:09

    Caros colegas, consegui resolver graças a um post do Críquio, foi com VBA:

    Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Texto73.Value < Me.Texto62 Then
    Me.Texto73.ForeColor = 255
    End If
    End Sub

    Muito obrigado pois sei que esse tópico foi visualizado.

    Leandro

      Data/hora atual: 21/11/2024, 12:10