MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Exibição de Mensagens na Tela

    avatar
    Robson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 29/10/2010

    [Resolvido]Exibição de Mensagens na Tela Empty Exibição de Mensagens na Tela

    Mensagem  Robson Qua 12 Jan 2011, 23:04

    Olá amigos do fórum, aqui estou de novo com uma dúvida recorrente mas com uma explicação melhor do que me atormenta. É o seguinte:
    Tenho uma tabela onde sempre coloco mensagens novas para serem lidas pelos clientes na fila de espera (mensagens de avisos importantes).
    Criei um formulário para exibir estas msgs de forma mais agradável para que os clientes que estão aguardando atendimento possam lê-las e ficarem informados dos avisos.
    Aí vem a minha dúvida, preciso que o formulário exiba cada mensagem por um período determinado (para dar tempo do cliente ler), e depois mude para a mensagem seguinte.
    Quando exibir a última mensagem, preciso que recomece a exibir deste a primeira msg.
    Sei que devo utilizar um loop ou o timer do formulário, porém, já quebrei a cabeça e não consegui implementar essa rotina...
    Alguém aí tem alguma rotina pronta ou alguma idéia de como posso fazer isso? Só pra resumir o que preciso: o formulário deve buscar na tabela a msg 1 e exibi-la por 30 segundos, depois pula para a msg 2, e exibe por trinta segundos, e assim por diante até a última msg, quando então volta à msg 1 e recomeça a exibição.
    Aproveito a oportunidade para felicitar a todos pela iniciativa e disposição do fórum e desejar a todos um 2011 cheio de sucesso.
    Robson cheers
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  criquio Qua 12 Jan 2011, 23:16

    Uma forma de se fazer isso seria, no evento Timer, você colocar uma variável para pegar o código máximo da mensagem e uma variável que vá acrescentando 1 ao código corrente:

    Contar = 0
    MaxCod As Long
    MaxCod = DMax("Código", "SuaTabela")

    If Contar < MaxCod Then
    Contar = Contar + 1
    Me.SuaTextBox = DLookup("Mensagem", "SuaTabela", "Código=" MaxCod)

    ElseIf Contar > MaxCod Then
    Contar = 1
    Me.SuaTextBox = DLookup("Mensagem", "SuaTabela", "Código=" MaxCod)

    End If


    No Cronômetro, coloque 30000 para 30 segundos.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  criquio Qua 12 Jan 2011, 23:19

    Para não correr o risco de saltar código, coloque a chave primária como Número e vá cadastrando as mensagens usando o DMax("Código", "SuaTabela") + 1


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  Dilson Qui 13 Jan 2011, 08:08

    Olá,

    O exemplo que estou te disponibilizando, já está aqui no MaximoAccess em sua seção de exemplos, como não consegui localizar o link, ai vai, se eu não tiver enganado isso foi um exemplo que o JPaulo preparou a um dos amigos aqui do fórum.

    Você escreve as mensagens na tabela e no formulário ela sempre mostrará as ultimas em três label (rótulos), veja se ajuda no que pretende.
    Anexos
    [Resolvido]Exibição de Mensagens na Tela AttachmentLabel_Mensagens_Correm.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 98 vez(es)
    avatar
    Robson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 29/10/2010

    [Resolvido]Exibição de Mensagens na Tela Empty Exibição de Mensagens na Tela

    Mensagem  Robson Qui 13 Jan 2011, 22:06

    Amigos, Criquio e Dilson,
    Desculpem a ignorância deste pobre mortal aprendiz de feiticeiro que vos fala, mas as orientações que me passaram tentei implementar e não consegui.
    Coloquei o código que o Criquio me passou mas só exibe a primeira mensagem e não sai disso, não está percorrendo os registros um a um como queria.
    Baixei o exemplo do Dilson mas para implementá-lo do jeito que preciso vou esbarrar no mesmo problema, fazer o programa percorrer a tabela e exibir uma a uma as mensagens.
    Estou postando o banco que estou tentando fazer isso para ver se vocês ou algum de nossos brilhantes amigos, podem me ajudar.
    Creio que para exibir legal vou precisar de um if aninhado, um para verificar o tempo transcorrido (tempo que a msg ficará exibida) e outro para determinar qual a msg exibida durante este intervalo. Só não consigo fazer isso funfar como diz o JP. O algorítmo seria mais ou menos assim:
    Se tempo < 30 segundos então
    se contador < nrototalregistro então
    exibe msg com código igual a contador
    incrementa contador
    fim deste bloco
    faz o tempo menor que 30 segundos
    fim da rotina
    Vejam o BD postado.
    Mais uma vez obrigado pela presteza nas respostas e coerência no raciocínio.
    Robson


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  criquio Qui 13 Jan 2011, 22:32

    Vou baixar o exemplo e dar uma olhada.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  criquio Qui 13 Jan 2011, 23:47

    Aí está amigo. Observe o evento "Ao carregar", o evento "Timer" e o Option Explicit logo no início do código vba.
    Coloquei o Intervalo em 1 segundo para visualizar mais rapidamente. Aliás, você tem um relógio que conta segundos no form, mas se o form será atualizado de 30 em 30 segundos, não precisa dos segundos no relógio, concorda?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Robson
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 29/10/2010

    [Resolvido]Exibição de Mensagens na Tela Empty Exibição de Mensagens na Tela

    Mensagem  Robson Sex 14 Jan 2011, 23:34

    Valeu, Críquio, era disso que eu falava....Bicho, agora parece tão simples que acredito que o excesso de raciocínio me atrapalhou.
    Como dizem os sábios "ás vezes quando levantamos demais os olhos para o horizonte não enxergamos a solução logo à nossa frente."
    Mais uma vez obrigado, a você e a este celeiro de gênios que se tornou este fórum.

    Robson.

    PS. Críquio, me tira mais uma curiosidade, tenho visto você divulgar Lorena e Rafaela pela rede, como moro aqui em Uberlândia, e acompanho a carreira das meninas, fiquei curioso: você mora aqui em Uberlândia?

    Robson
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  criquio Sáb 15 Jan 2011, 09:12

    Valeu pelo retorno amigão. O forum existe para isso mesmo, para o compartilhamento de conhecimento.

    OFF Topic: eu gosto muito de Lorena e Rafaela. Fui eu que criei o site para elas. Cuidei de todo o processo desde o registro do domínio até a hospedagem do site e a criação da loja virtual.
    Moro em Udia e de vez em quando vou à casa delas. Almoço ou janto por lá, bebo uma cervejinha porque ninguem é de ferro né?
    PS: Eu conheci a família por volta de Setembro desse ano que passou. No portal www.svcsoftearehouse.com tem um aplicativo que eu fiz sobre elas. Lá tem a história completa.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Exibição de Mensagens na Tela Empty Re: [Resolvido]Exibição de Mensagens na Tela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 22:20