Debería preguntarse si necesita una solución genérica (otra es de Allen Browne ) o si lo necesita solo para el presente propósito. Si realmente solo lo necesitas esta vez, hazlo de la manera más fácil.
En una nota al margen, al concatenar listas en código VBA, aproveche un truco que me enseñó Trevor Best, el gurú de Access desde hace mucho tiempo, y es pegar el delimitador al comienzo de cada valor y luego usar Mid() para eliminarlo. apagado. En lugar de esto dentro de su bucle a través de los registros secundarios:
If Len(strOutput) = 0 Then
strOutput = NewValue
Else
strOutput = strOutput & ", " & NewValue
End If
...usa esto dentro del bucle:
strOutput = strOutput & ", " & NewValue
... y luego, cuando salga del ciclo, elimine el delimitador principal:
strOutput = Mid(strOutput, 3)
Esto tiene implicaciones por todas partes y simplifica el código para la concatenación en una gran cantidad de contextos.
