MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido] Tempo para Execução de comando

    Compartilhe

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

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

    [Resolvido] Tempo para Execução de comando

    Mensagem  RAprendiz em Seg 29 Jun 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Seg 29 Jun 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"



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    RAprendiz
    Intermediário
    Intermediário

    Respeito às Regras 75%

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

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

    Mensagem  RAprendiz em Seg 29 Jun 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  JPaulo em Ter 30 Jun 2015, 09:28

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 10 Dez 2016, 04:56