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]Botão Atualizar só atualiza o 1º Registro (VBA)

    Compartilhe
    avatar
    lipe322
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 27/05/2015

    [Resolvido]Botão Atualizar só atualiza o 1º Registro (VBA)

    Mensagem  lipe322 em Qui 27 Out 2016, 10:19 pm

    Boa Tarde Pessoal!!
    Estou com um projeto de orçamento que tem o seguinte objetivo:
    Colocar o Total do Preço de Venda no formulário Principal e esse Total ser distribuído no Preço de Venda Unitário de cada Produto do formulário continuo

    Tentei Criar um botão para Atualizar todos os registros, Mas ele só Atualiza o 1º Registro do Formulário Continuo
    Tenho Pouco conhecimento em VBA, o pouco que aprendi foi com o pessoal aqui do Fórum Very Happy

    segue anexo o BD para melhor Resolução do Problema.
    Anexos
    Orcamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.3 Mb) Baixado 25 vez(es)


    Última edição por lipe322 em Sex 28 Out 2016, 5:22 pm, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3268
    Registrado : 15/08/2013

    Re: [Resolvido]Botão Atualizar só atualiza o 1º Registro (VBA)

    Mensagem  FabioPaes em Sex 28 Out 2016, 12:29 am

    Amigo, nao entendi bem como é feito para chegar ao Valor XXXX para ser inserido no Campo...


    Porem partindo da Ideia que vc ja colocou la, segue o Codigo que percorre todos os os registros do Formulario e atualiza o Campo da tabela.


    Private Sub btAtualizaPreco_Click()
    On Error Resume Next


    Dim rs As Recordset
    Set rs = Me.Recordset
    rs.MoveFirst
    Do While Not rs.EOF
    With rs
    CurrentDb.Execute "UPDATE tabOrcamentosDet SET cpPrecoVenda = " & Me.txtPrecoUnitVenda & " WHERE CodOrcamento= '" & Forms![frmOrcamentos2]![txtIdOrcamento] & "' AND CodProduto = '" & Me.CodProduto & "'"
    rs.MoveNext
    Me.Recalc
    End With
    Loop
    Set rs = Nothing

    End Sub




    Se não der certo, ajuste o Calulo do preço, pois a parte de percorrer os registros do formulario é dessa forma!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    lipe322
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 27/05/2015

    Pessoal desse Fórum é Demais

    Mensagem  lipe322 em Sex 28 Out 2016, 5:21 pm

    Deu Certo Muito Obrigado!! cheers
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3268
    Registrado : 15/08/2013

    Re: [Resolvido]Botão Atualizar só atualiza o 1º Registro (VBA)

    Mensagem  FabioPaes em Sex 28 Out 2016, 7:56 pm

    Grato pelo retorno! Até a Próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sab 19 Ago 2017, 4:27 pm