Rótulo ( label ) piscando quando chega a data !!

Boa tarde a todos.

Quase final de projeto eis que surge o proprietário da empresa...e me diz...." tem como colocar isso aqui piscando, para me avisar ? "...bem o resto já sabem !!

Estava lendo o tópico: https://www.maximoaccess.com/t7894-resolvidomensagem-piscando?highlight=piscando..mas é quase isso.

O que estou padecendo aqui no paraíso:

Preciso que o RtlVerificar fique piscando quando chega uma determinada data que está em uma tabela ( TblAviso / AvisoData(formato: Data Abreviada) ).

Como, onde colocar tal rotina ?
Uso Dlookup..Dfirst ?

Já fiz algo aqui chamando o evento timer, e nos eventos: ao carregar, ao abrir mas na seguinte rotina ( que não me atende )
Me!RtlVerificar .Visible = Not Me.RtlVerificar .Visible


Se alguém puder me ajudar, fico imensamente agradecido...

Olha, eu consegui aqui mudar a cor a cada Segundo... Se servir...

O que eu fiz foi:

Verificar se a Data A=DataB
Se for, então ele Analisa os segundos da hora corrente... Se o Segundo atual for Par ele colocar a Cor Azul, se for Impar ele coloca a Cor Preta...

Fica piscando ate que bacana...

Olá Silvio,

O caminho é por aí, mo evento OnTimer.

Será num form e não num relatório, certo?

Só tem que verificar a condiao quando ocorre, exemplo

If x.Campo > date() them
if xCampo.visible = true them
x.Campo.visible = false
else
x.Campo.visible = true
endif
Else
x.Campo.visible = true
Endif


Ufa, não é fácil no celular.
Também pode optar em vez de mostrar/esconder por
Alternar a cor (fundo e primeiro plano)

Obtemos um bom efeito.

Fica a sugestão.
Abraço

Olá Fabio, ao mesmo tempo

Agradeço aos dois nobres colegas e amigos...mas vejamos alguns pontos.

1- quanto a piscar....é até simples fazer o mesmo.

2- qual melhor evento a ser usado.

3- qual melhor rotina a ser usada.

Vejam a imagem para uma melhor compreensão dos fatos:

Olá, na listbox, não vejo como.

Saudações ao Amigo!!!
Veja esse Exemplo Rápido que fiz

Agora se tratando de Caixa De Listagem e mais complicado, pois o Usuário terá que Clicar na linha... a Menos que você Verifique na Consulta Origem da ListBox se existe a data de HJ... Se Existir, então aciona a ideia que passei...

Fábio, com algumas mudanças feito rapidamente ficou assim...

Private Sub Form_Timer()
If Me.DataOculta.Value = Date Then
If Format(Now(), "ss") Mod 2 = 0 Then
Me.RtlVerificar.ForeColor = vbBlue
Else
Me.RtlVerificar.ForeColor = vbRed
End If
Else
Me.RtlVerificar.ForeColor = vbBlack
End If
Me!RtlVerificar.Visible = Not Me.RtlVerificar.Visible
End Sub

Mas como fazer para ver a data de hoje em uma Query ?
Qual a melhor sintaxe para isso...Dlookup ?

Em tempo já tenho essa query ( QueryAviso ) e a data está na coluna 2....
O problema está sendo no evento on timer incluir essa pesquisa.

Podes me ajudar ?

Me.DataOculta=NZ(Dlookup("Dataxxx","Tabela","Dataxxx=" & Date() &""),0)

Assim, se nao achar a data, o campo data Oculta será 0. se não, ele terá a data Atual...

Obs: O Dlookup deve buscar os dados da mesma tabela que Caixa de Listagem busca!

Fábio...sem jeito.

Fiz um exemplo, quase próximo do real para tu olhar melhor.

Há algo errado, pois mesmo não sendo a data ( mudei a data do desktop ) e assim mesmo piscou.

Se puder dar uma olhada, eu agradeço.

Olá Silvo, na alteração do Código vc desprezou partes importantes... Por isso é que nao funcionava.

Veja agora: dropbox.com/s/tolbi2ae9c5fw4t/Teste.zip?dl=0

Considerações:
Com o Dlookup buscando a data e aplicando a o valor na Variavel, direto no Evento No Atual do Formulário fica mais funcional, pois a mudança é instantânea, caso haja mudanças na tabela... Porém, eu julgo que não é o Correto a se fazer, pois estará fazendo a mesma consulta 1,2, ou 3 vezes por segundo... E isso gera uma carga muito grande se tiver muitos dados...

Por isso eu achei melhor declarar a variável X para o formulário, e fazer a verificação desse Valor no evento No Atual do Formulário. Também fica Funcional, porem não tão instantânea... Faça o Teste das duas formas e utilize a melhor.

Fábio, quanta as idas na tabela, acho que não tem como contornar isso por enquanto.

Eu fiz um pouco diferente de ti, mas baseando em tuas ideias.

Código:

Private Sub Form_Timer()
On Error Resume Next
Dim x As Date
Dim y As Date
Dim z As Date
z = Me.DataOculta + 10              ' data presente mais 10 dias
x = DMax("AvisoFim", "TblAviso")    ' data maior
y = DMin("AvisoInicio", "TblAviso") ' data menor

If Not IsNull(y) And Not IsNull(y) Then ' verifica se a tabela ( tblAviso ) não está com valores vazios
    If y = Me.DataOculta And x <= z Then
    Me.RtlVerificar.ForeColor = vbRed
    Me.RtlVerificar.BackColor = RGB(225, 240, 255)
    Me!RtlVerificar.Visible = Not Me.RtlVerificar.Visible
    Else
    Exit Sub
    End If
    End If

E no evento Ao Carregar do formulário

Código:

Private Sub Form_Load()
Call Form_Timer
Me.Caption = "Cadastro de Procedimentos"
Me.DataAtendimento.SetFocus
End Sub

Agora vou partir para testes de datas para ver como tudo isso vai se comportar. Agradeço o código, pois foi nele que eu me baseie para desenvolver o que está acima.

Silvio, olho vivo nesta linha;

Código:

If Not IsNull(y) And Not IsNull(y) Then

Boa tarde JPaulo....

Não me atinei ainda quanto ao olho vivo ....podes me esclarecer ?

Você está a checkar duas vezes se a mesma variavel se está Null.

Not IsNull(y) AND Not IsNull(y)

Será as duas variaveis;

Not IsNull(x) AND Not IsNull(y)

eitaaaaaaaaaaaaaa........"Est factus est ".
O olho aqui está morto....kkkkkkk

Valeu !!

Podia ser um problema se você já tivesse todo o código montado e a funfar no cliente.

Tranquilo Silvio!!!

So Reforço a questão dessas duas linhas:
x = DMax("AvisoFim", "TblAviso") ' data maior
y = DMin("AvisoInicio", "TblAviso") ' data menor

Lembre-se, elas estarão sendo executadas, no seu exemplo, 2x por segundos. Ou seja: Cada linha percorre toda a tabela para buscar seu valor duas vezes por segundo! Faça um teste com muitos registros para ver como vai ficar!

Grato a todos!

Bom dia a todos...

Fábio, o numero de inputs nessa referida tabela, será de no máximo 5.
Acredito eu, que não haverá muito a perda de desempenho.
Estou pensando cá, em mudar para uma consulta que já tenho construído aqui.

Abraços a todos.

Não vou dar por encerrado o tópico ainda, para ver todas as possibilidades de como fazer essa label piscar e assim compartilharmos mais e mais ideias.