[Resolvido]Criar campo com uma só linha

Antes de mais nada, quero parabenizar vocês pelo ótimo trabalho de ajudar os desenvolvedores de aplicativos Access. Já procurei no fórum, mas não achei nada que me ajudasse. Estou com a seguinte problema:


Tenho um arquivo em ACCESS 2007 que possui um relatório originado de 2 tabelas relacionadas. No relatório, gostaria que os dados do campo “NomeHobbie”, que é gerado a partir de um combox, ficassem em apenas uma linha.



Exemplo:

No meu relatório está assim, com segue abaixo:

Campo
Hobbie
Aeromodelagem
Teatro
Cinema
Música


Mas gostaria que ficasse assim: em apenas uma linha e separado por poto-e-vírgula


Campo
Hobbie
Aeromodelagem; Teatro; Cinema; Música



P.S: Os textos em azul são os dados do campo Hobbie



Desede já agradeço pela ajuda



Segue abaixo o link para o download do arquivo, caso precisem dar uma olhada.
http://www.4shared.com/file/WcPr0tHU/ClubeExemplo.html

Se bem entendi, os dados estāo na tabela relacionada com varios hobbies por pessoa... bem eu penso qye a solucao trilha por uma caixa texto desacoplada no relatório e um recordset com um loop, e a cada loop preenchendo uma variável seguidamente precedido de ponto e vírgula...


Voce criaria o recordeset, carregaria com a tabela, filtrando o recordset pelo id do registro ativo no relatório...

Criaria uma variavel do tipo string e a cada loop iria adicionando o registro do campo dos recordeset segudamente e ao final do loop carrega a caixa texto com a variavel

Dim rs as recordset
Dim strhoby as string
Dim strsql as string
Dim db as Database

Set db = CurrentDb

StrSql = "SELECT * FROM Suatabela WHERE Campocódikgo= " & CaixaTextoCódigo& ""

Set Rs = Db.OpenRecordset(StrSql)

Do While Not Rs.EOF
Strhoby = strhoby & rs!roby & ";"
Rs.MoveNext
Loop

SuaCaixaTexto = strhoby



Creio ser por ai..

Cumprimentos

Obrigado por respostar, Harysohn

Editei os erros gramaticais e coloquei o código, adapitado, que você me passou no evento ao carregar do meu relatório. Porém, o código está dando erro de sintaxe ao copilar (Linha em vermelho abaixo))

Private Sub Report_Load()
Dim rs As Recordset
Dim strhoby As String
Dim strsql As String
Dim db As Database

Set db = CurrentDb

StrSql = "SELECT * FROM tblHobbies WHERE CodHobbies= " & txtCodHobbies& ""

Set rs = db.OpenRecordset(strsql)

Do While Not rs.EOF
strhoby = strhoby & rs!NomeHobbie & ";"
rs.MoveNext
Loop

txtNomeHobbie = strhoby

End Sub


Para ficar mais claro, segue um resumo abaixo ao qual desejo que os dados do campo “NomeHobbie” da tabela “tblHobbies” carregue no relatório somente em uma linha.

Nome da tabela: tblHobbies
Chave primária da tblHobbies: CodHobbies
Nome campo da tabela tblHobbies: NomeHobbie
Texto não acoplado no relatório: txtCodHobbies
Texto não acoplado no relatório: txtNomeHobbie (Como você me orientou)

Olá amigos!

veja este exemplo:

Exemplo

Bom estudo!

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.