[Resolvido]Gerar etiquetas para o produto e os sub produtos que o compoem

Tentei adaptar um gerador de etiquetas para o meu caso mas não deu certo.

A situação é a seguinte
tenho uma formula de ração e os ingredientes que a compõem a quantidade de etiquetas geradas esta certa mas
ao gerar as etiquetas para cada ingrediente da formula repete o nome da ração.
Tentei varias mudanças no layout mas não consegui resolver.

Coloquei o exemplo com os dois geradores de etiqueta. original e o adaptado

Se alguém tiver uma outra solução eu agradeço.


Ou seja teria que mostrar o nome da caixa e o nomes dos produtos dentro da caixa.


Obrigado

Por mim mesmo.......

Bom dia

O amigo poderia dizer qual foi a solução.

Ola

Preciso rever o projeto e te disponibilizo.

Veja ai


https://www.dropbox.com/s/rh1w7pnukesnhbe/Etiqueta%20Formula%20e%20Produtos.accdb?dl=0



o codigo esta comentado, caso tenha duvida mande mensagem

Bom dia
vlw muito obrigado

Para nao utilizar a consulta acrescimo e deixar a execução mais rapida
substitua o codigo por este. e utilizar a caixa de listagem é opcional, pode vizualizar o relatorio diretamnte com as etiquetas criadas.

'para o sistema funcionar imprimir o numero de copias e sair com o nome da formula e os produtos que a compoem
'cada formula tem quer unica por isto a cada loop adiciono o numero ao ao nome
'salvando em uma tabela temporaria

'confere o campos preenchido
If IsNull(Me.cmbFormula) Or IsNull(Me.txtNumeroCopias) Or Me.txtNumeroCopias = 0 Then
MsgBox "O campo formula ou o numero de copias esta vaziu ou Zero", vbCritical, "Atenção"
Exit Sub
End If

If Me.ListaProdutos.ListCount = 0 Then

Set db = CurrentDb
Set rs = db.OpenRecordset("tmpFormulacao")
Set rst = db.OpenRecordset("tmpProdFormula")

For I = 1 To Me.txtNumeroCopias Step 0
rs.AddNew
rs("NomeFormula") = I & "-" & Me.cmbFormula ' adciono o numero do loop ao nome da formula
rs.Update
'''''''''''''''''''
'pego os produtos de acordo com a formula
Set rsp = db.OpenRecordset("SELECT * FROM tblProdFormula WHERE IDFormula = '" & Me.cmbFormula & "'")
Do While Not rsp.EOF 'Repetirei Até que não haja mais produtos da formula
rst.AddNew
rst!NomeForm = I & "-" & Me.cmbFormula
rst!Produt = rsp!IdProduto
rst!Q = rsp!QTD
rst.Update
rsp.MoveNext 'Movo para proximo produto...
Loop
''''''''''''''''''''''''''''''''''''''''''''''
I = I + 1 'aumenta o contador
Next I ' novo loop

'MsgBox "Criado com sucesso !", vbInformation, "Parabens"
Me.ListaProdutos.Requery

Else
'pergunta se que apagar as formulas criadas
If MsgBox("Lista de formulas já esta preenchida......" & _
Chr(13) & Chr(13) & _
"Serão excluidas para uma nova criação," & _
Chr(13) & Chr(13) & _
"Clicar novamente em CRIAR.", vbYesNo, "Aviso") = vbYes Then

Set db = CurrentDb()

db.Execute "DELETE * FROM tmpFormulacao"
Set db = Nothing
Me.ListaProdutos.Requery
Else
'se desistir cancela o evento
DoCmd.CancelEvent
End If
End If

Show muito obrigado mesmo