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
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
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |