Relatório / Campos de diversos registro / Mesma linha / Sequência "De..Até.."

Peço, aos autorizados, se for o caso, que mudem o título do tópico, adequando-o ao teor da mensagem.
Obrigado

Olá Pessoal
Pesquizei aqui no forum e nada encontrei a respeito. Apesar que, posso ter feito buscas de forma não apropriada. Mas vamos lá.

Tenho um relatório neste formato:
NF 12.125 - Dia:15/05/12 - Vlr: R$200,00 ...cabeçalho
Recibo: 100 ....detalhes
Recibo: 102
Recibo: 103
Recibo: 105
Recibo: 106
Recibo: 108
Recibo: 109
Recibo: 110
Recibo: 112

Preciso agrupar campos, numa sequência ("De...Até..") de diversos registro numa mesma linha. O relatório ficaria assim:

NF 12.125 - Dia: 15/05/12 - Vlr: R$ 200,00 - Recibos: 100; 102 a 103; 105 a 106; 108 a 110; 112

Alguém sabe informar se é possível? Caso sim, podem me informar onde procuro?

Muito obrigado

Luiz Gustavo

Olá Luiz

Eu não te passei um exemplo disso ?

Olá Avelino.
Você me surpreendeu!!!
Isto é boa memória ou dedicação?

Passou-me um exemplo sim. E com base nele o problema foi resolvido.
No entanto, a questão agora é outra.

Com base no seu exemplo, consigo deixar assim:
> NF 12.125 - Dia: 15/05/12 - Vlr: R$ 200,00 - Recibos: 1, 2, 3, 5, 7, 8, 9, 10, 11, 12, 13, 15, 17, 18, 19, 20
Mas preciso que fique assim:
> NF 12.125 - Dia: 15/05/12 - Vlr: R$ 200,00 - Recibos: 1 a 3, 5, 7 a 13, 15, 17 a 20

No relatório cada [NF] só pode ocupar uma linha , e nesta linha deve conter todos os números de [recibos]. O problema é que não cabe.

Obrigado pela atenção

Luiz Gustavo

Alguém sabe se é possível?

Bom dia, Luíz

Disponibilize a bd que cria a linha extensa. Será mais fácil adaptar para a mais reduzida.

Olá
Alexandre.
Bom dia.
Grato pela atenção.

Anexo BD de exemplo.

Obrigado

Boa tarde, Luíz

Elimine o controlo do campo código
Passe os controlos, do detalhe para o cabeçalho do grupo
Altere o nome do controlo Zona para TxtZona
Cole no módulo o seguinte código:

Option Compare Database
Option Explicit
Dim Rst As DAO.Recordset, NrAnterior As Integer, NrInicio As Integer

Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
Me!Códigos = Null
Set Rst = CurrentDb.OpenRecordset("SELECT Zona,Código FROM tblTeste WHERE Zona=" & Me.TxtZona & " ORDER BY Código;")
NrAnterior = 0: NrInicio = 0
Do While Not Rst.EOF
If Rst.AbsolutePosition = 0 Then
NrInicio = Rst(1)
Else
If Rst(1) > NrAnterior + 1 Then
If NrInicio = NrAnterior Then
Me!Códigos = Me!Códigos & ", " & NrInicio
Else
Me!Códigos = Me!Códigos & ", " & NrInicio & " a " & NrAnterior
End If
NrInicio = Rst(1)
End If
End If
NrAnterior = Rst(1)
Rst.MoveNext
If Rst.EOF Then
Rst.MovePrevious
If NrInicio = NrAnterior Then
Me!Códigos = Me!Códigos & ", " & NrInicio
Else
Me!Códigos = Me!Códigos & ", " & NrInicio & " a " & NrAnterior
End If
Rst.MoveNext
End If
Loop

'retira 1ª vírgula
Me!Códigos = Mid(Me!Códigos, 2)
End Sub

É Inacreditável!!!
Não ia colocar este tópico no forum.

Imaginei que só ia perder tempo e dar trabalho aos companheiros.
Não sou programador. Minha experiência em Access é muita limitada.
Acabei me apaixonando pelo Access e estou desenvolvendo um BD para uso de minha filha.

Aí pensei: "Parece-me que no Access tudo é possível. Vou postar sim. Quem sabe um dos mestres aqui do forum não abraça o desafio!!"

E para minha surpresa, a solução veio muito rápido.
Parabéns Alexandre Neves.
Você é o Máximo.
Muito Obrigado

Obrigado Avelino.
Tudo começou com o BD de exemplo que me passou há algum tempo.

Este Forum é o Máximo.
Todos estão de parabéns.

Posto o BD de exemplo para ajudar aqueles, que como eu, são pouco experientes. No BD há 3 relatórios, que chamo de : 1- Tradicional; 2- Campo de diversos registros em Linha; 3-Campo de diversos registros em Linha Reduzida;

Esqueci de postar o BD.
Agora sim.

Estive a seguir o v/ topico e estou com o mesmo problema, ou melhor parecido.

Na apresentação dos resultados de vários registos na horizontal criei uma consulta cruzada e no relatório faz bem a apresentação

Mas o que precisava mesmo era de um exemplo dos dias do mes até 31 na horizontal e colocar em detalhes o dia assinalado com 'X' no dia existente.

Cpts,

jocares

Boa tarde, e bem-vindo ao fórum
Não percebi bem a sua dúvida. Explique melhor e disponibilize a bd para se ver

Alexandre,

Ca vai o exemplo.

No relatorio queria colocar tudo na mesma linha.

Obrigado pela ajuda.

Cpts,

Boa noite,
Bd em formato não reconhecido. Deve ser em 2003/2007

Desculpe é em 2010

cá vai no formato 2003

alguma sugestão!

Boa noite,
Tinha perdido o rasto ao tema.
Veja se é como está na consulta2

Boa tarde Sr. Alexandre!
Baixei esse BD e ele funcionou perfeitamente, mas estou tentando fazer algo semelhante, e ao adaptar não funcionou com os meus dados.
Eu não sei trabalhar com módulos, o sr. poderia me ajudar e apontar aonde é que estou errando?

Boa tarde
1 - O tema estava Resolvido. Ao acrescentar a sua dúvida, devia ter desmarcado o "Resolvido"
2 - Abri a bd e não vejo o que pretende. Explique o que quer e onde