[Resolvido]No timer Form

Boa noite,

Estou criando uma aplicação fica atualizando no evento Timer() no formulário, verificando o status, quando o status for como bloqueado o quadro fica em vermelho e quando o status estiver como liberado ele fica verde, até ai tudo bem, mas o que acontece é que sempre que ocorre o evento Timer fica aparecendo uma lista no quadro sempre que atualiza. Eu gostaria que essa listra não ficasse aparecendo, em anexo segue o exemplo.

O intervalo precisa ser 1 mesmo? 1 milésimo de segundo? Por que não tenta colocar em 100 (um décimo de segundo) ou 1000 (um segundo)?

Bom dia,

Realmente parecia ser exagero meu coloquei 1000 esta de um bom tempo e deu certo. Obrigado

Valeu pelo retorno. Isso é importante para o forum.

Boa tarde,

Teria como por exemplo eu colocar uma função para acontecer com 1 segundo e outra por exemplor com 5 segundos?

Obrigado.

Uma ideia seria você ter um contador que faça isso de 5 em 5 segundos. Algo assim como uma variável que ao abrir o form começa no 1 e sempre que ela for um múltiplo de 5, ou de 5000, faça a verificação:

If Right(SuaVariável, 1) = 0 or Right(SuaVariável, 1) = 5 Then
...

Ok, muito obrigado pela idéia.


Abraços.

Boa noite,

Na verdade eu preciso mesmo que seja verificado a cada 2 segundos, durante essa verificação o formulário tem que carregar uma imagem que o caminho encontra-se no campo "LocalFoto", mas se a cada 2 segundos da verificação ele carregar a foto, ele vai ficar um pouco lento, eu precisava o seguinte, que ele carregue a foto somente quando o campo "LocalFoto" for modificado, ou seja, a cada 2 segundos o form faz a verificação e só carregue a foto se o campo for modificado.

Obrigado

Se a foto será carregada somente quando for alterada, então o 1 segundo que você já tem no Timer vai servir, não? Creio que não irá fazer diferença. Ou talvez nem precise usar o Timer para isso. Você pode usar o evento "Após atualizar" do campo que vai ser mudado para carregar a foto.

Precisa do Timer pelo seguinte. Estou desenvolvendo um sistema de votação de desfile. Terá um módulo Servidor e outro Cliente. O formulário do cliente fica verificando qual o status da votação, assim que o Administrador mudar o status da votação para Disponível, o formulário do cliente verifica e carrega os dados e a foto do candidato. O que eu quero na verdade é que enquanto o candidato estiver desfilando não precise ficar carregando a foto a cada segundo, quero que apenas fique verificando o status da votação, e não carregando a foto, pq assim que o administrador quiser fechar a opção de votos basta apenas mudar o status no servidor que a opção de votos fica bloqueada.


Obrigado.

Timer verificando uma tabela de um backend ou de outro aplicativo pode ficar meio lento, mesmo que as tabelas esteja vinculadas. Talvez fosse melhor, para esse caso, colocar uma tabela no próprio cliente para que o servidor grave os dados nessa tabela. Fica mais rápido o form do cliente verificar em uma tabela própria. De qualquer forma, podes colocar um função mais ou menos assim:

If Me.NomeCampo <> DLookup("CampoDaTabela", "NomeTabela", "Código=" & Me!txtCódigo) Then
Me.NomeCampo = DLookup("CampoDaTabela", "NomeTabela", "Código=" & Me!txtCódigo)
Me.ControleImagem.Picture = CurrentProject.Path & "barra invertida aqui" & Me.NomeCampo & ".jpg"
End If

Não sei como está a sua estrutura e nem como isso será feito. Aqui estou supondo que quando o admin mudar o nome, esse nome será gravado em uma tabela e o form cliente irá buscar esse nome no Timer.

Ok, mas mesmo assim e em relação a atualizar a foto somente se o campo LocalFoto for alterado.

Outra observação é que par ao cliente aparece apenas o formulário principal.

