Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 8496
Registrado : 05/11/2009
Alexandre Neves 16/7/2015, 16:58
Boa tarde, e bem-vindo ao fórum
Suponho que tenha a tabela NotasFiscais com campos Fornecedor e NF
Crie a função
- Código:
Function ListaNF(strFornecedor As String) As String
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Rst As Dao.Recordset
Set Rst = CurrentDb.OpenRecordset("SELECT NF FROM NotasFiscais WHERE Fornecedor='" & strFornecedor & "' ORDER BY NF")
Do While Not Rst
ListaNF = ListaNF & "," & Rst(0)
Rst.MoveNext
Loop
ListaNF = Mid(ListaNF, 2)
Set Rst = Nothing
End Function
Coloque na consulta em SQL
SELECT DISTINCT Fornecedor, ListaNF(Fornecedor) FROM NotasFiscais ORDER BY Fornecedor
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo