[Resolvido]Repetir linhas em uma consulta baseado em determinada quantidade

Olá Pessoal,
Tenho registros que tem uma coluna de quantidade e gostaria de gerar uma consulta que baseado nessa coluna de quantidades  repetissem as linhas na consulta.

Ex. tabela
Registro     Data                                    Defeito          Description                       Inspetor    Quantidade
19097        25/08/2021 17:33:05          AP22-11        Missing Receiver             t.abreu            1
19097        25/08/2021 17:33:05          LC24             PROXIMITY                     t.abreu            1
19097        25/08/2021 17:33:05          AP12-08        Antenna Damaged           t.abreu           5

Nesse caso por exemplo eu precisaria repetir a última linha 5 vezes.
Esses dados serão usados para gerar um relatório que irá imprimir as informações em etiquetas e esse relatório deveria gerar 7 etiquetas mas eu só consegui fazer gerar 3, uma para cada linha.


Mais uma vez obrigado MaximoAccess

Boa tarde
Crie uma tabela espelho. Crie código para recordset ler os registos da primeira tabela e acrescentar tantos quantos os indicados no campo quantidade. A partir daí, tem o resultado na segunda tabela

Olá MadMax,

Fiz um pequeno exemplo para gerar as linhas, conforme solicitado.

Ao abrir o formulário, o sistema carrega os dados da tabela "tb_dados" na listbox de cima.



Ao clicar no botão "Gerar Dados", o sistema gera os registros na tabela "tb_dados_rel" e atualiza a listbox abaixo



OBS: As etiquetas ficam por sua conta...rsss

É isso.

Espero ter ajudado.

Boa sorte

[]'s

FIM

Grande Mestre Alexandre....
Você é o cara.

Muito obrigado pelo código criado, adaptei no meu BD e estou com problema de "erro 3061 Parâmetros insuficientes. Eram esperado 1".
Pesquisei sobre o erro e fui resolvendo os problemas pois quando rodei o código tinha 7 erros.
Até agora consegui resolver 6 o último estou tentando ainda, o difícil é que não dá para saber onde está o erro.
Mas estou tentando aqui e assim que conseguir resolver, ou não, eu posto aqui.

Att.

Olá Mad Max.

Mande parte do seu projeto que consta o erro, pra analisarmos.

[]'s

FIM

Bom dia MadMax,

Conseguiu resolver o problema do erro?
Se Sim, finalize o tópico, por favor.
Se Não, nos envie o bd para análise.

Grato

[]'s

FIM

Alexandre

Descobri que o erro está acontecendo por eu estar usando uma Consulta como origem dos dados e uma tabela para os registros da etiqueta.
No banco que vc postou vc utilizou tabela como origem dos dados e tabela para os registros da etiqueta.
Acredito ser só um detalhe no código, ou não é possível carregar os dados a partir de uma consulta?

Sobre postar o banco ele é muito grande.

Alexandre boa tarde.

Para ficar mais claro, eu reproduzi o erro que está acontecendo no banco que vc postou, eu não enviei meu banco porque ele é grande e aqui na empresa não consigo fazer upload de arquivos grandes.
As alterações que fiz foram:
1- coloquei mais registros;
2- Adicionei um campo no formulário com o nome de "Registro";
3- Criei uma Consulta que filtra o registro digitado no campo "Registro" do formulário;
4- Alterei o código para ler os valores da Consulta (tudo que era tb_dados alterei para Consulta_tb_dados).


att
MadMax

MadMax,

Vc criou uma consulta usando como filtro o campo novo no formulário, porém, não está filtranda lista e também tá dando erro ao gerar registro pq tá faltando uma condição (WHERE) que é o campo da tela.
Não precisava ter criado a consulta. O filtro poderia ser feito evento "Apos Atualizar" do campo novo, e ai ele filtraria a lista, mas no evento que gera os registros também tem que colocar o filtro.

Vou ajustar e te mando.

Aguarde.

[]'s

FIM

MadMax,

Segue versão com os ajustes. Verifique como é feito o filtro de dados no código.

É isso.

Segue nova versão.

[]'s

FIM

Ola Alexandre,

Deu certinho como eu queria, único problema era que no meu banco de dados real as informações vinham de várias tabelas, então eu fiz conforme abaixo.
1- Coloquei a consulta em modo design;
2- Cliquei na opção "Criar tabela";
3- Acrescentei no código conforme abaixo;

Código:


    DoCmd.SetWarnings False 'Desabilita os avisos
    DoCmd.OpenQuery "Etq_Consulta_Defeito1", acViewNormal, acReadOnly ' Faz com que a consulta gere a tabela


E assim pude executar o código conforme você fez.
Desculpe o textão, e para ficar bem explicado para consultas futuras.

Obrigado pelo suporte de sempre.
MadMax

Ok MadMax !!!
O fórum agrade.
Sucesso !!!