Access - ConcatenarCampo

Hola:

Primero decir que estoy utilizando la function ConcatenarCampo que a continuación indico en una consulta.

RegistrosUnidos:ConcatenarCampo("Concep";"[QryFactTrue]";"[QryFactTrue].TabExp_Identidad = " & [QryFactTrue].[TabExp_Identidad];"*")

Como podéis observar los registros que une, en un mismo campo, son aquellos que tienen el campo TabExp_Identidad “COMUN”. Hasta aquí todo es correcto, significar también que el campo concep está limitado solo a cuarenta caracteres.
Pues bien mi cuestión es que si la cadena que se concatena supera un número determinado de caracteres automáticamente queda cortada, es decir me concatena un número limitado de caracteres independientemente del número de registros a concatenar.
No sé si me he explicado bien si alguien sabe cual es el problema o una function que no limite la concatenación.

NOTA: La function que utilizo es la siguiente:

Public Function ConcatenarCampo(NombreCampo As String, _
nombretabla As String, _
Optional Criterio As String = "", _
Optional Separador As String = " ") As String
Dim rst As DAO.Recordset
Dim StrSql As String
Dim strSep As String
Dim strRes As String
If Nz(NombreCampo, "") <> "" Then
If Nz(nombretabla, "") <> "" Then
StrSql = "SELECT " & NombreCampo
StrSql = StrSql & " FROM " & nombretabla
If Nz(Criterio, "") <> "" Then
StrSql = StrSql & " WHERE " & Criterio
End If
strSep = Nz(Separador, "")
Set rst = CurrentDb.OpenRecordset(StrSql)
With rst
If (Not .EOF) And (Not .BOF) Then
Do While Not .EOF
strRes = strRes & .Fields(0)
.MoveNext
If Not .EOF Then
strRes = strRes & strSep
End If
Loop
End If
End With
End If
End If
ConcatenarCampo = strRes
End Function

Seguramente la función te concatena correctamente y devuelve la variable en toda su longitud y luego, en el uso que hagas de la cadena devuelta será donde se limite, por ejemplo, porque la utilices en una consulta, en cuyo caso se limitará a 255 caracteres, o porque se la asignes a un campo con una longitud determinada.

Para ver si estoy en lo cierto, haz una prueba, pon al final de la función:

msgbox len(stRes)

Saludos
José Bengoechea Ibaceta

Antes de nada agradecer tu rápida respuesta.

He probado tal y como indicas y me da un error. 409 es hay donde quieres llegar a parar, la limitacion de acrarcteres en la consulta.

¿ Como lo podria hacer para que se limitase la con un recoreset directamente ?

Probare, ahora ando liado.

Un Saludo
Paco