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]Cores em Vencimentos próximos

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Cores em Vencimentos próximos Empty [Resolvido]Cores em Vencimentos próximos

    Mensagem  edjunho em 18/1/2018, 18:55

    Bom dia,

    Gostaria de saber como posso colocar cores em vencimentos.
    Exemplo:

    Se o vencimento está dentro de 60 dias = Um caixa de texto é pintada de amarela ou a linha da consulta.
    Se """ ""                                 30 dias = """"                                 cor vermelha
    Se "" ""                                  15 dias = """" aparece a informação: " O vencimento se em prazo aproxima... "
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  Leandro em 19/1/2018, 10:51

    Bom dia,
    Você terá que fazer a condição no Evento ao Formatar da seção Detalhe.
    Código:

    Select Case Me!Vecimento.Value
       Case <=60: Me!CaixaTexto.BackColor = vbYellow
       Case <=30: Me!CaixaTexto.BackColor = vbRede
       Case <=15: Me!CaixaTexto = "O vencimento se em prazo aproxima"
    End Select
            

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  edjunho em 19/1/2018, 17:44

    Fiz assim:

    No relatório em modo design, cliquei com o botão direito do mouse e escolhi: construir evento. Logo depois no evento "ao Formatar" coloquei o código:

    Option Compare Database

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

    Select Case Me!Vigencia.Value

    Case Is <= 60: Me.Vigencia.BackColor = vbYellow
    Case Is <= 30: Me.Vigencia.BackColor = vbRede
    Case Is <= 15: Me.Vigencia = "O vencimento em prazo se aproxima"

    End Select

    End Sub

    ... coloquei para visualizar e não me apareceu as cores.

    Faltou algum passo?

    A caixa de texto está nomeada como "Vigencia" ela está localizada no "Cabeçalho da Vigencia".
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  Leandro em 19/1/2018, 18:44

    Desculpe, informei errado, é no evento ao pintar.
    E a formatação e informação com texto terá que ser em outro campo controle, rótulo ou caixa de texto, nesse caso coloquei em um rótulo.

    Código:

    Private Sub Detalhe_Paint()
    If Me!Texto4.Value > 30 And Me!Texto4.Value < 60 Then
        Me!Rótulo7.BackColor = vbYellow
        Else
            If Me!Texto4.Value > 15 And Me!Texto4.Value < 30 Then
                Me!Rótulo7.BackColor = vbRed
                Else
                    If Me!Texto4.Value < 15 Then
                        Me!Rótulo7.Caption = "Vencimento próximo!"
                    End If
            End If
    End If
    End Sub
    Anexos
    [Resolvido]Cores em Vencimentos próximos Attachmentedjunho.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 20 vez(es)

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  edjunho em 21/1/2018, 20:03

    Esqueci um detalhe:

    Como eu tenho um campo (caixa de texto) nomeado "Vigencia" que são datas futuras adicionadas de forma manual.
    Para ter o resultado fixo em uma nova caixa de texto o qual será nomeada "Texto26" que terá a Cor, tive que fazer uma fórmula pegando o valor da caixa de texto "Vigencia" subtraindo da Data atual do sistema para gerar a diferença em dias. Deu certo o resultado foi gerado. Então...

    ...Fiz da seguinte forma:

    na fonte de controle da caixa de texto "Texto26" coloquei a fórmula: =DifData("d";Data();[Vigencia]).

    Nomeei o rótulo desta caixa de texto de Rótulo27.

    Então o código ficou assim:

    Private Sub Detalhe_Paint()

    If Me!Texto26.Value > 30 And Me!Texto26.Value < 60 Then
    Me!Rótulo27.BackColor = vbYellow
    Else
    If Me!Texto26.Value > 280 And Me!Texto26.Value < 300 Then
    Me!Rótulo27.BackColor = vbRed
    Else
    If Me!Texto26.Value < 15 Then

    Me!Rótulo27.Caption = "Vencimento próximo!"
    End If
    End If
    End If
    End Sub


    Agora não aparece as cores na caixa Texto26.

    Tentei seguir certinho sua sintaxe.
    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  edjunho em 21/1/2018, 20:19

    Envio o arquivo exemplo:
    Anexos
    [Resolvido]Cores em Vencimentos próximos Attachmentedjunho.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 10 vez(es)
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  Leandro em 22/1/2018, 15:16

    Mude a propriedade Estilo do fundo do rótulo para "Normal".

    avatar
    edjunho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 24/12/2011

    [Resolvido]Cores em Vencimentos próximos Empty Re: [Resolvido]Cores em Vencimentos próximos

    Mensagem  edjunho em 22/1/2018, 18:42

    Uhuuu Deu certo irmão. Obrigado pela ajuda.

      Data/hora atual: 31/5/2020, 23:16