[Resolvido]Erro em Consulta - Relatório

Olá, boa tarde!

Tenho um campo não acoplado no relatório com nome Outorgante, e preciso que nele apareçam o nome, RG e CPF dos mesmos. Conforme código abaixo.
No entanto, para uma pessoa só roda bem, direito, cumpre seu propósito. Porém, quando é mais de uma pessoa vinculada ao mesmo número de protocolo ele não aparece os dados desta segunda pessoa.

O que poderia ser, como posso resolver este problema?

Código:

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim corg_doc As Variant
Dim corg_doc_idt As Variant

    If Me.Protocolo.Value > 0 Then
        strSQL = "SELECT * FROM rel_p_1 WHERE PROTOCOLO = " & Me.Protocolo.Value
        
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
        corg_doc = rs("CPFCNPJ_OUTORGANTE")
        corg_doc_idt = rs("IDENTIDADE_OUTORGANTE")
            If Not IsNull(corg_doc_idt) Then
                corg_doc_idt = "<p>RG nº " & rs("IDENTIDADE_OUTORGANTE") & "-" & rs("OE_IDENT_OUTORGANTE")
            Else
                corg_doc_dt = ""
            End If
            If Not IsNull(corg_doc) And Len(corg_doc) = 11 Then
                corg_doc = " - CPF nº " & rs("CPFCNPJ_OUTORGANTE")
            Else
                If Len(corg_doc) = 14 Then
                    corg_doc = " - CNPJ nº " & rs("CPFCNPJ_OUTORGANTE")
                Else
                    corg_doc = ""
                End If
            End If
        Me.Outorgante = rs("NOME_OUTORGANTE") & corg_doc_idt & corg_doc
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Fico no aguardo.
Obrigado.

Bom dia,
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim corg_doc As Variant
Dim corg_doc_idt As Variant

    If Me.Protocolo.Value > 0 Then
        strSQL = "SELECT * FROM rel_p_1 WHERE PROTOCOLO = " & Me.Protocolo.Value
        
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
if corg_doc="" then
corg_doc = rs("CPFCNPJ_OUTORGANTE")

else        
corg_doc =corg_doc & ", " & rs("CPFCNPJ_OUTORGANTE")
end if
        corg_doc_idt = rs("IDENTIDADE_OUTORGANTE")
            If Not IsNull(corg_doc_idt) Then
                corg_doc_idt = "

RG nº " & rs("IDENTIDADE_OUTORGANTE") & "-" & rs("OE_IDENT_OUTORGANTE")
            Else
                corg_doc_dt = ""
            End If
            If Not IsNull(corg_doc) And Len(corg_doc) = 11 Then
                corg_doc = " - CPF nº " & rs("CPFCNPJ_OUTORGANTE")
            Else
                If Len(corg_doc) = 14 Then
                    corg_doc = " - CNPJ nº " & rs("CPFCNPJ_OUTORGANTE")
                Else
                    corg_doc = ""
                End If
            End If
        Me.Outorgante = rs("NOME_OUTORGANTE") & corg_doc_idt & corg_doc
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Olá Alexandre, boa tarde!

Infelizmente não deu certo. Ainda continua com o mesmo problema! Mais alguma sugestão?

Preciso que os dados apareceram dentro do campo Outorgante conforme o exemplo a seguir.
Ex.
O protocolo 0001 tem dois outorgantes (Fulano e Ciclano), preciso que ele apareça os dois outorgantes da seguinte forma:

Outorgante (Campo)
Fulano de tal
RG nº 00000-SSP PR - CPF nº 0000000
Ciclano de tal
RG nº 00000-SSP PR - CPF nº 0000000

Fico no aguardo.
Agradeço  desde já pela sua colaboração.

Boa noite,
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim corg_doc As Variant
Dim corg_doc_idt As Variant

    If Me.Protocolo.Value > 0 Then
        strSQL = "SELECT * FROM rel_p_1 WHERE PROTOCOLO = " & Me.Protocolo.Value
        
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        do while Not rs.EOF
        corg_doc = rs("CPFCNPJ_OUTORGANTE")
        corg_doc_idt = rs("IDENTIDADE_OUTORGANTE")
            If Not IsNull(corg_doc_idt) Then
                corg_doc_idt = "

RG nº " & rs("IDENTIDADE_OUTORGANTE") & "-" & rs("OE_IDENT_OUTORGANTE")
            Else
                corg_doc_dt = ""
            End If
            If Not IsNull(corg_doc) And Len(corg_doc) = 11 Then
                corg_doc = " - CPF nº " & rs("CPFCNPJ_OUTORGANTE")
            Else
                If Len(corg_doc) = 14 Then
                    corg_doc = " - CNPJ nº " & rs("CPFCNPJ_OUTORGANTE")
                Else
                    corg_doc = ""
                End If
            End If
        Me.Outorgante = rs("NOME_OUTORGANTE") & corg_doc_idt & corg_doc
         rs.movenext
        loop
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Olá Alexandre, boa noite!

Infelizmente ainda não deu certo. 

Ele roda certinho, porém me dá apenas os dados da última pessoa vinculada ao protocolo, e das demais vinculadas ao mesmo protocolo ele nem aparece.

Alguma outra sugestão?

Fico no aguardo.
Obrigado.

Boa tarde,
Disponibilize bd com dados fictícios mas representativos

Olá Alexandre, boa noite!

Segue o banco de dados e o referido relatório.

Fico no aguardo.
Obrigado.

Boa tarde,
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim rs As DAO.Recordset
Dim strSQL As String
Dim corg_doc As Variant
Dim corg_doc_idt As Variant
Me.Outorgante.Value = ""
If Not IsNull(Me.Protocolo.Value) Then
strSQL = "SELECT * FROM rel_p_1 WHERE PROTOCOLO = " & Me.Protocolo.Value

Set rs = CurrentDb.OpenRecordset(strSQL)
Do While Not rs.EOF
corg_doc = rs("CPFCNPJ_OUTORGANTE")
corg_doc_idt = rs("IDENTIDADE_OUTORGANTE")
If Not IsNull(corg_doc_idt) Then
corg_doc_idt = "

RG nº " & rs("IDENTIDADE_OUTORGANTE") & "-" & rs("OE_IDENT_OUTORGANTE")
Else
corg_doc_dt = ""
End If
If Not IsNull(corg_doc) And Len(corg_doc) = 11 Then
corg_doc = " - CPF nº " & rs("CPFCNPJ_OUTORGANTE")
Else
If Len(corg_doc) = 14 Then
corg_doc = " - CNPJ nº " & rs("CPFCNPJ_OUTORGANTE")
Else
corg_doc = ""
End If
End If
Me.Outorgante.Value = Me.Outorgante.Value & "

" & rs("NOME_OUTORGANTE") & corg_doc_idt & corg_doc
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End If

Me.Outorgante.Height = 800
End Sub

Olá Alexandre, boa tarde!

Funcionou perfeitamente.

Obrigado