[Resolvido]Fundo na cor vermelha para os campos com data de vencimento vencida.

Prezados, boa tarde!

Peguei um exemplo de um amigo aqui do fórum cujo assunto era "Alerta de Vencimento" e adaptei na minha aplicação, porém eu gostaria que os campos ficassem com fundo vermelho quando a data de vencimento estivesse vencida.

Vou postar um exemplo da minha  aplicação para que os amigos possam entender melhor o que estou querendo.

Desde já, muito obrigado a todos!

Gilbert

o codigo é esse

Código:

If Me.VigenciaFim_AtaContrato < Date Then
    Me.VigenciaFim_AtaContrato.BackColor = vbRed
    End If


agora fico acompanhando, pois não sei desmembrar  campos de formulário de itens.Eles são padrão, todos recebe a cor

Obrigado por tentar me ajudar Crysostomo, mas não compreendi, não sei onde colocar esse código para que ao abrir o formulário "frmAlertaVencimentoAta" e "frmAlertaVencimentoContrato" a linha fique toda vermelha onde a coluna dia estiver apontando como dias vencido.

Se puder usar meu exemplo e fazer os ajustes necessários para que eu possa compreender como usar o código que me passou, te agradeço muito.

Gilbert

Quando coloco esse código ao abrir do formulário "frmAlertaVencimentoAta", a coluna vencimento fica toda vermelha. O que eu queria era que ficasse a linha toda vermelha somente quando a coluna (dias) estivesse com x dias vencida.

Nobre, como te falei na mensagem 2ª, não mexo muito com formulário de item, então pelo código não lembro com ele funciona individual,
ele já altera todos, então coloquei na formatação condicional e deu certo.
Esse te ajuda.
O site não não deixa eu colocar foto aqui.
Até achei maneiro o seu porque tbm mexo na área da saúde.

Amigo, veja se é isso que precisa.

Crysostomo, seria quase isso, mas eu gostaria que a linha toda ficasse em fundo vermelho, mas o nosso amigo Ismael silva postou o "exemplo" exatamente como eu queria.

Agradeço demais a boa vontade de vocês em me ajudar.

Gostaria se possível que me orientassem como faço essa formatação condicional, para eu poder fazer no outro formulário da minha aplicação.

Grato,
Gilbert

Eu coloco a expressão [VigenciaFim_AtaContrato]<[Data_Atual] na condição 1 da formatação condicional mas não muda a cor no meu outro formulário, o que será que estou fazendo de errado?

Qual outro formulário se refere?

Segue a minha contribuição. Veja se atenderá as suas necessidades amigo.

Creio que alguma dessas é o que precisa.

Para a vigencia vencer é tem quer se < que date() ' se refere a data do computador
Não esqueça de fechar o tópico

https://i.servimg.com/u/f63/20/49/23/03/sem_tz13.png





Sucesso

Ismael, seu segundo exemplo ficou ok, acertou os dois formulários que eu estava querendo. Muito obrigado, mas será porque no que eu fiz não funcionou?

Eu coloquei no "frmAlertaVencimentoContrato" na formatação condicional exatamente essa expressão que você passou, porém no meu não fica em vermelho.

Segue o meu exemplo para você me apontar onde estou errando, se puder é claro.

Grato,
Gilbert

Olá Gilbert. Sei que não direcionou a mim a sua pergunta, porém baixei o teu exemplo e veriquei que você configurou a formatação condicional em apenas um dos formulários, é necessário fazê-lo nos dois que deseja.

Ei Adriano, obrigado pela atenção, eu acabei mandando o exemplo sem as alterações no outro formulário, corrigi o anexo e reenviei, se puder olhar pra mim e me dizer o que foi que eu fiz de errado, te agradeço.

Att
Gilbert

Amigos, consegui!!! Usei a dica do nosso amigo Crysostomo e deu certo. Substitui o
[Data_Atual] por date()

Tenho só mais uma dúvida para podermos encerrar esse tópico, que é a seguinte:

Quando eu chamo o formulário frmAlertaVencimentoContrato recebo o aviso "Existem contratos para iniciar o processo de renovação" então clico em ok e abre o formulário do jeito que eu queria, porém, quando eu chamo o formulário frmAlertaVencimentoAta não recebo o aviso "Existem Atas a vencer...", gostaria que aparecesse esse aviso também para quando eu clicar em ok, abrir igual no frmAlertaVencimentoContrato.

