MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

3 participantes

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

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

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

    Mensagem  FernandoRogerio 19/8/2021, 15:14

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1813
    Registrado : 23/01/2018

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

    Mensagem  crysostomo 19/8/2021, 22:57

    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1776
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 19/8/2021, 23:41

    Fernando,

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

    valeu
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

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

    Mensagem  FernandoRogerio 20/8/2021, 12:18

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

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1776
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 20/8/2021, 13:04

    Fernando bom dia,

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

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


    No aguardo
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

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

    Mensagem  FernandoRogerio 20/8/2021, 13:17

    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1776
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 20/8/2021, 13:36

    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?

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

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

    Mensagem  FernandoRogerio 20/8/2021, 13:55

    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.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1776
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 20/8/2021, 15:20

    Fernando,

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

    1 - Selecione os itens desejados da listbox e informe o valor a ser atualizadao:
    [Resolvido]Editar vários registos na tabela através de itens de uma listbox Upd110

    2 - Apos clicar em Atualizar, o sistema atualiza so dados da tabela, conform abaixo:
    [Resolvido]Editar vários registos na tabela através de itens de uma listbox Upd210

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


    É isso.

    Boa sorte

    []'s

    FIM
    Anexos
    [Resolvido]Editar vários registos na tabela através de itens de uma listbox AttachmentProjeto_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (70 Kb) Baixado 8 vez(es)
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

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

    Mensagem  FernandoRogerio 20/8/2021, 15:29

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

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1776
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 20/8/2021, 16:21

    Valeu Fernando!!!

    O fórum agradece.

    boa sorte

      Data/hora atual: 20/9/2021, 08:44