como concatenar cor e tamanho mesma linha

Tenho esta consulta acima.
Gostaria de concatenar as cores e tamanho
Assim se possível:

Concatenar assim:
Ordem----Tam--------Cor
1342----- 40,42-------Azul,Branco

Existe como fazer isso em access?

O Resultado que desejo ficaria assim,


Paulo

Você pode usar o DISTINCT na consulta para agrupar os registros pela ordem e criar uma função em um módulo para fazer a concatenação:

Código:

Public Function cnsConc(ord As Integer, tam As Integer, cor As String)

    Dim rs As Recordset

    Set rs = CurrentDb.OpenRecordset("SELECT tamanho, cor FROM nomeTabela WHERE ordem=" & ord)

    tam = Null
    cor = ""

    rs.MoveFirst

    Do While Not rs.EOF

        If IsNull(tam) Then
            tam = rs!tamanho
        Else
            tam = tam & "," & rs!tamanho
        End If

        If IsNull(cor) Or cor = "" Then
            cor = rs!cor
        Else
            cor = cor & "," & rs!cor
        End If

        rs.MoveNext

    Loop

End Function

E na consulta troca-se os campos do tamanho e da cor por campos calculados:

Tam: cnsConc([ordem], [tam]) Cor: cnsConc([ordem], [cor])

Não testei e faz um tempinho que não uso VBA pois atualmente estou mais focado em uns projetos para Internet usando PHP/ MySql mas é por aí. Veja se consegue adaptar.

//Achei este código na net.
Public Function fncAgrupaDocumentos(strPaciente As String) As String
Dim rs As DAO.Recordset
Dim strSql$
Dim strLista$
strSql = "SELECT * FROM tblPacientes WHERE paciente =" & strPaciente & ";"
Set rs = CurrentDb.OpenRecordset(strSql,
Do While Not rs.EOF
strLista = strLista & "," & rs!Cor
rs.MoveNext
Loop
fncAgrupaDocumentos = Mid(strLista, 2)
rs.Close
Set rs = Nothing
End Function

Public Function fncAgrupaDocumentos1(strPaciente As String) As String
Dim rs As DAO.Recordset
Dim strSql$
Dim strLista$
strSql = "SELECT * FROM tblPacientes WHERE paciente =" & strPaciente & ";"
Set rs = CurrentDb.OpenRecordset(strSql,
Do While Not rs.EOF
strLista = strLista & "," & rs!Tamanho
rs.MoveNext
Loop
fncAgrupaDocumentos1 = Mid(strLista, 2)
rs.Close
Set rs = Nothing
End Function

1- Fiz a consulta antes de agrupamento do codigo Paciente:
2 -Depois fiz outra Consulta abaixo:
SELECT qryListaPacientes.Paciente, fncAgrupaDocumentos([paciente]) AS Cor, fncAgrupaDocumentos1([paciente]) AS Tamanho
FROM qryListaPacientes;

Bom está meio dando volta..
risos..

Caro senhores,
Acho que o código funcionou em parte
agora ele está duplicando veja nas imagem abaixo:



Como Ficou:


Acho que tentei adptar algo que não era para mim. Risos.



O Arquivo
http://contalsoft.com.br/MiguelSerra.zip