Imprimir página | Cerrar ventana

Enviar por email registro de pantalla

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84008
Fecha de impresión: 21/Abril/2019 a las 12:41


Tema: Enviar por email registro de pantalla
Publicado por: Nomada
Asunto: Enviar por email registro de pantalla
Fecha de publicación: 12/Octubre/2018 a las 16:41
Buenas.
Tengo un formulario en el cual a través del siguiente código accedo al primer registro que deseo:

Set rs = Me.Recordset.Clone
    rs.FindFirst "[TRA_IdCliente]=" & Me![vcbNAF]
    Me.Bookmark = rs.Bookmark...

Ahora con el siguiente código envío el registro por email, pero el problema es que me envía todos los registros:

DoCmd.SendObject acSendForm, veMailPDF, "PDFFormat(*.pdf)", "", "", "", "Fichero en PDF", "", True, ""

¿Cómo podría decirle que solamente me envíe el registro que tengo en pantalla?

Gracias y un saludo



Respuestas:
Publicado por: emiliove
Fecha de publicación: 12/Octubre/2018 a las 17:06
Hola Nomada

Yo no trabajo así, uso CDO y mando informes en pdf, pero en lugar de buscar el registro con FindFirst, por que no lo haces con un filtro así solo tendrás un solo registro, pero no se si funcionará, pero por probar, algo como esto:


Dim sFiltro As String

sFiltro = "[TRA_IdCliente]=" & Me![vcbNAF]

Me.Filter = sFiltro

Me.FilterOn = True


Saludos.



Publicado por: Nomada
Fecha de publicación: 12/Octubre/2018 a las 17:19
Gracias emiliove.
Es lo mismo que estaba pensando.

Este hilo se puede cerrar satisfactoriamente.

Saludos a todos.



Imprimir página | Cerrar ventana