[Resolvido]Editar vários registos na tabela através de itens de uma listbox

Olá amigos,
Estou começando a desenvolver um projeto, onde tenho vários itens lançados em uma Listbox,
e gostaria de que os itens que estão sendo apresentado na Listbox somassem ou subtraíssem os itens correspondentes
da tabela.

Exemplo:
Na Listbox esta a saída/entrada do estoque, e gostaria que alterassem na tabela estoque.

Poderiam me ajudar?

estou usando te codigo, mas não da certo:

Código:

On Error Resume Next
Dim sel As String 'variavel que vai receber o select para consultar os dados no sistema
Dim rst As Recordset 'variavel que vai nos permitir a usar os campos da tabela
Dim rsB As DAO.Recordset
For i = 1 To 10
sel = "SELECT * from TABELA1 WHERE CÓDIGO=" & Me.Código.Value & ""
Set rst = CurrentDb.OpenRecordset(sel)
rst.MoveFirst
rst.Edit
'===== DADOS DA TABELA =====
rst![Campo1] = Me.Campo1.Value
rst.Update 'atualiza a tabela
rst.MoveNext
    Next
rst.Close
rsB.Close
Set rsB = Nothing
Set rst = Nothing
    rs.Close
    db.Close


Boa noite.
Você quer calcular ou alterar todos item de uma vez?
Se caso entre nesse link https://www.maximoaccess.com/t39909-resolvidonao-esta-atualizando-todos-os-campos-com-o-mesmo-id-so-esta-atualizando-1-campo

Fernando,

Envie uma cópia do seu bd (somente partes envolvidas) para análise e solução do problema.

valeu

Segue o projeto
https://www.dropbox.com/s/p2ph4zw7ck2bvw9/Projeto.accdb?dl=0

Fernando bom dia,

O que vc quer é informar o valor no campo e atualizar TODOS os registros?
Ou atualizar apenas o registro selecionado?




No aguardo

Olá, este campo logo apos o botão, era para contar quantas vezes estava fazendo o loop do while, enfim não deu certo.

Será apenas para atualizar os campos inseridos com os códigos respectivos.

CAra? Seja específico.

Qual campo vc quer alterar?
Os dados devem ser alterados com o valor do campo ao lado do botão?

Todos os dados ou somente o registro selecionado?

Ola, vamos lá, vamos ver se consigo me expressar melhor.

No código que tentei montar, eu queria, através do primeiro campo (que é o código), ele encontrasse o mesmo na tabela 1, e substituísse com o conteúdo do segundo campo (onde esta o texto).

Para isto, ele iria percorrer todos os códigos lançados neste formulário, e alterasse apenas eles na tabela 1.

Obrigado.

Fernando,

Fiz um exemplo de atualização de dados (frmExemplo)

1 - Selecione os itens desejados da listbox e informe o valor a ser atualizadao:


2 - Apos clicar em Atualizar, o sistema atualiza so dados da tabela, conform abaixo:


OBS: O código está comentado. Verifique o que cada rotina executa.


É isso.

Boa sorte

[]'s

FIM

Muito obrigado Alexandre pela solução e por me ajudar.

Valeu Fernando!!!

O fórum agradece.

boa sorte