Em anexo segue um exemplo do que estou fazendo, junto com o arquivo tem um leia-me para que você possa entender um pouco de como funciona, desculpe o exemplo que estou lhe mandando ele esta sem formatação. Quando vc ver o exemplo talvez entenda melhor de que se trata minha dúvida.

Obrigado.

Olha, do jeito que está fica complicado porque não tem como alimentar os formulários, uma vez que as tabelas não estão presentes, mas ainda acho que a minha dica anterior lhe atenderia: uma tabela aonde o Timer verificaria o valor e, caso mudasse, ele mudaria o valor de um campo do form e a mudaria a foto.

Me desculpe esqueci de colocar as tabelas. Em relação a sua dica onde coloco o código:


If Me.NomeCampo <> DLookup("CampoDaTabela", "NomeTabela", "Código=" & Me!txtCódigo) Then
Me.NomeCampo = DLookup("CampoDaTabela", "NomeTabela", "Código=" & Me!txtCódigo)
Me.ControleImagem.Picture = CurrentProject.Path & "barra invertida aqui" & Me.NomeCampo & ".jpg"
End If


Obrigado.

No Timer. Seria em um campo em uma tabela. O timer verificaria esse campo e colocaria o valor do mesmo em um campo do form. Vamos supor que, quando o admin pressionar o botão, será armazenado um determinado nome na tabela. Se o campo do form estiver vazio, significa que os trabalhos estão começando, então esse campo do form pega esse valor. Se já tiver um valor na tabela, o campo do form muda para esse valor e muda a foto. Para detalhar melhor precisaria saber o caminho da foto. Se está na mesma pasta do aplicativo, se está em uma subpasta na pasta do aplicativo ou se está em outro caminho, outro computador da rede...

A foto ficará armazenada em uma pasta compartilhada no servidor, ai cada candidato tera uma foto cadastrada no servidor, vale lembrar que quando a foto aparecer para o cliente terá também que aparecer todos os dados do candidato. Dá para fazer assim

Use DLookup igual no exemplo que eu passei para mudar o campo do form para o que estiver na tabela:

Me.NomeCampo1DoForm = DLookup("Campo1DaTabela", "NomeTabela", "Código=" & Me!txtCódigo)
Me.NomeCampo2DoForm = DLookup("Campo2DaTabela", "NomeTabela", "Código=" & Me!txtCódigo)
Me.NomeCampo3DoForm = DLookup("Campo3DaTabela", "NomeTabela", "Código=" & Me!txtCódigo)

Substitua Campo1, Campo2, Campo3, etc pelos nomes dos campos

Só uma pergunta. Tem como no Timer ele verificar se o campo "LocalFoto" Foi modificado?

Obrigado.

Foi o que eu passei no código anterior para verificar isso:

If Me.LocalFoto <> DLookup("LocalFoto", "NomeTabela", "Código=" & Me!txtCódigo) Then
Me.LocalFoto = DLookup("LocalFoto", "NomeTabela", "Código=" & Me!txtCódigo)
Me.CampoDaImagem.Picture = "\\NomeDoServidor\PastasAtéChegarNasFotos" & Me.CampoComNomeDaFoto & ".jpg"
End If

Nomes em verde se referem aos campos do formulário e nomes em vermelhos se referem aos campos da tabela que contem os dados que passaram para os campos do formulário.
Será importante que as fotos sejam nomeadas pelos códigos ou nomes a serem apresentados no formulário. Se as fotos tem outros nomes, então elas terão que estar cadastradas na tabela tambem para que o sistema possa encontra-las.

Estou fechando minha participação no forum por hoje. Vou descansar um pouco. Estarei de volta assim que possível.

Bom Dia

Olha criquio muito obrigado o código que você me mandou funcionou perfeitamente, segue abaixo como ficou:

If Me.LocalFoto <> DLookup("link_foto", "cad_animais", "codigo_animal=" & Me!codigo_animal) Then
Me.LocalFoto = DLookup("link_foto", "cad_animais", "codigo_animal=" & Me!codigo_animal)
Me.foto.Picture = LocalFoto
End If


Muito obrigado, até a próxima.

Obrigado pelo retorno. Precisando cá estamos.