none
Enviar por correo electrónico desde Formulario Informe de registro actual. RRS feed

  • Pregunta

  • Buenas a todos,

     

    En un formulario tengo un boton de comando para enviar un informe por correo electrónico. Este es el código:

     

    Private Sub Enviar_Click()

    On Error GoTo Err_Enviar_Click

        Dim stDocName As String
        stDocName = "Informe"
        DoCmd.SendObject acReport, "Informe", acFormatRTF, Me.ComercialAsignado

    Exit_Enviar_Click:

        Exit Sub

    Err_Enviar_Click:

        MsgBox Err.Description
        Resume Exit_Enviar_Click

    End Sub

     

    Quisiera saber cómo puedo hacer para agregar un criterio que me permita enviar el informe del registro actual del formulario.

     

    Muchísimas gracias.

    lunes, 12 de enero de 2009 18:35

Respuestas

  •  

    Hola!

    dado que SendObject no tiene ningún método para realizar el filtrado, como supongo que ese código lo ejecutas desde un formulario, pues bien, pon en el un cuadro de texto o los que sean necesarios, en el/los que indiques los criterios del filtrado, aplica al informe como criterios esos cuadros de texto, de modo que al enviarlo se abra ya filtrado.

    martes, 13 de enero de 2009 22:17

Todas las respuestas