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


    [Resolvido]Repetir comando em intervalo de tempo

    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Repetir comando em intervalo de tempo Empty [Resolvido]Repetir comando em intervalo de tempo

    Mensagem  vailson 27/11/2017, 13:31

    Olá amigos,
    Como fazer para que um comando se repita a cada 30 minutos?
    Preciso que o sistema busque novas atualizações a cada meia hora.

    Código:
    If DLookup("versionNumber", "version") <> Me.versionNumber Then
    MsgBox "A versão do sistema está desatualizada." & vbCrLf & "Atualize para a versão mais recente.", vbOKOnly
    Shell "c:\windows\explorer.exe """ & "\\Cenop-1\sigespol\VERSÃO ATUALIZADA" & "", vbNormalFocus
    DoCmd.Quit
    End If

    Esse é o código que preciso executar no intervalo de tempo de 30 minutos.
    Obrigado!
    avatar
    vailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 160
    Registrado : 08/05/2015

    [Resolvido]Repetir comando em intervalo de tempo Empty Re: [Resolvido]Repetir comando em intervalo de tempo

    Mensagem  vailson 27/11/2017, 13:38

    Resolvido com o código No Timer e escolhendo o intervalo no Intervalo do Cronômetro.

    Código:
    Private Sub Form_Timer()
    If DLookup("versionNumber", "version") <> Me.versionNumber Then
    MsgBox "A versão do sistema está desatualizada." & vbCrLf & "Atualize para a versão mais recente.", vbOKOnly
    Shell "c:\windows\explorer.exe """ & "\\Cenop-1\sigespol\VERSÃO ATUALIZADA" & "", vbNormalFocus
    DoCmd.Quit
    End If
    End Sub

    Obrigado

      Data/hora atual: 8/11/2024, 06:58