[Resolvido]Erro em código para Concatenar.

Boa noite Senhores.

Copiei este código do amigo Críquio em outro fórum e achei interessante para aplicar em um relatório que tenho.
Acontece que exibe um erro que não consigo entender.
Eis o código:

Código:


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

If RS("Autonumeração") = Me.Autonumeração Then
If IsNull(Me.Id_SS) Or Me.Id_SS = "" Then
Me.Id_SS = RS("Numero_SS") & ","
Else
Me.Id_SS = Me.Id_SS & RS("Numero_SS")
End If

.MoveNext
End With
Loop
Set DB = Nothing
Set RS = Nothing
RS.Close
DB.Close



o VBA emite este erro. Como pode?

Você abriu dois IF e só fechou um...

Bom dia.
Obrigado amigo, mas agora veio outro erro, mesmo fechando os IF´s.

Subindo tópico.

"With RS" é antes do "Do While Not RS.EOF"

Bom dia.
Obrigado Mestre JPaulo pela ajuda, mas o erro persiste na mesma linha.

Estou postando a parte que está com problemas se puder ajudar agradeço muito.

O que quero e agrupar todas as S.S. (Solicitações de Serviços) usadas em cada Material.

Obrigado antecipadamente.

Código:

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim DB As Database, RS As Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Cns_Mapinha_Sub")

RS.MoveFirst

With RS
Do While Not RS.EOF


If RS("Autonumeração") = Me.AUTONUMERAÇÃO Then
If IsNull(Me.Id_SS) Or Me.Id_SS = "" Then
    Me.Id_SS = RS("Numero_SS") & ","
    Else
    Me.Id_SS = Me.Id_SS & RS("Numero_SS")
    End If
End If
.MoveNext
Loop
End With

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

Tem de adicionar o campo "AUTONUMERAÇÃO " ao relatório, mesmo que fique em modo oculto.

Paulo, funcionou, só que o resultado não foi o esperado.

Eu preciso que exiba mais ou menos assim:
Que é com o código antigo que está neste exemplo que postei.
Só que neste código antigo, ele continua repetindo as S.S.´s.




E com o código que você alterou pra mim ficou assim.
Desgringolou tudo.

Subindo tópico.

Alguém se habilita?
Obrigado

Boa tarde.
Obrigado JPaulo pela sua preciosa ajuda.
Mas consegui resolver a situação com um tópico aqui do fórum em que o Mestre Avelino solucionou.
(https://www.maximoaccess.com/t18740-resolvidoconstrucao-de-relatorio#139481)

Estou postando a solução, caso sirva pra outro companheiro.
Abraço em todos e boa páscoa.