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

    Alterar valores em campos de formulário contínuo por meio de cálculo via vba

    Compartilhe

    Maxs
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 29/10/2015

    Alterar valores em campos de formulário contínuo por meio de cálculo via vba

    Mensagem  Maxs em Sex 05 Fev 2016, 22:24

    Boa noite a todos e todas.

    Tenho um botão em um formulário contínuo com o seguinte código:

    Dim Cont As Long
    Dim i As Integer
    Set Rs = Me.RecordsetClone
    Rs.MoveLast
    Cont = Rs.RecordCount
    Rs.MoveFirst
    For i = 1 To Cont
    Rs.Edit
    Rs("QProd") = Me.QEnt + Me.QProd
    Rs.Update
    Rs.MoveNext
    Next
    Rs.Close

    veja imagem:

    [url=[Você precisa estar registrado e conectado para ver esta imagem.]]

    Eu gostaria que em cada linha do formulário contínuo, esse código pudesse me dar  o resultado da soma no campo QProd conforme valores colocados nele próprio e no campo QEnt.
    O Código só funciona bem na primeira linha do formulário contínuo, e nas outras linhas, ele repete o valor dobrado da primeira.

      Data/hora atual: Sab 10 Dez 2016, 06:51