[Resolvido]Dados diferentes na mesma caixa de texto

Olá,

Eu tenho duas tabelas (Type_Of_Product e Type_Cleaning) ligadas por uma relaccao n para n a partir da tabela Validation.

O que queria era que no meu formulário RepProduct me aparecem os diferentes tipos de limpeza numa só caixa de texto.
Esse formulário retira os valores da consulta Steps.

Eu já implementei o seguinte código:

Me.TxtCleaning= DLookup("Type_Clean", "Steps", "ID=" & DLookup("ID", "Type_Of_Product", "name'" & TxtProduct &"'"))

mas só me dá um dos valores.

Podem ajudar-me?

Olá! Tente o seguinte:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomaDaConsulta")

Do While Not rs.EOF
  If IsNull(Me.NomeDaCaixaDeTexto) Or Me.NomeDaCaixaDeTexto.Value = "" Then
      Me.NomeDaCaixaDeTexto = rs!NomeDoCampoDaConsulta
  Else
      Me.NomeDaCaixaDeTexto = Me.NomeDaCaixaDeTexto & VBCRLF & rs!NomeDoCampoDaConsulta
  rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Dá-me um erro de compilação que diz que o Loop está sem o Do.

Falta o End If, Criquio.

Exato. Na pressa, esqueci-me de fechar o If antes do MoveNext:

End If
rs.MoveNext

Peço desculpas.

Eu tenho os dados no form a aparecerem automaticamente.
Acho que é por isso que dá erro, ao tentar na instrução para a caixa de texto, por exemplo, ao cilck, não obtenho resultados nenhuns.

Perfeitu, funciona correctamente.
Obrigda

Grato pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez eu clico.