En este grupo En todos

Foro de Access



concatenar registros

Lucia
Zaragoza, España
Escrito por Lucia Lolo
el 04/05/2010

Hola, Juan,
soy bastante novata con el access y tengo una duda.
Me gustarái conseguir concatenar los registros del campo "Email" de mi tabla y que estos queden separados por ";"

He visto otras repuestas y algunos código, pero no me funcionan bien... ¿Podrías echarme un mano?
Muchas gracias!

Abraham Valencia
Computacion e informatica microsoft mv...
Escrito por Abraham Valencia
el 04/05/2010

Pues si lo que quieres es enviar un mensaje de correo a los "emails" que tienes en tu tabla de la BD, pues Juan tiene un ejemplo al respecto en su blog:

https://accessjuancots.blogspot.com/

De no ser eso, y solo quieres dicha cadena de correos electronicos para "algo", pues esto te serviria:

Dim rst As ADODB. Recordset
Dim sql$, cadena$


Set rst = New ADODB. Recordset

Sql$ = "select Email from Tabla"

With rst
. CursorLocation = adUseClient
. CursorType = adOpenKeyset
. LockType = adLockOptimistic
. Open sql$, CurrentProject. Connection, , , adCmdText
End With

rst. Movefirst

cadena$ = rst. Fields! Email

Do
rst. MoveNext
cadena$= cadena$ & "," & rst. Fields! Email
Loop Until rst. EOF

Debug. Print cadena$

Abraham