[Resolvido]Duvida como extrair prioridades de um campo para o Relatorio

Prezados amigos,

Eu necessito de sua ajuda, entre os relatorios que tenho que fazer, existe um que não estou conseguindo.

A minha consulta possui nome, Idt, etc,e um campo chamado prioridades, que possui varios nomes de CursoS separados por uma virgula (o numero maximo de cursos é 10, podendo ter menos, e os cursos não possuem tamanho iguais), está por ordem de prioridade.

Eu necessito que no relatorio apareça, além dos dados de identificação como nome Idt etc, apareça :
Prioridade 1: XXXXX
Prioridade 2: YYYYYYY
................

Poderiam me ajudar?

Obrigado

Boa tarde, iack, e bem-vindo ao fórum
Se tem vários valores num só campo, no relatório só será mostrado numa linha, mesmo que se crie uma função para os separar
Será isso? Caso não seja, disponibilize dados significativos para analisar melhor

Prezado Alexandre Neves

Obrigado pelo retorno.

O Campo possui os seguintes Dados:

XXXX,YYYYYYY,ZZZZ,TT,OOOOOOOO,QERQERR,YUYUTR,IOUIYU,REWQ,POLIKUJ

Já está por prioridade, o que o meu chefe pediu, é que em vez de aparecer o campo com uma linha total, filtrasse de alguma forma, e aparecesse:

PRIO1: XXXX
PRIO2: YYYYYYY
PRIO3: ZZZZ
PRIO4: TT
....................

É possivel?

Desde já agradeço

É possível. Cria-se nova tabela a partir dessa. Indique os campos e tipo de dados da tabela

Prezado,

Haveria a possibilidade de você explicar a este novato, com um pouco mais de detalhes.

Desde já agradeço

Indique nomes dos campos da tabela e tipos de dados (texto,número,data,etc.)

Os Campos da tabela são Nome,Identidade,telefone,email,Prioridades

Todos são Texto

O Campo que necessito "dividir" é o de prioridades, que possui os seguintes Dados:

XXXX,YYYYYYY,ZZZZ,TT,OOOOOOOO,QERQERR,YUYUTR,IOUIYU,REWQ,POLIKUJ

Já está por prioridade, a separação entre os dados do Campo é por virgula, o que o meu chefe pediu, é que em vez de aparecer o campo com uma linha total, filtrasse de alguma forma, e aparecesse:

PRIO1: XXXX
PRIO2: YYYYYYY
PRIO3: ZZZZ
PRIO4: TT
....................

Desde já agradeço

1-Crie uma cópia da tabela
2- execute o seguinte procedimento (adeqúe os nomes das tabelas)
Sub SeparaPrioridades()
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2012-12-12
'para iack
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, Arr
CurrentDb.Execute "DELETE * FROM CópiaDeTabela;"
Set Rst1 = CurrentDb.OpenRecordset("Tabela", 1)
Set Rst2 = CurrentDb.OpenRecordset("CópiaDeTabela")
Do While Not Rst1.EOF
Arr = Split(Rst1("Prioridades"), ",")
For I = 0 To UBound(Arr)
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2(2) = Rst1(2)
Rst2(3) = Rst1(3)
Rst2(2) = "Prioridade " & I + 1 & ": " & Arr(I)
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
MsgBox Date
End Sub
3-o relatório deve ter a nova tabela como origem dos registos

Prezado amigo,

Mais uma vez, obrigado pela ajuda,mas este novato está com a seguinte duvida.

Após colocar a instrução solicitada, aparece a msg de erro.

Instruçao SQL inválida. ´DELETE´, ´INSERT´,´PROCEDURE, ´SELECT´ ou ´UPDATE´esperado.

Poderia me ajudar?

Boa tarde, iack
Sub SeparaPrioridades()
'criada por Alexandre Neves www.esnips.com\web\alexandreneves
'em 2012-12-12
'para iack
'do fórum MaximoAccess
Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, Arr
CurrentDb.Execute "DELETE * FROM CópiaDeTabela;"
Set Rst1 = CurrentDb.OpenRecordset("Tabela", 1)
Set Rst2 = CurrentDb.OpenRecordset("CópiaDeTabela")
Do While Not Rst1.EOF
Arr = Split(Rst1("Prioridades"), ",")
For I = 0 To UBound(Arr)
Rst2.AddNew
Rst2(0) = Rst1(0)
Rst2(1) = Rst1(1)
Rst2(2) = Rst1(2)
Rst2(3) = Rst1(3)
Rst2(2) = "Prioridade " & I + 1 & ": " & Arr(I)
Rst2.Update
Next
Rst1.MoveNext
Loop
Set Rst1 = Nothing: Set Rst2 = Nothing
MsgBox Date
End Sub

Tabela e CópiaDeTabela tem de adaptar para os nomes adequados

Olá amigo Alexandre

Se os dados já estão presentes no relatório basta montar os campos no relatório e alimentá-los.

Acredito que seja possivel utilizar apenas um campo , com a formatação dos dados diferentes.

Olá amigo Avelino,
Parece que o iack tem campo de valores múltiplos e pretende desdobrar em valores simples.
O que o amigo indica pode ser solução, aguardaremos o que o iack nos diga
Abraços,

Vou montar um exemplo para saber se é isso o que ele deseja ou se irá precisar de fato montar a tabela.

Segue o exemplo.

veja os dois relatórios e veja se um deles atende melhor

Sucesso!

Grande Avelino Sampaio

Muito obrigado, Acredito que seja isso mesmo que eu necessito, eu irei testar na minha base de dados e retornarei com as duvidas que certamente este novato possuirá OK?


Grande Alexandre

Muito obrigado por toda a sua ajuda, você é 10.

Grandes amigos,

Foi isso mesmo que eu necessitava, consegui utilizar o relatorio.

Muito obrigado

Boa tarde,
Informe qual código utilizou, de forma a poder ajudar outros com a mesma dúvida