Copiar dados subTabela para uma outra tabela

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 !!

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

Att

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

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

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

Segue

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 ....

André,

Segue exemplo como você pediu.

Criei um formulário para preencher a tabela. Ficou assim:


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



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:


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

Vou tentar já já e te dou o retorno bz, por hora muito obrigado

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

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

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.

André,

Acredito que seja isto que necessita.


Limitei a quantidade de registros para 8, conforme vc mencionou, ou seja, o que tiver à mais o sistema vai ignorar.


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

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 +
   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

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.

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

Meu muito Obrigado

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.

Olá André,

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

Valeu