[Resolvido]Intervalo do crônometro (Alerta/Aviso)

Pessoal, Boas para todos...
Há muito não apareço por aqui, mas estou com uma dúvida e tenho certeza que os feras me conduzirão ao caminho correto. Segue:
Tenho um projeto de controle de acesso( Portaria de empresa) está quase tudo ok, mas pintou uma situação que não estou conseguindo fazer em parte. Tenho um Form com nome (FormMovimentos) e neste tem diversos campos para incluir registros e etc... no campo onde é inserido a matrícula do funcionário ou o código do crachá está com um evento após atualizar que puxa da tabela funcionários se o mesmo está com acesso livre ou bloqueado (Campo Bloqueado_Acesso). Caso o funcionário esteja com acesso livre, criei uma caixa de texto chamada (Aviso_Alerta) que mostra na tela este campo preenchido em verde e caso seja Bloqueado preenchido em vermelho. Agora queria que este alerta ficasse visível por apenas 4 segundos, voltasse novamente a ficar invisível e partir para o próximo registro (Este caso será) devido o código de barras. Até consigo, mas a visualização deste alerta fica com muito pouco tempo mesmo aumentando o tempo no intervalo do cronômetro. Os códigos que uso segue:
No form Atual =
Me.Aviso_Alerta.Visible=False

No evento após atualizar do campo (Id_Funcionario)
If me.Bloqueado_Acesso.value=-1 then ‘ Este campo está na tabela funcionários (Sim/Não)
Me.Aviso_Alerta.visible=True
End If

No Intervalo do crônometro
Me.Aviso_Alerta.Visible=false
Docmd.GoToRecord, , acNext

No Timer
4000

Funciona quase tudo no perfeito, mas o tempo que aparece a mensagem é muito rápido e o porteiro não tem como visualizar em tempo hábil o acesso do mesmo. Gostaria que se no meio destas funções poderia haver a possibilidade de assim que fosse visualizado o Aviso_Alerta, parasse na tela por 4 segundos a mensagem e após ficasse invisível.

Valeu mais uma vez...

O timer funciona apenas para isso ou tem algo mais associado à ele, como por exemplo a exibição da data e hora?

E será que não seria melhor colocar um clique nessa mensagem para fechá-la ao invés do timer? Vai que de repente seja altamente necessário o porteiro tirar a atenção da tela antes de poder ler o que está escrito lá.

Criquio, não tem mais nada associado a ele como perguntou anteriormente. No caso de clicar na mensagem acredito que não serio o ideal para mim, já que o intuito seria a intenção do uso do scanner para o código de barras do crachá e o cursor terá que sempre estar no campo código, ou seja no Form já está com um campo no valor padrão e todos os outros como parada de tabulação definida como não, pulando para o próximo registro somente para inserir o código.Caso seja a entrada de um fornecedor, visitante ou etc... aí habilito os campos como ja fiz e preencho um por um. já está valendo este método. O que está pegando é somente isso. Está funcionando... só o tempo que não está obedecendo... Tem algum código para parar o evento e voltar após alguns segundos?

Tente o seguinte: deixe o "Intervalo do cronômetro" em 0. No evento que faz a leitura, coloque:

Me.NomeDoLabel.Visible = True
TimerInterval = 4000

No evento "No timer", coloque:

Me.NomeDoLabel.Visible = False
TimerInterval = 0

Criquio, não deu certo ! O Aviso fica estático na tela (Parado)...

Aqui está um código para pausa

Num módulo coloque:

Código:


Public Function Pausa(Nsec As Variant)
On Error GoTo Err_Pausa

    Dim PausaTime As Variant, start As Variant

    PausaTime = Nsec
    start = Timer
    Do While Timer < start + PausaTime
    DoEvents
    Loop

Exit_Pausa:
    Exit Function

Err_Pausa:
    Dialog.Box err.Number & " - " & err.Description, vbCritical, "Pausa()"
    Resume Exit_Pausa

End Function


Para charmar:

Pausa(s) ' s = a segundos

abraços

É provável que tenha alguma coisa interferindo no resultado. Esse esquema costuma funcionar que é uma beleza.

Vou ver e retorno

Amigos, o Criquio estava certo. Não sei onde eu estava errando, mas implantei as dicas dele com muita calma e ficou na perfeição. Muito obrigado a todos.
Resolvido...

Só faltou o Resolvido. Dessa vez eu clico.

Grato pelo retorno.