[Resolvido]Concatenar várias linhas de um SubForm no campo do FormPrincipal

Bom dia amigos do Fórum!

Tropecei numa pedra que está me esquentando a cabeça, quero concatenar mais de uma linha apenas de uma única coluna que fica no SubForm (abaixo)




Estou tentando adaptar o código abaixo tirado aqui do fórum do nosso amigo criquio mas ele pega todas as linhas que existem na tabela, e o que eu preciso é que peguem somente os talhões que estão sendo exibidos no SubForm e os concatenem na caixa de texto igual ficou na imagem acima separados por " | ".

Dim rs As Recordset                                              
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")  
Do While Not rs.EOF  
   If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo = "" Then
Me.NomeDoCampo = rs!NomeCampoDaTabela
Else            
   Me.NomeDoCampo = Me.NomeDoCampo & "|" & rs!NomeCampoDaTabela
End If                                                      
rs.Close                                                  
Set rs = Nothing

Alguém pode me ajudar ?

Ola amigão;

Você sabia que pode abrir o recordset ao subform, em vez da tabela ?

Veja o simples;

Código:

Dim rs As DAO.Recordset
Set rs = Me.SeuSubForm.Form.RecordsetClone

With rs
    Do While Not rs.EOF
      If IsNull(Me.SeuCampoNoForm) Or Me.SeuCampoNoForm = "" Then
      Me.SeuCampoNoForm = rs!SeuCampoNoSubForm
        Else
      Me.SeuCampoNoForm = Me.SeuCampoNoForm & "|" & rs!SeuCampoNoSubForm
    End If
    rs.MoveNext
    Loop
End With
rs.Close
Set rs = Nothing

Obrigado João Paulo!

Vou testar logo após o almoço e posto o resultado.

Valeu!

Obrigado João Paulo !
Já dei o tópico por resolvido, segue o código que me atendeu 100%

Dim rs As DAO.Recordset
Set rs = Me.frmAgricolaOSTalhoes.Form.RecordsetClone

With rs
Do While Not rs.EOF
If IsNull(Me.txtRateio) Or Me.txtRateio = "" Then
Me.txtRateio = rs!Talhao
Else
Me.txtRateio = Me.txtRateio & "|" & rs!Talhao
End If
rs.MoveNext
Loop
End With
rs.Close
Set rs = Nothing

Fico feliz
Obrigado pelo retorno o fórum agradece.

Aproveitem para contribuir com o fórum, 1€ faz toda a diferença.

Valeu gente, fazia tempo que eu queria encontrar um jeito de concatenar linhas de um subformulário.  Me ajudou também! Obrigado!

Fico feliz.

Obrigado pelo retorno.