Concatenar e agrupar por datas estilo referencia cruzada (access 2013)

Olá Pessoal, preciso de uma ajuda de vocês. Preciso de uma forma de concatenar um registro de informações em uma consulta estilo referenia cruzada,





Em uma tabela eu tenho registros como:

Data              Setor  OS
01/01/2015   A  00001/2015
01/01/2015        A  00002/2015
01/01/2015        B  00001/2015
01/01/2015        B  00002/2015
02/01/2015        B  00003/2015
02/01/2015        C  00003/2015
02/01/2015        C  00002/2015
02/01/2015        D  00003/2015
03/01/2015        A  00003/2015
04/01/2015        B  00004/2015
04/01/2015        B  00005/2015
04/01/2015        B  00006/2015
05/01/2015        C  00004/2015
05/01/2015        D  00001/2015

E preciso consultar uma forma de enxergar esses registros da seguinte maneira

Concatenar as OS por setor dentro da data

Estou enviando em anexo um exemplo em excel para ter uma visão melhor do que eu preciso.

Mas é em access que eu preciso.

que puder me ajudar eu agradeço muito

Obrigado
Anexos

Veja no link se é mais ou menos isso

https://www.dropbox.com/s/mpsz81yxr9ew6ji/AjuntarRefCruzada.rar?dl=0

Olá.

Perfeito, muito obrigado pela sua ajuda.

Agradeço muito.

veja se assim resolve o que me pediu

https://www.dropbox.com/s/mpsz81yxr9ew6ji/AjuntarRefCruzada.rar?dl=0

Ficou perfeito.

Vou tentar adaptar para um dashboard, pois as colunas ficaram meio grande, onde o "Concluído" ficaria com um simbolo Verde e o "Processo" ficaria com um simbolo em vermelho.

Mas muito obrigado, vou tentar fazer essa adpatação.

Lembre-se do Resolvido

Bom dia!

Esse exemplo é quase perfeito para o que eu preciso o problema é que se colocar só o MES referente a data, a consulta referencia cruzada agrupa.

Alguem poderia me ensinar uma forma de não agrupar.


Obrigada

Janette

Adaptei a função para coluna e funcionou.

Function conc(dt As String, se)
On Error GoTo g1
Dim rs As DAO.Recordset, texto As String, i

Set rs = CurrentDb.OpenRecordset("SELECT [tbleventos].obs FROM tbleventos Where [tbleventos].mes like '" & dt & "' and [tbleventos].setor='" & se & "'")
i = 1
Do While Not rs.EOF
If i = 1 Then
texto = rs("obs") & "***"
Else
texto = texto & vbNewcolumn & rs("obs") & " "
End If
i = 2
rs.MoveNext
Loop

rs.Close
CurrentDb.Close
Set rs = Nothing
conc = texto
Exit Function
g1: MsgBox Err.Description

End Function

José, conseguiu fazer a adaptação? Se sim, não esqueça o resolvido do tópico.