Access - código para enviar informes por correo

   
Vista:

código para enviar informes por correo

Publicado por pequenogigante (7 intervenciones) el 25/04/2009 19:33:21
Trabajo con access 2003

envio un informe por correo de forma automática con el siguiente código:

Function Enviar()
On Error GoTo Enviar_Err

DoCmd.SendObject acReport, "Nombre del informe", "FormatoSnapshot(*.snp)", "", "", "", "", "", True, ""

Enviar_Exit:
Exit Function

Enviar_Err:
MsgBox Error$
Resume Enviar_Exit

End Function

pues resulta que necesito usar esta función con cualquier informe que esté abierto y tenga el foco por supuesto porque hasta ahora solo funciona con "Nombre del informe"

sl2 y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

encontré una respuesta

Publicado por pequenogigante (7 intervenciones) el 25/04/2009 21:49:49
Encontré una respuesta:

Function Enviar()
On Error GoTo Enviar_Err

Dim report_name As Report
Set report_name = Screen.ActiveReport

DoCmd.SendObject acReport, report_name.name, "FormatoSnapshot(*.snp)", "", "", "", report_name.name, report_name.name, True, ""

Enviar_Exit:
Exit Function

Enviar_Err:
msgbox Error$
Resume Enviar_Exit

End Function

y luego quiero ejecutar el código desde una barra de herramientas que sea común para todos los informes, pues creo una macro que sea ejecutarcódigo y me pide el nombre de la función y ahi se lo paso.( Enviar( ) ). luego pongo esta macro en una barra de herramientas

sl2 y gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar