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

    Compartilhe

    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 - 12:49

    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 9 vez(es)


    Última edição por lipe322 em Sex 28 Out - 7:52, editado 1 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2317
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 27 Out - 14:59

    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!

    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 - 7:51

    Deu Certo Muito Obrigado!! cheers

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2317
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Sex 28 Out - 10:26

    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: Qua 7 Dez - 14:14