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 x atualização

    Compartilhe

    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 13/03/2011

    [Resolvido]Timer x atualização

    Mensagem  msilveir em 1/10/2018, 21:01

    ola Pessoal

    tem como criar temporizador para disparar uma atualização
    exemplo um botao eu clico para executar a atualização

    mas eu gostaria de de ter um relogio com a hora exemplo 16:25:45 esse fica rodando e outro fica a hora de disparar o comando
    tipo as 16:45:00 ira disparar a rotina de atualização

    seria mais ou menos isso



    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 13/03/2011

    Re: [Resolvido]Timer x atualização

    Mensagem  msilveir em 1/10/2018, 21:11

    ola tenho esse codigo no botao

    Private Sub BtnTodos_Click()
    DoCmd.SetWarnings False

    MsgBox "Preços de todos Produtos Serão Alterados conforme a Porcentagem Escolhida !!!", vbCritical, "Atenção"

    DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda];"

    DoCmd.RunSQL "UPDATE tbl_cadProd set tbl_CadProd.DtAlteracao = forms!frm_ListaProdutos!txtdata ;"

    DoCmd.RunSQL "UPDATE tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime ;"


    MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

    Me.ListaProdutos.Requery

    Me.txtPreco = ""

    Me.txtPreco.SetFocus

    ListaProdutos.BackColor = RGB(255, 255, 255)


    DoCmd.SetWarnings True

    esse codigo que quero executar depois de um certo tempo automatico

    msilveir
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 13/03/2011

    Re: [Resolvido]Timer x atualização

    Mensagem  msilveir em 8/10/2018, 15:37

    consegui com a dica de um colega
    obrigado a todos



    Me.txtData = Date
    Me.txtTime = Time()


    Static booExecutou As Boolean

       'atualizando a caixa com as horas
       Me!txtTimer1 = Time()
       
       If Me!txtTimer1 >= Me!txtTimer2 And booExecutou = False Then
           
         DoCmd.SetWarnings False

    MsgBox "Preços de todos Produtos Serão Alterados conforme a Porcentagem Escolhida !!!", vbCritical, "Atenção"

    DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda];"

    DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.DtAlteracao = forms!frm_ListaProdutos!txtdata ;"

    DoCmd.RunSQL "UPDATE  tbl_cadProd set tbl_CadProd.HoraAlt = forms!frm_ListaProdutos!txttime ;"


    MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

    Me.ListaProdutos.Requery

    Me.txtPreco = ""

    Me.txtPreco.SetFocus

    ListaProdutos.BackColor = RGB(255, 255, 255)



    DoCmd.SetWarnings True
           
           
           'MsgBox "olá"
           booExecutou = True
           Me.txtTimer2 = ""

      Data/hora atual: 18/1/2019, 00:05