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


2 participantes

    Evento Timer

    avatar
    Dougtha91
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 19/05/2017

    Evento Timer Empty Evento Timer

    Mensagem  Dougtha91 Seg 27 Nov - 13:28

    Galera,
    Tenho um evento timer em um formulário que executa o código abaixo a cada 1 segundo, porém ao executar o código ele perde o foco do que estou escrevendo, por exemplo se estou em uma textbox digitando ao executar o timer o foco sai da digitação, oq devo fazer?

    Código:

    If Me.Imagem50.Visible Or Me.Imagem33.Visible Or Me.Imagem34.Visible Or Me.Imagem35.Visible Or Me.Imagem54.Visible Or Me.Imagem48.Visible Or Me.Imagem39.Visible Or Me.Imagem40.Visible Or Me.Imagem41.Visible Or Me.Imagem56.Visible Or Me.Imagem60.Visible Or Me.Imagem44.Visible Or Me.Imagem47.Visible Or Me.Imagem45.Visible = True Then
    'Me.Imagem50.Visible = True and Me.Imagem23.Visible = True and Me.Imagem34.Visible = True and Me.Imagem35.Visible = True and Me.Imagem54.Visible = True and Me.Imagem48.Visible = True and Me.Imagem39.Visible = True and Me.Imagem40.Visible = True and Me.Imagem41.Visible = True and Me.Imagem56.Visible = True and Me.Imagem60.Visible = True and Me.Imagem44.Visible = True and Me.Imagem47.Visible = True and Me.Imagem45.Visible = True true then
    Me.Imagem30.Visible = True
    Me.Imagem53.Visible = True
    Me.Imagem51.Visible = True
    Me.Imagem52.Visible = True
    Me.Imagem36.Visible = True
    Me.Imagem38.Visible = True
    Me.Imagem57.Visible = True
    Me.Imagem49.Visible = True
    Me.Imagem43.Visible = True
    Me.Imagem42.Visible = True
    Me.Imagem58.Visible = True
    Me.Imagem46.Visible = True
    Me.Imagem61.Visible = True
    Me.Imagem55.Visible = True

    Me.Imagem50.Visible = False
    Me.Imagem33.Visible = False
    Me.Imagem34.Visible = False
    Me.Imagem35.Visible = False
    Me.Imagem54.Visible = False
    Me.Imagem48.Visible = False
    Me.Imagem39.Visible = False
    Me.Imagem40.Visible = False
    Me.Imagem41.Visible = False
    Me.Imagem56.Visible = False
    Me.Imagem60.Visible = False
    Me.Imagem44.Visible = False
    Me.Imagem47.Visible = False
    Me.Imagem45.Visible = False
    DoCmd.RunMacro "OpenKickOut"

    ElseIf Me.Imagem30.Visible Or Me.Imagem53.Visible Or Me.Imagem51.Visible Or Me.Imagem52.Visible Or Me.Imagem36.Visible Or Me.Imagem38.Visible Or Me.Imagem57.Visible Or Me.Imagem49.Visible Or Me.Imagem43.Visible Or Me.Imagem56.Visible Or Me.Imagem42.Visible And Me.Imagem58.Visible Or Me.Imagem46.Visible Or Me.Imagem61.Visible = True Then
    Me.Imagem50.Visible = True
    Me.Imagem33.Visible = True
    Me.Imagem34.Visible = True
    Me.Imagem35.Visible = True
    Me.Imagem54.Visible = True
    Me.Imagem48.Visible = True
    Me.Imagem39.Visible = True
    Me.Imagem40.Visible = True
    Me.Imagem41.Visible = True
    Me.Imagem56.Visible = True
    Me.Imagem60.Visible = True
    Me.Imagem44.Visible = True
    Me.Imagem47.Visible = True
    Me.Imagem45.Visible = True

    Me.Imagem30.Visible = False
    Me.Imagem53.Visible = False
    Me.Imagem51.Visible = False
    Me.Imagem52.Visible = False
    Me.Imagem36.Visible = False
    Me.Imagem38.Visible = False
    Me.Imagem57.Visible = False
    Me.Imagem49.Visible = False
    Me.Imagem43.Visible = False
    Me.Imagem42.Visible = False
    Me.Imagem58.Visible = False
    Me.Imagem46.Visible = False
    Me.Imagem61.Visible = False
    Me.Imagem55.Visible = False
    DoCmd.RunMacro "OpenKickOut"

    End If
    End Sub
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 979
    Registrado : 09/11/2012

    Evento Timer Empty Re: Evento Timer

    Mensagem  =>Nois Seg 27 Nov - 15:08

    aumente o tempo para 10.000 (10 segundos)

    ou rode sua rotina em um formulário oculto


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: Qui 28 Mar - 5:33