[Resolvido]Etiquetas com grade de numeração

Boa noite!

Bd em Access 2010.

Encontrei aqui no forum um modelo de emissor de etiquetas e estou tentando adaptá-lo com alguns campos.

O objetivo é gerar etiquetas com os seguintes campos: Referência, Descrição/Cor e o Número (tamanho do produto).
A questão é que existe uma gama muito grande de referências com combinação com a Descrição/Cor e ainda com o Número (o Número ou numeração vai do 16 ao 45).

O bd possui uma tabela de cadastro de produtos, que estou usando apenas para cadastrar a Descrição/Cor, pois é inviável fazer o cadastro de todas as referências com suas cores e numeração.
Exemplo:
Ref          Descrição/Cor   Número
100         Azul                  16
100         Azul                  17
Assim por diante até o número 45...

Depois a mesma referência com outra cor...
Ref          Descrição/Cor   Número
100         Vermelho              16
100         Vermelho              17

depois outra referência com outra cor e toda a numeração...
Ref          Descrição/Cor   Número
200         Amarelo               16
200         Amarelo               17

e por ai vai...

Incluí no Formulário  F_Etiquetador os campos: txtRef e txtNumero com a intenção de que os seus conteúdos sejam inseridos no Subform FS_Etiquetador, para que esses dados também sejam impressos nas etiquetas, porém não consegui fazer esse procedimento funcionar.

Assim, peço orientações de como poderei resolver isso.

Desde já agradeço!

Vou anexar o bd original e o adaptado para possíveis comparações.

Veja que os campos Numero e Referencia devem estar na tabela ETIQUETAS e nao na tabela Produtos...

Mudei as duas consultas, para buscarem os campos Numero e Referencia da tabela Etiquetas...

Mudei o Relatorio, concatenando todos os Campos em um Unico... Assim Nao tera que ajustar a posição dos Campos.
https://www.dropbox.com/s/st7fhkt6p1o0a8z/Etiquetas.zip?dl=0

Olá a todos,
Chamon, lembrei que também poderia fazer as etiquetas de vários numeros de uma só vez.

Efetuei mais essa alteração no exemplo disponibilizado pelo colega Fábio Pães, não se esqueça de verificar essas alterações também.

Nota, postei em MDB (Access 2003), assim também fica disponivel para mais versões do Access.
Abraço

Bom dia!

FabioPaes e ahteixeira, ficaram excelentes seus ajustes! Parabéns aos dois!

ahteixeira, fiz apenas um pequeno ajuste no seu comando para gerar, pois ele só estava gerando as etiquetas quando o campo "txtNumeroAte" fosse maior que o campo "txtNumero"... Isso, para que caso fosse necessário gerar etiquetas de apenas um número.
Ficou assim o ajuste:

If Me.txtNumeroAte >= Me.txtNumero Then


Visando a possibilidade de inserir alguma etiqueta por engano, seria importante ter uma opção para excluir apenas aquela linha (no subformulário). Fiz o teste mais simples, que é clicar na linha e deletar. Porém o sistema não permite dizendo que os dados são somente para leitura.

Como contornar isso?

Olá, obrigado pelo retorno.
Já tinha detetado essa situação, mas postei ficheiro errado.
Irei atualizar o anexo da mensagem anteriror.
Abraço

Olá,
Tem uma consulta agrupar.
Se retirar o Agrupamento, vai mostrar todos os registos, mas permite alterar.
Alternativa
Criar um botão excluir em que pode invocar uma consulta eliminar (artigo e cor selecionada)
Abraço

Então, quanto ao botão para excluir por linha, fiz diversos testes mas não consegui fazer funcionar.

Importei o conteúdo desse bd integrar outro bd. Porém ao clicar no botão Gerar o sistema acusa o seguinte erro:

Erro em tempo de execução '3219': Operação inválida.

Ao depurar, é indicado a seguinte linha:

Set Tabela = DB.OpenRecordset("Etiquetas", dbOpenTable)

Abaixo o código completo:

Private Sub Gerar_Click()
'On Error Resume Next
Dim Cont, x As Integer

If Me.Produto.ListIndex = -1 Then Exit Sub
If IsNull(Me.Qnt) Then Exit Sub
'Cria referencia ao Corrente DB
Set DB = CurrentDb
'Abre a tabela

Set Tabela = DB.OpenRecordset("Etiquetas", dbOpenTable)

If Me.txtNumeroAte >= Me.txtNumero Then
For x = Me.txtNumero To Me.txtNumeroAte
Cont = 0

Do While Me.Qnt <> Cont
Cont = Cont + 1
Tabela.AddNew
Tabela![CódigoProduto] = Produto
Tabela![Contador] = 1
Tabela![Número] = x
Tabela![Referência] = txtRef
Tabela.Update
Loop
Next
End If
Tabela.Close
Set DB = Nothing
txtNumero.SetFocus
Me.Refresh

End Sub

Veja as referências que tem no Exemplo e marque as mesmas no seu Novo BD.

Abra esse codigo no VBA, clique em Referencias> La estarão marcadas algumas, que devera ser marcadas no seu novo projeto.

Quanto a Exclusão, no botao basta colocar esse comando:

Atenção, irá excluir todas as etiquetas lançadas na tabela Etiquetas!

Currentdb.Execute "DELETE * FROM Etiquetas"


Etiquetas é o nome da tabela.

FabioPaes,

Quanto ao botão excluir, o db já possuía o botão para Eliminar todas. A questão era excluir apenas a linha selecionada.

Realmente faltava uma referência no novo bd... agora estão iguais, mas o mesmo erro permanece.

Obs:
No novo bd, as tabelas "Etiquetas" e "Produtos" estão em front/back end.

Poderia ser por isso?

Remova as partes Desnecessarias e anexe aqui esse BD por favor...

O Comando do Botao Excluir individual (a linha selecionada) coloque isso:

CurrentDb.Execute "DELETE * FROM etiquetas WHERE [CódigoProduto] = '" & Me.FS_Etiquetador!Código & "' and [Número] = " & Me.FS_Etiquetador!Número & " and [Referência] = '" & Me.FS_Etiquetador!Referência & "'"
Me.Recalc

FabioPaes,

O comando para excluir funcionou perfeitamente. Parabéns!

Quanto ao erro citado anteriormente, consegui resolvê-lo.

Onde acusava o erro:

Set Tabela = DB.OpenRecordset("Etiquetas") , dbOpenTable)

Ficou assim:

Set Tabela = DB.OpenRecordset("Etiquetas")

Vou fazer mais alguns testes antes de encerrar esse tópico.

Mas desde já, agradeço demais a você e ao ahteixeira.

Abraço

Olá a todos,
Chamon, espero que tenha compreendido o que foi feito.
1º Não deixava apagar porque a origem do subformulario é uma consulta agrupar.
Parece tabela de dados, mas é agrupar, por essa razão não podia eliminar.

Solução 1:
Retirava o agrupamento aparecia, tal e qual como na tabela, todos os registos e já poderia eliminar.
Pouco pratico ou talvez o ideal.

Solução 2:
Eliminar na origem, tal como o colega Fábio demonstrou.
Da forma que estava a postar iria eliminar todos os registos, o que o colega fez foi colocar as condições usando clausula WHERE.
Fica a explicação que também poderá ser útil para outros membros.

Abraço a todos

ahteixeira,

compreendi sim o que foi feito.

Hoje foi mais um dia de grande aprendizado, graças a vocês.

Mais uma vez, muito obrigado e parabéns!

Abraço