MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]timer, executar comandos em determinado tempo

    Compartilhe
    avatar
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    [Resolvido]timer, executar comandos em determinado tempo

    Mensagem  adriano_byte em 2/11/2018, 15:33

    Olá a todos!

    Encontrei esse tópico que resolveria minha vida, [Você precisa estar registrado e conectado para ver este link.],mas acontece que está em DROPBOX, se possível não postar nada em dropbox, postar em arquivos nó fórum se o adm permitir.

    Sobre minha dúvida.

    encontrei função de pause na internet, mas isso não me ajuda apesar de ser bom.
    encontrei exemplos qui no fórum de sobre timer, mas não tive êxito. Postarei trechos para alguem me ajudar por favor.


    Private Sub Comando0_Click()
    'ao clicar no botão o form atual fecharia e abriria outro form
    docmd.openform"form3"
    forms_form2.visible=false

    End Sub

    'quando eu chamar o form3, no evento load do form do mesmo, executaria um timer de 5 segundos, 'que depois disso fecharia este form3 e abriria o form1

    sub form3_load()
    me.timerInterval=5000 'automaticamente chama a função Form_Timer

    end sub

    'o problema é que esse código gera um loop que fica disparando de 5 em 5 segundos

    Sub Form_Timer()
      Static intShowForm As Integer 'pq dim não tem o mesmo efeito?
       If intShowForm Then

       
       Form_form3.Visible = False
       DoCmd.OpenForm "form1"


       End If

       intShowForm = Not intShowForm ' isso não etendi mesmo
       

    End Sub

    'não pode disparar de 5 em 5 segundos, tem que executar somente uma vez.
    por favor ajuda!


    Última edição por adriano_byte em 2/11/2018, 18:24, editado 1 vez(es)
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]timer, executar comandos em determinado tempo

    Mensagem  Marcelo David em 2/11/2018, 16:14

    Boa tarde, existe um limite de tamanho de arquivos que o Fórum suporta, por isso usamos outros meios para compartilhar e não poderíamos
    proibir esses meios, a não ser que uma grande quantidade de membros (todos nós) doassem para melhorar o espaço em disco

    O exemplo em questão, foi posto no dropbox e a conta excedeu o limite gratuito.

    Vou melhorar o exemplo em questão e subir pelo Fórum lá e aqui.


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    Re: [Resolvido]timer, executar comandos em determinado tempo

    Mensagem  adriano_byte em 2/11/2018, 17:23

    obrigado.
    no aguardo...
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]timer, executar comandos em determinado tempo

    Mensagem  Marcelo David em 2/11/2018, 18:11

    Aí está meu amigo.

    O código que inicia a contagem está no btnIniciar, mas poderá mudar
    para o evento mais apropriado.

    Caso não queira exibir a contagem, basta remover as linhas do evento No timer:


       
    Código:
        If it < 3 Then Me.rotTime.ForeColor = vbRed
        
        Me.rotTime.Caption = it & " segundos..."
    Anexos
    Cronometro_new_11-2018.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (638 Kb) Baixado 6 vez(es)


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)
    avatar
    adriano_byte
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 12/12/2013

    obáa!

    Mensagem  adriano_byte em 2/11/2018, 18:23

    Valew meu garoto, vida resolvida.
    avatar
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2471
    Registrado : 21/04/2011

    Re: [Resolvido]timer, executar comandos em determinado tempo

    Mensagem  Marcelo David em 2/11/2018, 18:26

    Ótimo que deu certo! O fórum agradece o retorno!!


    .................................................................................
    Marcelo David
    [Você precisa estar registrado e conectado para ver este link.] (em construção)

      Data/hora atual: 16/11/2018, 03:59