Consulta access

[Taribo007]

Pues es que depende de lo que necesites. Un ejemplo. Create un form, ponle un boton, situate sobre el, boton derecho, generar evento, evento de codigo. Se te abrira la ventana de VBA en el evento click del boton. Pues ahi pega esto:

dim rst as dao.recordset
dim VarEmails as string

set rst=currentdb.openrecordset ("Select DirCorreoElectrónico from Clientes")

while not rst.eof
VarEmails= VarEmails & rst!DirCorreoElectrónico& ";"
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


Ahora, sin salir de la ventana de codigo, te vas a el menu de arriba. Herramientas >> referencias. Tienes que activar una que se llama Microsoft DAO X.XX object Library

Las X.XX dependen de tu version de access.

Guarda el formulario, pulsa el boton y veras que te sale un mensaje con el listado.

Ahora depende de donde y como quieras esa lista.

Un saludo