[Resolvido]Mudar cor do formulário após término de tempo

Olá,
tenho um formulário com um cronômetro. gostaria que na hora que o cronômetro marcasse um tempo que estipulei num campo, o formulário mudasse de cor.
tipo assim, no campo coloquei 01:00. aí quando o cronômetro marcasse uma hora o formulário ficava vermelho.
Me ajudem, por favor!!

Tente colocando o cronômetro em 1000 e no evento "No timer" do formulário coloque:

If Time = Me.NomeDoCampo Then
Me.Section(0).BackColor = vbRed
End If

O campo precisa estar formatado como Data/Hora no formato hh:mm ou hh:mm:ss

Não deu certo

Presumo que(o) está a mais Criquio. Que achas?

If Time = Me.NomeDoCampo Then
Me.Section.BackColor = vbRed
End If

Eu fiz um teste aqui conforme mencionei e funcionou certinho

Certo, mas se colocar Me.Section.backcolor, no 2003 funcionou direitinho.

Aqui funcionou do jeito que passei em mdb no Access 2002 em WinXP e tambem em accdb no Access 2007 em Win 7

Talvez o amigo tenha digitado a hora mas não deu Enter para atualizar o campo.

Diz erro de sintaxe, meu cronometro já tem um código escrito no 'no timer'. Acho que é por isso que dá erro.

Possívelmente é isso. Fiz o teste em 2003 e funcionou e o Grande Criquio fez vários testes e tudo funcionou desde o 2000 ao 7.

Olá

Montei um exemplo, usando um cronometro regressivo e o formulário vai mudando de cor a medida que o tempo se esgota.

Entre com o valor de 2 minutos e aguarde o resultado final

Baixe aqui o exemplo

Bom estudo

Olá

Acrescente a variavel j no topo do código
Altere o código "no timer", do exemplo, e veja o formulário escurecendo aos poucos.

Código:


dim j as integer

Private Sub Form_Timer()
cro = cro - (1 / 86400)
j = j + 1
If TimeSerial(Hour(cro), Minute(cro), Second(cro)) < TimeSerial(0, 1, 30) Then
    Me.Section(0).BackColor = RGB(251, 250 - j, 250 - j)
    If TimeSerial(0, 0, 0) = TimeSerial(Hour(cro), Minute(cro), Second(cro)) Then Me.TimerInterval = 0
End If
Me!rotCronometro.Caption = cro
End Sub

Bom estudo

ótimo seu exemplo, avelino!
Era isso mesmo que queria!
Muito Obrigado à todos pela ajuda!
Resolvido