mailen huidig record

[moensk]

Van het invulformulier heb ik rapport gemaakt
in het Formulier heb ik een knop gezet met daarachter volgende code
ps (in de tabel "boekings formulier" staat mijn keyframe met autonummering op "boekingsnummer")


Private Sub Knop55_Click()

Dim strReport As String

strReport = "boekings formulier"
Me.Refresh
DoCmd.OpenReport strReport, acViewPreview, , "boekingsnummer = " & Me!ID
Reports(strReport).Visible = False

DoCmd.SendObject acSendReport, strReport, acFormatRTF, "kris@vanrooijen.be", , , "For your"
Information ""
DoCmd.Close acReport, strReport


End Sub

graag advies waarom hij het niet doet

 

[Rene71]

Test DB

Bekijk bijlage EMAIL EEN PDF.zip
Misschien heb je hier iets aan