[Resolvido]Formatar caixa de texto com virgula se existir mais de um pedido.

Galera boa tarde.
Tenho um report como este exemplo abaixo:


[img] [/img]

Tem como?
Obrigado.

Forneça todos os detalhes sobre a origem dos dados e a SQL envolvida na origem do relatório.

Valeu Criquio.

Segue:

SELECT PEDIDO_COMPRAS.Número_Pedido_Gerado, PEDIDO_COMPRAS.Número_RE FROM PEDIDO_COMPRAS;

Críquio boa tarde.
Será que este tópico seria viável pro meu problema?

http://maximoaccess.forumeiros.com/t2779-resolvidoconcatenar-todos-os-registros-de-uma-consulta-em-uma-unica-variavel-vba#23209

Tentei adaptar, mas não consegui.
Veja se pode ajudar.
Obrigado.

Você pode tentar deixar esse campo desacoplado no relatório e no evento "Ao carregar" algo assim:

Código:

Dim rs As Recordset, Lista As String

Set rs = CurrentDb.OpenRecordset("SELECT NomeDoCampo FROM NomeDaTabela WHERE CampoDoCódigo=" & Me.CampoDoCódigo & "")
Lista = ""

Do While Not rs.EOF
    If Lista = "" Then
        Lista = Lista & rs!NomeDoCampo & ", "
    Else
        Lista = Lista & rs!NomeDoCampo
    End If
rs.MoveNext
Loop

Me.NomeDoCampo = Lista

rs.Close
Set rs = Nothing

Bom dia Críquio, infelizmente não deu certo.
Vou postar o exemplo aqui pra você dar uma olhada, se puder ajudar, agradeço antecipadamente.
Abraço

Críquio bom dia.
Continuo no aguardo daquela ajudinha.
Obrigado.

Boa noite.
Galera continuo no aguardo desta ajudinha.
Obrigado á todos.

Veja se atende esta programação.

No subformulário de pedidos eu crie um campo desvinculado, no rodape do Número_re e utilizei a seguinte programação na seção detalhe:

Código:

Option Compare Database
Dim k As Long

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Me.MoveLayout = False
If k <> Me!Número_RE Then
    Me!PedidoLista = Me!Número_Pedido_Gerado
    k = Me!Número_RE
Else
    Me!PedidoLista = Me!PedidoLista & ", " & Me!Número_Pedido_Gerado
End If
End Sub

Bom estudo!

Perfeito Avelino !!!
Mais uma vez me salvando, obrigado mesmo.
Abraços Amigão!!