E quando eu chamar o formulário frmAlertaVencimento, receber os dois avisos antes.

Estou fazendo alguma coisa errada no código, mas não estou achando o erro.

Grato,
Gilbert

Gilbert, veja se seria dessa forma. Estou anexando pra vc.

Ei Adriano, obrigado pela atenção! Então, nesse exemplo que você me passou, quando tento abrir os formulários, dá a seguinte mensagem: (Função 'Date' indefinida na expressão) e não está abrindo os formulários.

Estranho meu amigo... Aqui pra mim está abrindo sem erros... Tenta baixar novamente. Ou... Existe algum formulário que você abre também e que não esteja presente no exemplo de banco que você colocou aqui pra nós?

Adriano, tentei abrir somente o que você mandou, não tem outros forms, somente aqueles 3 do exemplo.

Obs.: Na mensagem de número 10 também não consegui abrir, dá esse mesmo erro.


Segue o erro em anexo.

A questão da formatação condicional já consegui resolver, graças a contribuição de todos aqui. Agora só preciso resolver a mensagem 17 deste tópico.

Conto com a ajuda de vocês.

Grato,
Gilbert

No momento não estou em casa, mas vou lhe enviar o arquivo novamente. No meu computador não apresenta nenhum erro de função ao abrir os três formulários.

Os dois arquivos que vc enviou, tanto o da msg 10 quanto o da msg 18 apresentaram o mesmo erro.

De repente é a versão do access, eu estou utilizando o 2007 sp2.

Bom dia Gilbert! Só pude voltar hoje. Então vamos lá!

É esperado que você tenha separado os arquivos que foi alterando ao longo das nossas sugestões para caso precissasse voltar ao um estado anterior. Espero que assim tenha feito, rsrsrs. Pegue um cópia lá do início onde ainda não estava nem funcionando a formatação condicional como queria. Abra essa cópia e exclua os três formulários em questão.

Depois na função de obter dados externos, você vai escolher do microsoft access.

Abrirá uma janela para você fazer importações ou vincular tabelas. Excolha a opção de importar tabelas, consultas, formulários...

Baixe o arquivo que vou deixar nessa mensagem

Depois na janela de importação, indique o caminho do BD que baixou aqui

Importe os três formulários em questão

Em seguida, teste e veja se abre tudo corretamente.

Obs: Você não vai encontrar dentro do teu access as opções como digitei, tem um tempinho que não uso o Access 2007, é mais ou menos uma direção. Mas eu acredito que já tenha utilizado a função de importação de banco de dados.

Ei Adriano, bom dia!

Agora funcionou, os formulários abriram, porém, quando abro o frmAlertaVencimentoAta recebo o mesmo aviso de quando eu abro o frmAlertaVencimentoContrato.

O que eu gostaria era que o aviso do frmAlertaVencimentoAta fosse: Existem Atas a vencer...

Gostaria também que quando eu chamasse o formulário frmAlertaVencimento que aparecesse os dois avisos (Existe contratos para iniciar o processo de renovação / Existe atas a vencer...) antes de entrar os formulários frmAlertaVencimentoAta e frmAlertaVencimentoContrato.

De qualquer forma, já te agradeço muito, muito mesmo pela atenção quem tem me dado aqui no fórum.

Abç,
Gilbert

Maravilha! Agradeço o retorno.

Segue o anexo com a questão das mensagens. Abra o formulário e veja se seria dessa forma que vc queria a questão das mensagens.

Adriano, muito obrigado cara, seu exemplo me ajudou a identificar onde eu estava errando no código.

No teu exemplo, quando eu abro o frmAlertaVencimentoContrato está vindo os dois avisos, um para atas e outro para contratos, e no frmAlertaVencimentoAta também está vindo os dois avisos, já no frmAlertaVencimento ficou perfeito da forma como eu gostaria.

Sendo assim, a partir deste teu exemplo, comecei a testar o código de outras formas e funcionou por completo como eu gostaria.

Muito obrigado por compartilhar comigo seu conhecimento, que Deus continue abençoando tua vida, da tua família e a todos aqui do tópico que de alguma maneira contribuíram para a solução do meu problema.


Um grande abraço a todos!

Gilbert

Conhecimento é para ser compartilhado, se guardado, perde-se o valor.

Maravilha Gilbert!

Que o Senhor te abençoe também em todas as áreas da tua vida. Um abraço!

Suceso