[Resolvido]Mudar cor do Rótulo

Galera no meu formulario Producao tenho os campos de turno com as referidas datas do mes. Preciso fazer com que no dia em que nao foi digitado informaçao referente a nenhum turno, que o rótulo do dia fique na cor vermelha, após o cara ter digitado algo, fique na cor verde. Não ideia da logica que poderei utilizar para fazer isso.
Segue o formulário.

Aguardo ajuda e desde ja agradeço.

Bom dia.....digitar oque e aonde ??

Olá Silvio!

Veja que ao clicar em qualquer rótulo eu habilito um text box! O Usuário vai digitar o valor referente a producao daquele turno, vai dar enter e o Rótulo vai receber o valor digitado no text box. Quero que o usuario entre no sistema e verifique que no dia de hoje 19 nao foi digitado nenhum valor, entao quero que o rótulo do dia fique na cor vermelha, indicando que precisa ser digitado algo, apos ser digitado fique verde. Só que os dias anteriores que ja tenham recebidos valores continuem na cor atual(amarelo).

Veja lá...Atualizei o arquivo! Obrigado desde já

Olá, boa tarde.

Tente algo assim:

Private Sub txtQuant_Prod1_AfterUpdate()
If Me.txtQuant_Prod1 <> "L" Then
Me.Rótulo14.BackColor = 35653
Else
Me.Rótulo14.BackColor = 858083
End If

É apenas uma sugestão. Agora na parte da tarde, não estarei na empresa, mas deixe a resposta se deu certo.

Grato.

Silvio

Olá Silvio, ele funciona mas somente para o rótulo do dia 1. Se eu atualizar o valor de algum turno que nao seja do dia 1 ele atualiza o rótulo do dia 1. Eu preciso que ele mude a cor do rotulo referente ao dia que eu atualizei.

Aguardo resposta. Abraaaaço

Bom dia Raphael.

Desculpe a demora, passei a tarde fora da empresa, resolvendo uns problemas.

Penso eu, que você terá que colocar a linha de comando, nos turnos 01/02/03 em cada rótulo. Desconheço eu, algum código que possa fazer isso em todos de uma única vez.

Abraços.

Silvio

Olá Silvio...tambem estive fora, mesmo assim Obrigado pelo Retorno.

Foi exatamente isso que pensei após voce me passar esse código, coloquei no comando "Após Atualizar" do turno 3 porque sempre irão começar a atualizar pelo 1, a agora que chegar no 3 o dia ficara na cor verde!

O problema é só pintar ele de vermelho. Porque terei que verificar se o dia está em atraso com a data que o cara está cadastrando, para entao pintar o rótulo de vermelho!

Obrigado desde já.

Boa tarde....

Veja a tabela de cores, clicando aqui.


Pode ser feito via VBA, no código que eu te passei.

Abraços.


Silvio

Ainda estou tentando...assim que conseguir resolver coloco o topico como resolvido e como fiz.

Obrigado pela Ajuda Silvio!

Bom dia...

Fico no aguardo então.