Consulta access

[Taribo007]

Podrias abrir un recordset sobre la tabla, recorrer todos sus registros, e ir concatenando en una variable de tipo string los email separados por ;

Luego, depende de donde quieras mostrar ese string, habria que actuar de una forma u otra. Seria algo asi:

dim rst as dao.recordset
dim VarEmails as string

set rst=currentdb.openrecordset ("Select email from tabla")

while not rst.eof
VarEmails= VarEmails & rst!Email & ";"
rst.movenext
wend

'Esto es por si quieres quitar el ; que qudara al final
if nz(VarEmails,"")<>"" then
VarEmails=left(VarEmails,len(VarEmails)-1)
end if

'Aqui tendras todos los email concatenados
msgbox VarEmails


Un saludo