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

    [Resolvido] Tempo para Execução de comando

    RAprendiz
    RAprendiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    [Resolvido] Tempo para Execução de comando Empty [Resolvido] Tempo para Execução de comando

    Mensagem  RAprendiz 29/6/2015, 04:29

    Galera, estou com uma dúvida.

    É possivel colocar um timer para que um comando só seja executado depois de certo tempo?

    gostaria de fazer algo como isso:

    Private Sub Login_Click()
    If IsNull(caixalogin) And IsNull(caixasenha) Then
       Me.Imagem45.Visible = False
       Me.Imagem47.Visible = False
       Me.Imagem48.Visible = True
       Me.Rótulo39.Visible = True
       Me.Rótulo32.Visible = False
       Me.caixalogin.SetFocus
       End If
    If Not IsNull(caixalogin) And Not IsNull(caixasenha) Then
           If verificaLogin(caixalogin, caixasenha) Then
               Me.Imagem45.Visible = False
               Me.Imagem47.Visible = True
               Me.Imagem48.Visible = False
               'O comando executaria até este ponto, e somente depois de certo tempo ele executaria o restante das ações.
               DoCmd.Close
               DoCmd.OpenForm "frmPrincipal"


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido] Tempo para Execução de comando Empty Re: [Resolvido] Tempo para Execução de comando

    Mensagem  JPaulo 29/6/2015, 10:36

    Cole este código num modulo e salve;

    Código:
    Public Function TimeDelay(TSegundos As Integer, ByVal TEventos As Boolean)
    'JPaulo
    'MaximoAccess 
        ' Coloque em segundos
        Dim IniciaContagem As Date
     
        If TSegundos < 1 Then
            Exit Function
        End If
        IniciaContagem = Now
        Do Until DateDiff("s", IniciaContagem, Now) > TSegundos
            If TEventos Then
                DoEvents
            End If
        Loop
    End Function


    If Not IsNull(caixalogin) And Not IsNull(caixasenha) Then
    If verificaLogin(caixalogin, caixasenha) Then
    Me.Imagem45.Visible = False
    Me.Imagem47.Visible = True
    Me.Imagem48.Visible = False

    TimeDelay 3, True '3 segundos de espera, pode aumentar se preferir

    DoCmd.Close
    DoCmd.OpenForm "frmPrincipal"



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Tempo para Execução de comando Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Tempo para Execução de comando Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Tempo para Execução de comando Folder_announce_new Instruções SQL como utilizar...
    RAprendiz
    RAprendiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 08/06/2014

    [Resolvido] Tempo para Execução de comando Empty Re: [Resolvido] Tempo para Execução de comando

    Mensagem  RAprendiz 29/6/2015, 20:09

    Obrigado JPaulo!
    Funcionou direitinho. Smile


    .................................................................................
    Versão: Access 2013

    Nunca tenha certeza de nada, pois a sabedoria começa com a dúvida!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido] Tempo para Execução de comando Empty Re: [Resolvido] Tempo para Execução de comando

    Mensagem  JPaulo 30/6/2015, 09:28

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Tempo para Execução de comando Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Tempo para Execução de comando Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Tempo para Execução de comando Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido] Tempo para Execução de comando Empty Re: [Resolvido] Tempo para Execução de comando

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:31