[Resolvido]Trabalhando Dados de Tabela Access

Amigos bom dia
Venho trabalhando uma serie de Replicações que inicialmente parecem iguais. O método pode ser igual , mas o resultado final não tem nada a ver com assuntos já abordados por mim anteriormente.
Tenho uma tabela base chamada " Prod "
Gostaria de fazer uma replicação de dados conforme na imagem colocada abaixo
A ideia é transforma uma linha de produto em 5 linhas deste mesmo produto só que adicionando o tamanho da peca
Veja a imagem para entender melhor e poderem me ajudar numa solução
So fazendo um resumo a linha inicial trás a qtde do produto total
Meu desejo é abrir a grade conforme exemplo na imagem
Aguardo um retorno de algum expert do fórum
no exemplo o total é de 7 pecas
a ideia é abrir por P com 1 peca ,  M com 2 pecas,  G com 2 pecas,  GG com 1 peca e  XGG com 1 peca.

A quantidade será sempre 7?

Nesse exemplo sim
Mas gostaria se for possível ter algo maleável para outros tipos de grades de produto

Por exemplo grade de calça vai do 34 até 54 daí se puder ter flexibilidade pra alterar será muito bom .
Se puder aqui agradeço

Caro Amigo,

Explique melhor a mensagem anterior.
Você está criando um botão para cada opção dessas?

Então crie mais um botão e cole o código abaixo:

MsgBox "Vamos apagar conteúdo da tabela TbEstoqueSeparado e atualizar..."

Application.DoCmd.SetWarnings False
Application.DoCmd.RunSQL "DELETE * FROM TbEstoqueSeparado"
Application.DoCmd.SetWarnings True

MsgBox "Conteúdo apagado com sucesso..."

MsgBox "Vamos atualizar tabela..."

Dim db As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Set db = CurrentDb()
Dim ContQtd As Integer
Dim i As Integer
Set rs1 = db.OpenRecordset("SELECT * FROM [TbEstoque]")
Set rs2 = db.OpenRecordset("SELECT * FROM [TbEstoqueSeparado]")

rs1.MoveFirst

Do While Not rs1.EOF


'----------------------- 1 P ----------------------------------
rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc] & " - P"
rs2![qcom] = 1
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

'----------------------- 1 GG ----------------------------------

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc] & " - GG"
rs2![qcom] = 1
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

'----------------------- 1 XGG ----------------------------------

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc] & " - XGG"
rs2![qcom] = 1
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

'----------------------- 2 G ----------------------------------

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc] & " - G"
rs2![qcom] = 2
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

'----------------------- 2 M ----------------------------------

rs2.AddNew
rs2![Grupo] = rs1![Grupo]
rs2![Desc] = rs1![Desc] & " - M"
rs2![qcom] = 2
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
rs1.MoveNext
Loop

rs1.Close
Set rs1 = Nothing
rs2.Close
Set rs2 = Nothing
db.Close
Set db = Nothing
MsgBox "Tabela atualizada com registros separados com sucesso..."


Veja se resolve esse problema atual.

Abraços

Maravilha
Pelo que olhei rapidamente
Vai resolver
Agradeço sua habitual atenção
Eu não sendo programador estou aprendendo muito contigo
Pelo que vi seguindo esse ensino posso alterar pra qualquer tipo de qtde e tamanhos
Mas vou testar e te responder em breve !!

Caro Amigo,

Se já concluído seu problema coloque o tópico como resolvido.

Abraços

Bom dia amigo
Na verdade vou encerrar o assunto hoje mesmo
Terminei os testes e ficou muito bom
Obrigado mesmo !!!!!