Duvida em consulta - Juntar linhas

Tópico origem: https://www.maximoaccess.com/t27180-resolvidoconsulta-juntar-linhas
--------------------------------

Boa tarde,

tentei fazer o exemplo do colega mais não conseguir, alguém poderia me ajudar? segue abaixo o código e anexo o bd.

Código:

Option Compare Database

Public Function fncAgrupaDocumentos(strOS As String) As String
Dim rs As DAO.Recordset
Dim strSql$
Dim strLista$
'Seleciona os Registros
strSql = "SELECT * FROM ABASTECIMENTO WHERE FROTA =""" & StrFROTA & """;" '
Set rs = CurrentDb.OpenRecordset(strSql)
Do While Not rs.EOF
   strLista = strLista & " | " & rs!DATAAB & " lts " & rs!QTD_DIESEL
   rs.MoveNext
Loop
fncAgrupaDocumentos = Mid(strLista, 4) 'Remove o Espaço e a | inicial
rs.Close
Set rs = Nothing
End Function

Mas gostaria que ficasse assim:

FROTA    DETALHES (DATA E QUANTIDADE)
191        100 12/11/16 - 130 13/11/16 ........... ATÉ 30 DIAS
200        150 12/11/16 - 200 14/11/16 ...........

Olá Fanucche Carvalho, Bem-Vindo ao fórum.
O tópico foi dividido.

Quanto à imagem que pretendia postar e anexo não ficou nada.
Veja AQUI como colocar uma imagem.

Veja AQUI como adicionar arquivo.

Abraço e bons estudos com o MaximoAccess

Segue no anexo o banco de dado na primeira postagem.

No aguardo.