[Resolvido]concatenar e ordenar

Ola pessoal, creio que o primeiro exemplo estava na sala errada..esta em avançado...mas posto aki novamente

Creio estar melhor explicado...
"ORDEM DO CADASTRO........ ( FOI CADASTRADO ALEATORIAMENTE )

coditem..produto
3A.......AAA
2........AAA
2E.......AAA
1R.......BBB
10.......BBB
100T.....AAA
11R......AAA
A3.......BBB
A2.......AAA
B5.......AAA
B1.......DDD
A1.......DDD

RELATORIO 1
CODITEM...PRODUTO
1R.......BBB.................. ORDENADO PELO CODITEM
2........AAA
2E.......AAA
3A.......AAA
10.......BBB
11R......AAA
100T.....AAA
A1.......DDD
A2.......AAA
A3.......BBB
B1.......DDD
B5 DDD

RELATORIO 2
PRODUTO ...CODITEM
AAA........2, 2E, 3A, 11R, 100T, A2 ........(ORDENADO POR PRODUTO ALFABETICAMENTE E AINDA PELO CODITEM ALFABETICAMENTE TAMBEM)
BBB........1R, 10, A3
DDD........A1, B1, B5

MElhor visualizado.....

Isso é um dúvida ou uma explicação? Não entendi.

Opa, é uma duvida mesmo....serao dois relatorios..o primeiro até que consegui mas de uma forma muito trabalhosa..Fiz assim, criei a tabela com varios registros, depois criei uma consulta 'criar tabela" somente com valores passdos pelo parametro, em seguida fui na tabela gerada e criei um campo chamado ordem,,,e acredite, uma a uma coloquei os numero sequenciais nos itens que queria no relatorio...em seguida criei a consulta colocando a expressao ordem:val([coditem]) para ordenar os itesn que registrei na tabela gerada pelo campo "ordem"....daí que criei o relatorio para me mostrar os dados classificados em ordem pelo CODitem...o segundo relatorio utilizei o exemplo do JPaulo, mas nao foi como queria....poxa, deve ter algo mais simples.....pelo qeu ja vi que sao capazes isso o access deve fazer..isto é, conforme as imagens que passei..devem sair dakele jeito numa folha....sera que faz???.valewwwwww

Já tentou criar o relatório fazendo essa ordenação nos recursos que o Access oferece na hora de criar o relatório? Acredito que dê para ser feito por aí mesmo.

o problema que vi na tentativa de criar sem código, é que os dados aparecerm com letras e se nao definir um codigo com numeros ele nao ordena adequadamente, por isso tive de criar consulta atualizaçao e definir manualmente os numeros de ordemm..

Seria mais prático se der para postar uma cópia do bd seguindo as dicas abaixo ↓↓↓

nao consegui enviar..aparece como "arquivo adicionado não é valido"....


- CRIEI TABELA PRODUTOS
- CRIEI TABELA ITENS
- CRIEI CONSULTA TODOS PARA GERAR TABELA _TODOS
- FUI ATÉ A TABEA _TODOS E CRIEI UM CAMPO CHAMADO EMORDEM
- ENTREI NA TABELA _TODOS PARA DEFINIR ABSURDAMENTE MANUAL A SEQUENCIA EM ORDEM
- CRIEI NOVA CONSULTA COM O NOME DE TODOSORDENADO, ONDE CRIEI UMA EXPRESSAO.... ORDENADO: VAL([EMORDEM]), PARA ME MOSTRAR OS ITENS
ORDENADOOS
- ENFIM CRIEI O RELATORIO DA CONSULTA TODOSORDENADO
....

DUVIDAS?
1- COMO FAZER ISSO COM MENOS PASSOS? COM CÓDIGO MESMO PODE SER...
2- COMO CRIAR TAMBEM UM RELATORIO MOSTRANDO ORDENAÇÃO DOS PRODUTOS E COM SEUS ITESN NA MESMA LINHA.aSSIM:
. AAA ----- 2, 2E, 3A, 10, 11R, 100T, A2, B5
. BBB ----- 1R, A3
. DDD ----- A1, B1


cREIO QU FICOU MAIS CLARO

Envie para um moderador ou para ccsregistros@gmail.com que eu coloco aqui.

ok enviei para o email indicado

Pessoal aki esta o exemplo geral do problema da concatenção ordenada....ficou melhor visualizada....
http://dl.dropbox.com/u/5454503/edgolveia.rar

- CRIEI TABELA PRODUTOS
- CRIEI TABELA ITENS
- CRIEI CONSULTA TODOS PARA GERAR TABELA _TODOS
- FUI ATÉ A TABEA _TODOS E CRIEI UM CAMPO CHAMADO EMORDEM
- ENTREI NA TABELA _TODOS PARA DEFINIR ABSURDAMENTE MANUAL A SEQUENCIA EM ORDEM
- CRIEI NOVA CONSULTA COM O NOME DE TODOSORDENADO, ONDE CRIEI UMA EXPRESSAO.... ORDENADO: VAL([EMORDEM]), PARA ME MOSTRAR OS ITENS
ORDENADOOS
- ENFIM CRIEI O RELATORIO DA CONSULTA TODOSORDENADO
....

