MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Timer x atualização Empty [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


    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Timer x atualização Empty 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
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Timer x atualização Empty 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: 28/9/2020, 11:57