[Resolvido]Consulta Para Separar Itens Agrupados Por Quantidade

Olá a todos.

Sou novato no ramo e desenvolvi uma aplicação para gerenciar a compra de itens. Ocorre que, ao cadastrar a compra, indicamos o nome do item, a quantidade, o preço e o preço total, da seguinte forma:

MATERIAL...........................|QUANT|PRECO......|PRECOTOTAL
No Break (Para Computador)...|2.......|R$ 460,00..|R$ 920,00
Impressora Laser (Comum)......|1.......|R$ 800,00..|R$ 800,00
Computador (Desktop-Básico).|1.......|R$ 2.000,00|R$ 2.000,00

Após a compra dos itens, é necessário numera-los com seu respectivo patrimônio e, para isso, preciso de uma consulta que me retorne (pelo exemplo) o seguinte resultado:

MATERIAL............................|QUANT|PRECO
No Break (Para Computador)...|1.......|R$ 460,00
No Break (Para Computador)...|1.......|R$ 460,00
Impressora Laser (Comum)......|1.......|R$ 800,00
Computador (Desktop-Básico).|1.......|R$ 2.000,00

Após isso, vou criar um campo para inserir o número de patrimônio de cada item.

É possível fazer isso?

Olá Wilian,
Você pode criar um campo Patrimônio na própria tabela dos itens.

Sim. Isso eu pretendo fazer. Mas o patrimônio de cada no-break será diferente e eles foram cadastrados agrupados pela quantidade. Eu preciso separar cada no-break para cadastrar os patrimônios individualmente em cada peça.

Bom, então vc teria que criar uma tabela para cadastrar de forma individual cada equipamento, já acrescentando o campo Patrimônio.
Vc diz que esses equipamentos já estão cadastrados e vc agora quer separá-los?
Uma linha tem: Equipamento X - QTD: 03 - Preço R$ zz,zz
Vc quer fazer dessa linha isto:
Equipamento X ... Pat: 0000
Equipamento X ... Pat: 0001
Equipamento X ... Pat: 0002
É isso?
Vc quer manipular os dados já existentes na tabela?

Exatamente.

A idéia é criar uma consulta ou algum outro mecanismo que faça essa separação. Não sei se isso é possível. Se for, está além de meus conhecimentos e gostaria de sabe como fazer.

Boa tarde,
Tenha a tabela de compras, com campo de controlo PassadoParaPatrimonio (Sim/Não)
Tenha tabela Patrimonio com os campos necessários
Tenha código que pegue os artigos ainda não passados e passe-os para o património, separando-os e numerando-os

Olá Willian,
Bom, como você já cadastrou os equipamentos, cada um em uma linha, com as quantidades, eu desconheço um jeito de transformar, como você quer, uma linha de registro da tebela em N linhas.
Creio que, infelizmente, você deva recadastrar os equipamentos, acrescentando o patrimônio de cada um, salvo melhor juízo dos colegas do fórum.

Obrigado a todos.

Acredito que a dica do Alexandre Neves seja a que dará menos trabalho e será a mais efetiva. A criação de uma tabela nova com os patrimônios e sua associação com as demais tabelas de meu trabalho deverá contemplar as minhas necessidades.

Att.

Boa tarde,
Depois, informe se deu certo e, se sim, marque o resolvido

Ok. Levará um tempo até preparar as tabelas e inserir os dados. Assim que estiver pronto informo aqui o resultado.

Olá Willian,
E então, deu certo? Resolveu o problema?
Se sim, não esqueça de clicar no [Resolvido] pra não deixar o tópico em aberto.
Valeu.

Um amigo me ajudou com meu problema utilizando esta função:

Public Function ConcatProp(PROPOSTA As String)

Dim db As DAO.Database
Set db = CurrentDb
Dim RS As DAO.Recordset
Set RS = db.OpenRecordset("SELECT PROPOSTA, UNIDADE FROM tb_Inclusão GROUP BY tb_Inclusão.PROPOSTA, tb_Inclusão.UNIDADE HAVING tb_Inclusão.PROPOSTA= " & Chr(34) & PROPOSTA & Chr(34))
RS.MoveLast
RS.MoveFirst
If RS.RecordCount = 0 Then Exit Function

Dim VarUnidades As String

VarUnidades = RS!UNIDADE
RS.MoveNext

Do Until RS.EOF
VarUnidades = VarUnidades & ", " & RS!UNIDADE
RS.MoveNext
Loop

ConcatProp = VarUnidades

VarUnidades = ""
Set RS = Nothing
Set db = Nothing

End Function

Resolvido