DUVIDAS QUE ESTOU NECESSITANDO AJUDA AGORA SERÁ

1- COMO FAZER ISSO COM MENOS PASSOS? COM CÓDIGO MESMO PODE SER...
2- COMO CRIAR TAMBEM UM RELATORIO MOSTRANDO ORDENAÇÃO DOS PRODUTOS E COM SEUS ITENS NA MESMA LINHA.aSSIM:
. AAA ----- 2, 2E, 3A, 10, 11R, 100T, A2, B5
. BBB ----- 1R, A3
. DDD ----- A1, B1
????


Creio que ficou melhor pra entender minha duvida...

Boa tarde, edgolveia

No relatório:
- elimine a fonte dos registos
- Coloque o código abaixo no acontecimento Ao Abrir
CurrentDb.Execute "DROP TABLE TdfProvisoria;" 'Esta linha não deve ser utilizada na primeira vez, pois a tabela TdfProvisoria ainda não existe
CurrentDb.Execute "SELECT Iten INTO TdfProvisoria FROM Itens WHERE Val(Iten)>0 ORDER BY Val(Iten),Iten;"
CurrentDb.Execute "INSERT INTO TdfProvisoria SELECT Iten FROM Itens WHERE Val(Iten)=0 ORDER BY Iten;"
RecordSource = "SELECT Iten FROM TdfProvisoria;"

Olá edgolveia,

Me parece que você não atentou para ler as regras do fórum. A seguir as conheça por favor acessando as: Regras do Fórum

Por gentileza, queira respeitar de imediato a regra 12 que trata o uso de letras maiúsculas nas mensagens.

Não me entenda mal, apenas é minha atribuição orientar.

Os melhores cumprimentos.

Ok Alexandre, vou ver aki...

Ok Dilson, nõa tinha visto mesmo... quando vi ja tinha digitado.....desculpe a todos do forum..........

Alexandre, ok, pelo teste que realzei aki, a primeira parte funcionou, que seria evitar akeles passos de "vai e vem " com os dados para gerar aordem dos itens. Um detalhe que nao vi foi de agrupar dentro da cada registro, isto é, dentro do grupo AAA ele mostrar os itens em sequencia classificada..e no mesmo relatório aparecer classificado os produtos com seus respectivos itens tambem ordenados...vou tentar aki com outros exemplos....creio que esta quase....


de uma olha da nesta imagem...explicando melhor...falta este detalhe pra fechar duvida ..obrigaod.......

https://2img.net/r/ihimg/photo/my-images/535/telak.png/

Ola pessoaç...tambem nao viram solução???..estou tentado aki, mas só consegui ordenar os itens com ponto e virgula..vi um exemplo na net masos dois juntos ainda naoconsegui...viram a imagem???..saindo dakela maneira esta dificil.....sera que tem de ser com linguagem de programação???? tipo VB mesmo ou C++???

Crie relatório com 2 campos: Produto, Itens
Ao abrir do relatório coloque:

Dim Rst As DAO.Recordset

'CurrentDb.Execute "DROP TABLE TdfProdutos;" 'Activar a linha após a primeira operação
CurrentDb.Execute "SELECT DISTINCT Produto,'' as Itens INTO TdfProdutos FROM Itens ORDER BY Produto;"
Set Rst = CurrentDb.OpenRecordset("SELECT Iten,Produto FROM Itens WHERE Val(Iten)>0 ORDER BY Val(Iten),Iten;")
Do While Not Rst.EOF
CurrentDb.Execute "UPDATE TdfProdutos SET Itens=Itens&'" & Rst(0) & ", ' WHERE Produto='" & Rst(1) & "';"
Rst.MoveNext
Loop

Set Rst = CurrentDb.OpenRecordset("SELECT Iten,Produto FROM Itens WHERE Val(Iten)=0 ORDER BY Iten;")
Do While Not Rst.EOF
CurrentDb.Execute "UPDATE TdfProdutos SET Itens=Itens&'" & Rst(0) & ", ' WHERE Produto='" & Rst(1) & "';"
Rst.MoveNext
Loop
CurrentDb.Execute "UPDATE TdfProdutos SET Itens=Mid(Itens,1,Len(Itens)-2) WHERE Right(Itens,2)=', ';"
RecordSource = "SELECT * FROM TdfProdutos;"
Set Rst = Nothing

Alexandre...Formidavel......isso mesmo....funcionou muitobem...só nao entendi porque que quando aciono novamente o relatório ele da erro de objeto ja existente,aí basta deletar a tabela que ele refaz o relatório....mas vou ver isso aki como poderei resolver...valew mesmo ..obrigado a todos que contribuíram tambem...Pode se ver que varios tentaram pelos acessos...VALEU!!!!!!show....

topico resolvido......o problemas mencionado acima de dar mensagem de erro resolvi criando um relatório automatico do tipo autotabular....agora abre normal...valewwww!!!