[Resolvido]Verificar Valor Repetido e Retonar Coluna de Referência

Pessoal,

Estou tendo dificuldades em desenvolver uma consulta/função para varrer uma tabela e retornar os valores que se repetem na mesma.

Relacionei duas tabelas Tabela 1 (NFs) com Tabela 2 (NFs e Documento).

Acontece que existem mais de um Documento para a mesma NF, o que acarreta na repetição do registro da NF.

Exemplo:
TABELA 1
NF
1
2

TABELA 2
NF Documento
1 10
1 11
1 12
2 40

Gostaria de fazer uma consulta que me retornasse o seguinte:

CONSULTA
NF Documento
1 10, 11, 12
2 40

Alguém pode me ajudar?

Boa tarde, guto, e bem-vindo ao fórum
Na consulta
SELECT DISTINCT NF,ListaDoc(NF) as Documentos FROM Tabela1

crie função num módulo
Function ListaDoc(intNF As String) As String
'função criada por Alexandre Neves, do Fórum MaximoAccess
'em 2013-02-19 para guto_coimbra
'a função pode ser utilizada livremente, desde que mencionado este cabeçalho
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Documento FROM Tabela2 WHERE NF=" & intNF)
Do While Not Rst.EOF
ListaDoc = ", " & ListaDoc
Rst.MoveNext
Loop
Set Rst = Nothing
If Len(ListaDoc) > 0 Then ListaDoc = Mid(ListaDoc, 3)
End Function

Alexandre,

Obrigado pela resposta.

Acontece que a função não esta retornando o valor.

Na consulta está ficando assim.

CONSULTA
NF Documentos
1 , , ,
2 , ,
3

Obs.: A quantidade de "," corresponde a quantidade de ocorrências, ou seja para NF 1 existem 3 documentos relacionados. Mas o valor msm não esta retornando.

Veja se funciona
Function ListaDoc(intNF As String) As String
'função criada por Alexandre Neves, do Fórum MaximoAccess
'em 2013-02-19 para guto_coimbra
'a função pode ser utilizada livremente, desde que mencionado este cabeçalho
Dim Rst As DAO.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT Documento FROM Tabela2 WHERE NF=" & intNF)
Do While Not Rst.EOF
ListaDoc = ListaDoc & ", " & Rst(0)
Rst.MoveNext
Loop
Set Rst = Nothing
If Len(ListaDoc) > 0 Then ListaDoc = Mid(ListaDoc, 3)
End Function

Perfeito!!!

Vlw pela presteza...