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

    Copiar dados subTabela para uma outra tabela

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 3/1/2022, 22:57

    Por favor, alguém me ajuda ?
    Tenho duas tabelas :
    - tblVenda
    - tblVendaDet

    A tblVenda possui os vários campos , mas os que preciso são:
    - idVenda (criado automaticamente)
    - Cliente
    - zap
    - Sexo

    A tblVendaDet também possui vários campos mas os que preciso são:
    - idVendaDet (criado automaticamente)
    - VendaId ( este campo se refere ao idVenda da tblVenda )
    - cód Barras

    Desta maneira segue um exemplo:

    TblVenda.
     345  Carlos Sampaio  (21)98934-2134  M  
    TblVenda Det    
            -. 7898600325252
            -  7898523855488
    Se tiver mais códigos barra na tblVendeDet vai pegando até não ter mais. Se o campo cód Barras for vazio passa para o seguinte. Ou seja teremos um loop

    Preciso criar uma nova tabela chamada FeedBack
    Onde os dados vai ficar conforme abaixo:

    345 Carlos Sampaio (21)98934-2134 M 7898600325252 7898523855488

    Se tiver que criar outro Com IdVenda 346 ficará na próxima linha desta tabela FeedBack

    Alguém poderia me fazer por favor um código para isso ?

    Obrigado !!
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  daniloreiis 4/1/2022, 11:22

    Bom dia meu amigo, poderia disponibilizar o projeto estou a disposição para ajudar.

    Att


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    fazerbem gosta desta mensagem

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 12:55

    Eu vou preparar e vou postar aqui ok. Agradeço desde já seu interesse em poder me ajudar.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  Alexandre Fim 4/1/2022, 13:31

    André bom dia,

    Esses dados virão de algum arquivo? Planilha? Arquivo .txt?
    Se for, disponibilize também os arquivos, para analisarmos o projeto e definir uma solução.

    É isso
    []'s
    FIM




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Copiar dados subTabela para uma outra tabela  Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 14:16

    nao tenho o zip somente winrar, e vi que pra enviar aqui tem que ser com zip

    Segue
    Anexos
    Copiar dados subTabela para uma outra tabela  Attachmentfeedback.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 3 vez(es)
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 14:34

    Importante ressaltar que quando for jogar para a tabela FeedBack, seráo os dados do cliente e o código de barras do idVenda selecionado .
    Neste exemplo aí eu criei 3 vendas e cada venda possui uma qnt de códigos de barras correspondentes.

    Ao transferir alguma na tabela FeedBack, será colado o cód cliente, nome, zap , sexo , cód barra1, cód barra 2 ....
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  Alexandre Fim 4/1/2022, 14:58

    André,

    Segue exemplo como você pediu.

    Criei um formulário para preencher a tabela. Ficou assim:
    Copiar dados subTabela para uma outra tabela  Atuali20

    No código do botão, é executada uma consulta atualização chamada "qryAtualizaVendas", e esta grava os dados na tabela, conforme imagem:
    Copiar dados subTabela para uma outra tabela  Atuali21


    OBS: Vale lembrar que a tabela FeedBack Não possui chave primária e, toda vez que vc clicar no botão do formulário, o Access irá atualizar a tabela, gerando dados duplicados.

    Sugestão: na estrutura da tabela FeedBack, pressionando a tecla CTRL, você pode definir uma chame primária composta, selecionando conforme abaixo:
    Copiar dados subTabela para uma outra tabela  Pk_com10

    Desta forma, o Access não permite dados repetidos, mas mesmo assim não é o suficiente pq o cliente pode comprar o mesmo produto em outra data.
    E necessário cirar outros campos e definí-los também na chave composta, mas ai fica a seu critério.


    É isso
    Espero ter ajudado.
    Segue versão.

    Abraços
    FIM
    Anexos
    Copiar dados subTabela para uma outra tabela  Attachmentfeedback_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 5 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Copiar dados subTabela para uma outra tabela  Setinf11
    Sistemas e Tecnologia Ltda

    fazerbem gosta desta mensagem

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 15:04

    Vou tentar já já e te dou o retorno bz, por hora muito obrigado
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 15:40

    sim a feedback tera a chave primaria

    desculpe dei uma informacao errada, faltou por na Tabela Feedback  mais outros 7 campos Barra7 a Barra 8 conforme imagem feed

    entao quando apertar o botao salvar na Feedback
    eu preciso que na primeira linha salve o ID da Venda por exemplo do Carlos ficando assim:

    Cod Cliente, Nome, Zap, Sexo, Barra1, Barra2, Barra 3, Barra4, Barra5, Barra6, Barra 7, Barra8
    Assim Sendo se se na TblVenda o Carlos Tiver na tblVendaDet Barra1, Barra2 e Barra3 preenchidos na FeedBack sera lancado:

    1 Carlos 99999-9999 M 7898600258584 7898526258741 7898589789524 e os demais Barra 4 a 8 ficarao vazios

    Ja a cliente Maria ficara assim apos ser selecionada :

    2 Maria 11111111 F 7898455111415 7898552211122 e os campos Barra 3 a Barra 8 ficando vazios

    Vale ressaltar que na tblVendaDet esta o idVenda que e a referencia do mesmo idVenda da tblVenda deu pra entender ?

    Para isso no Formulario favor colocar uma caixa de selecao para escolher qual IdVenda sera o escolhido.

    Desculpe minha falha

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  Alexandre Fim 4/1/2022, 15:48

    Não, André!!

    Você está totalmente equivocado!!
    Não se pode "horizontalizar" os dados !!!
    Se o cliente comprar 200 produtos diferentes você terá 200 colunas, 1 para cada código de barras?
    A tabela de detalhe das vendas é justamente para isso, mas de forma "verticalizada" (um registro embaixo do outro), como está.

    Qual o resultado que você pretende obter com esses dados? Especifique!

    []'s

    FIM




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Copiar dados subTabela para uma outra tabela  Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 16:00

    Se o cliente comprar 200 produtos diferentes você terá 200 colunas, 1 para cada código de barras?

    Eu sei disso , pois se ele comprar 200 itens esses ficarao um debaixo do outro na tblVendaDet.

    Meu cálculo foi feito apenas para 8 códigos de barras por isso que na tabela FeedBack coloquei 8 campos horizontais para os códigos de barras que estiverem na tblVendaDet.
    Eu preciso que a feedback tenha os 12 campos para eu enviar eles em lista para um firebase.

    Quando eu faço aqui uma venda num PDV que montei são lançados na tblVenda os dados do cliente, valor total da venda , data da compra , forma de pagamento , e na tabela TblVendaDet o complemento que seria então os dados do produto como : cód Barras, nome produto, sabor, qnt.
    Porém o que preciso que vá para a FeedBack são apenas os itens informados referentes da tblVenda e tblvendaDet.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  Alexandre Fim 4/1/2022, 19:02

    André,

    Acredito que seja isto que necessita.
    Copiar dados subTabela para uma outra tabela  Horizo10

    Limitei a quantidade de registros para 8, conforme vc mencionou, ou seja, o que tiver à mais o sistema vai ignorar.
    Copiar dados subTabela para uma outra tabela  Top810

    Exclua os registros da tabela FeedBack e em seguida abra o formulário "frmAtualiza", selecione o Cód. Venda e clique no botão "Atualizar"

    É isso.
    Boa sorte
    []'s
    FIM
    Anexos
    Copiar dados subTabela para uma outra tabela  Attachmentfeedback_v3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (89 Kb) Baixado 8 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Copiar dados subTabela para uma outra tabela  Setinf11
    Sistemas e Tecnologia Ltda

    fazerbem gosta desta mensagem

    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 19:08

    Obrigado Alexandre Fim, mas fiz de uma outra maneira e batendo aqui cabeça, consegui o resultado que eu queria.

    No meu PDV existe uma caixa de listagem e desde o inicio estava trabalhando nela para conseguir fazer o que eu desejava , mas sem sucesso.
    Depois de suas sugestoes e tentando fazer aqui minhas modificacoes, percebi que ia complicar, dai como meu projeto é imenso fui procurando codigos que ja existiam e tentando reagrupar.
    Dai cheguei ao resultado abaixo, fiz os testes e tudo foi gravado na Tabela FeedBack conforme eu queria.
    Obrigado mesmo pelo apoio. certo de que caso venha precisar novamente, poderei contar com a ajuda de todos vcs.!


    Private Sub FeedBack_Click()
       Dim Linha As Integer
       Linha = Me.listaItensVenda.ListIndex + 2
         
       Dim B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, Vazio As Date
       Dim result As Integer
       B1 = Me.listaItensVenda.Column(1, Linha)
       B2 = Me.listaItensVenda.Column(1, Linha + 1)
       B3 = Me.listaItensVenda.Column(1, Linha + 2)
       B4 = Me.listaItensVenda.Column(1, Linha + 3)
       B5 = Me.listaItensVenda.Column(1, Linha + 4)
       B6 = Me.listaItensVenda.Column(1, Linha + 5)
       B7 = Me.listaItensVenda.Column(1, Linha + 6)
       B8 = Me.listaItensVenda.Column(1, Linha + 7)
       B9 = Me.listaItensVenda.Column(1, Linha + Cool
       B10 = Me.listaItensVenda.Column(1, Linha + 9)
       B11 = Me.listaItensVenda.Column(1, Linha + 10)
       B12 = Me.listaItensVenda.Column(1, Linha + 11)
       
    Dim BancoDados As DAO.Database
    Dim rs As DAO.Recordset
    On Error GoTo Erro
       Set BancoDados = CurrentDb()
       Set rs = BancoDados.OpenRecordset("A3_FeedBack_Firebase", dbOpenDynaset)

           rs.AddNew
           rs("Cod") = Me.Txt_Cod
           rs("Nome") = Me.Txt_Clientes
           rs("zap") = Me.FoneCli
           rs("Sexo") = Me.Sexo
           rs("Barra1") = B1
           rs("Barra2") = B2
           rs("Barra3") = B3
           rs("Barra4") = B4
           rs("Barra5") = B5
           rs("Barra6") = B6
           rs("Barra7") = B7
           rs("Barra8") = B8
           rs("Barra9") = B9
           rs("Barra10") = B10
           rs("Barra11") = B11
           rs("Barra12") = B12
           
           rs.Update
           rs.MoveLast
           
    Erro:
       
    End Sub
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 19:13

    Alexandre vou baixar seu modelo e testar aqui pra ver e te retorno. Não tinha visto essa postagem .
    Mas de qualquer forma o jeito que fiz TB deu certo.
    Mais uma vez muito obrigado e vou olhar sim seu modelo e guardar mais esse ensinamento.
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 19:18

    Alexandre, baixei aqui, ficou muito bom mesmo. Muito Obrigado, vc acertou tudo agora, e gostei do limitador que vc pos (Cool podendo alterar pra mais ou menos.

    Meu muito Obrigado
    avatar
    fazerbem
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 439
    Registrado : 05/03/2017

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  fazerbem 4/1/2022, 19:25

    Fora deste topico, porem aproveitando, mas o amigo entende tb de Java?
    Fiz um app em Kodular e é bem complexo, e queria uma extensao para por no meu app para se comunicar com uma impessora termica, ao qual tenho tb o KIT SDK e um PDF da lingagem de Programacao modo TSLP , usada em impressoras termicas de etiquetas. Tenho porem ja uma extencao desta mesma impressora na linguagem ESC/POS, mas nao consegui ainda em TSLP.
    Como tenho o Kit SDK desta impressora e todos os codigos em TSLP, estou tb procurando alguem que possa me ajudar , Se estefor seu caso bz, senao meu muito obrigado de qualquer maneira.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar dados subTabela para uma outra tabela  Empty Re: Copiar dados subTabela para uma outra tabela

    Mensagem  Alexandre Fim 4/1/2022, 19:31

    Olá André,

    Não manjo de JAVA. Trabalho no universo Microsoft.

    Valeu


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Copiar dados subTabela para uma outra tabela  Setinf11
    Sistemas e Tecnologia Ltda

    fazerbem gosta desta mensagem


      Data/hora atual: 3/12/2022, 03:44