[Resolvido]Replicando Linhas de Acordo com Campo Qtde

Caro amigo,

Este mesmo problema não já foi resolvido em outro poste anterior e dado como resolvido? Eu lembro dele... Está reabrindo novo poste para o mesmo problema? Se é novo problema, qual a diferença?

Abraços

Caro Belobo,

Considerando que todas as quantidades são múltiplos de 6, basta pegar o mesmo código feito na vez anterior e fazer 2 alterações:

Do While Not rs1.EOF

ContQtd = (rs1!qcom) / 6 -------------------------- Aqui divida por 6
For i = 1 To ContQtd
rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc]
rs2![qcom] = 6 'rs1![qcom] --------------------------- Aqui coloque 6 (quantidade do Kit)
rs2![Familia] = rs1![Familia]
rs2![Cor] = rs1![Cor]
rs2![NomeCor] = rs1![NomeCor]
rs2![Tamanho] = rs1![Tamanho]
rs2![RefFornecedor] = rs1![RefFornecedor]
rs2![RefFornecedorCor] = rs1![RefFornecedorCor]
rs2![Genero] = rs1![Genero]
rs2![VuCom] = rs1![VuCom]
rs2![PV] = rs1![PV]
rs2![Cean] = rs1![Cean]
rs2![Ncm] = rs1![Ncm]
rs2![Utrib] = rs1![Utrib]


rs2.Update
rs2.Requery
Next i
rs1.MoveNext
Loop

Feito isso, execute e vamos para o abraço.

Atenção: Isso conforme citei acima é considerando que as quantidades são múltiplos de 6. Aí pergunto, realmente são? Não tem nenhuma quantidade como 3, 13, 25, 7? Caso tenha, o que você faz? Faria a separação só se for múltiplo 6?
Dependendo dos critérios tem que ver se a quantidade é divisível 2 e 3 ou se é par e a soma dos seus algarismos divisível por 3, critério matemático dos múltiplos.

Fico no aguardo

Abraços