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

    [Resolvido]Replicando Dados

    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 12/07/2014

    [Resolvido]Replicando Dados Empty [Resolvido]Replicando Dados

    Mensagem  Belobo Sex Jul 03, 2020 4:56 am

    Ola tenho uma tabela com dados de estoque
    Sao diversos produtos com suas qtdes
    gostaria de replicar os dados conforme a qtde de cada produto
    em anexo foto de uma planilha que possui o exemplo dos dados "antes" e "depois" que seria a maneira que desejo fazer via VBA
    Solicito que seja passado o VBA usando o nome de meus campos pois nao sou desenvolvedor ainda e estou estudando por aqui meus futuros conhecimentos
    Peco quem puder montar usando os campos expostos em anexo
    Resumindo se um produto tem 6 unidades fazer com que tenhamos 6 linhas
    exemplo
    Codigo Qtde
    10000 6

    Ficaria
    10000 1
    10000 1
    10000 1
    10000 1
    10000 1
    10000 1
    Anexos
    [Resolvido]Replicando Dados AttachmentLEO MAXIMO.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (119 Kb) Baixado 5 vez(es)
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Replicando Dados Empty Re: [Resolvido]Replicando Dados

    Mensagem  Finformática Sab Jul 04, 2020 7:14 pm

    Caro Amigo,

    Se ainda não resolveu sua dúvida, veja anexo. Criei duas tabelas: TbEstoque baseado nos campos e dados que você informou e TbEstoqueSeparado conforme sua solicitação (idêntica TbEstoque). Abra o formulário, clique no botão. Inicialmente irá apagar o conteúdo da tabela TbEstoqueSeparado e em seguida irá atualizar para modelo solicitado.


    Abraços
    Anexos
    [Resolvido]Replicando Dados AttachmentSeparaEstoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 7 vez(es)
    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 12/07/2014

    [Resolvido]Replicando Dados Empty Re: [Resolvido]Replicando Dados

    Mensagem  Belobo Sab Jul 04, 2020 9:16 pm

    Obrigado vou dar uma estudada e te respondo em breve
    Aproveito para te perguntar se e viável fazer isso via VBA direto atraves de módulo
    Assim eu não preciso abrir formulário etc !!
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 23/03/2010

    [Resolvido]Replicando Dados Empty Re: [Resolvido]Replicando Dados

    Mensagem  Finformática Sab Jul 04, 2020 9:41 pm

    Caro Belobo

    Todo código VBA (do módulo que você refere) tem que ser chamado de algum local para ser executado. Nesse nosso caso é chamado pelo botão do formulário.
    É um modo viável. O que você tem desse BD?

    Abraços. Boa sorte.


    Última edição por Finformática em Sab Jul 04, 2020 10:45 pm, editado 1 vez(es)
    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 12/07/2014

    [Resolvido]Replicando Dados Empty Re: [Resolvido]Replicando Dados

    Mensagem  Belobo Sab Jul 04, 2020 10:19 pm

    Beleza
    Como ainda não testei sua sugestão vou avaliar antes !!
    Te agradeço mesmo a ajuda
    Depois eu respondo aqui se deu tudo certo
    avatar
    Belobo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 91
    Registrado : 12/07/2014

    [Resolvido]Replicando Dados Empty Re: [Resolvido]Replicando Dados

    Mensagem  Belobo Ter Jul 21, 2020 5:45 am

    Obrigado
    deu certo
    assunto resolvido

      Data/hora atual: Dom Jun 20, 2021 1:04 am