[Resolvido]Linha de dados em consulta

Boa noite. Tenho uma consulta de atas e gostaria de criar um relatório a partir dela sendo que no texto concatenado entraria uma lista de nomes que fosse exibida em uma única linha separada por vírgulas. Um exemplo básico seria:

Cód. Nome
1 Maria Laura
2 Andrea Pereira
3 João Marques

O resultado seria: Maria Laura, Andrea Pereira, João Marques


Pesquisei bastante e só encontrei esse código abaixo que está dando erro de sintaxe (na linha realçada em vermelho) e não encontro o erro.

Dim DB As Database, RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Cst_AtasDeAssembleias" dbOpenTable)
RS.MoveFirst
Do While Not RS.EOF

With RS
If IsNull(Me.txNome) Or Me.txNome = "" Then
Me.txNome = RS("cond_presentes")
Else
Me.txNome = Me.txNome & "," & RS("cond_presentes")
End If
.MoveNext
End With
Loop

Set DB = Nothing
Set RS = Nothing
RS.Close
DB.Close
End Sub

Qualquer luz é bem vinda!

Bom dia

Código:

Sub JuntaNomes()
    '--------------------------------------------------------------'
    '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
    '    utilize o código livremente mas mantenha os créditos    '
    '--------------------------------------------------------------'
    Dim Rs As dao.Recordset
    Set Rs = CurrentDb.OpenRecordset("SELECT * FROM Cst_AtasDeAssembleias")
    txNome = Null
    Do Until Rs.EOF
        If Len("" & txNome) = 0 Then
            txNome = Rs("cond_presentes")
        Else
            txNome = txNome & "," & Rs("cond_presentes")
        End If
        Rs.MoveNext
    Loop
    Set Rs = Nothing
End Sub

Obrigado Alexandre. Deu quase certo. Entraram os códigos ao invés dos nomes. Refiz a consulta para simplificar pois ela tem filtros (o usuário escolhe um nome na lista) e deu certo mas no modo básico, ou seja, todos os nomes da tabela - o que não é o que procuro.
O objetivo é criar um "assistente de atas" para inserir os textos e os nomes dos condôminos presentes e os ausentes e a partir daí gerar um relatório com campos concatenados e os nomes em linhas separados com vírgula, como é mostrado no relatório que segue na versão compacta.

Segue a versão reduzida. O Access é o 2007.

Obrigado!

Juliano

Não abri teu aplicativo.

Só vi que na frase em vermelho do código que postou, faltou a virgula entre   "Cst_AtasDeAssembleias" e dbOpenTable

Portanto,

Set RS = DB.OpenRecordset("Cst_AtasDeAssembleias", dbOpenTable)

Se quiser testar o código novamente

{ }'s

Balem

Obrigado mas deu erro na mesma linha!

Noobezinho e Alexandre Neves,

Fiz uma alteração nas consultas, utilizando o seguinte relacionamento:



Com isso, eu peguei o NOME do condônimo.

Esse é o problema de usar o VBA em campos de tabela que, visualmente, traz o nome, mas na verdade é o código.
Por isso estava trazendo só o código.



Segue banco de dados atualizado.

Abraços

Obrigado Alexandre. Os erros que tem dado são basicamente sobre a complexidade da consulta. Ela contém textos concatenados e nome dos condôminos que são escolhidos em lista e parece que isso tem pesado no resultado. Fiz o teste somente com uma consulta simples e não deu erro. Simplificar não tem jeito porque o relatório precisa do texto concatenado junto com os nomes.
Outro problema que encontrei foi que o código só pode ser usado em formulários e acaba sobrecarregando o sistema porque será preciso criar relatórios pra cada resultado e esse formato é meio limitado pois a caixa de texto não ajusta no relatório e isso causaria espaçamento entre os textos. Uma expressão de consulta usando o construtor de expressão seria a solução.
Um outro problema que vou encontrar no caminho é como vou concatenar o texto da consulta com os sub-relatórios para formar uma sequência única e não dar resultado separado.
Vou tentando aqui.
Obrigado!

Juliano bom dia,

Como vc queria o relatório?
Vc quer o nome dos condôminos concatenados ao texto?

Informe aqui para que possamos ajudar nesta demanda.

Abraço

Sim, como disse na resposta acima, preciso concatenar os textos da consulta com os nomes para formar um parágrafo no relatório. Vou precisar alterar a tabela inserindo o gênero também para criar nos nomes com "Sr." e "Sra.". Não vão poder entrar sem uma forma de tratamento.

Bom dia Alexandre Fim. Consegui fazer funcionar o código e deu certo a formatação mas na hora de integrá-lo ao texto no relatório não funcionou nem com reza. Tive de voltar atrás e fazer diferente criando listas. Não era o que eu procurava mas não teve outra solução.
Segue a nova versão.



Obrigado!