Huidig Rapport mailen.

[FireSt@rter]

Ik ben als noob voor mn huidige werkgever een database aan het bouwen voor het maken van werkbonnen, het maken van facturen en het bijhouden van uren per werknemer.

Dit gaat allemaal best aardig met wat hulp van jullie, voor het printen van de huidige record heb ik al het een en ander gevonden op dit super forum en het werkt ook.

Maar voor het aanmaken van een knop in mijn formulier voor het mailen van de huidige record heb ik nog niets kunnen vinden.

Is er misschien iemand die hier een stukje voorbeeld code voor heeft, of een duidelijke uitleg ben nogal een noob.
bvd

 

[Daneron]

Je kunt dit doen dmv vba of met een macro:

vba:
Maak een knop aan en geef het de naam "verzenden", bij gebeurtenis "bij clicken" plak je onderstaande code.

Private Sub verzenden_Click()
On Error GoTo Err_verzenden_Click

If Me.Dirty Then DoCmd.RunCommand acCmdSaveRecord
DoCmd.SendObject acReport, "Rapportnaam", _
"SnapshotFormat(*.snp)", "naam@email", _
"", "", "Onderwerp", "Tekst wat in je email komt te staan!", False, ""

Exit_verzenden_Click:
Exit Sub

Err_verzenden_Click:
MsgBox "Fout meldingsbericht.", vbInformation, "Attentie !"
Resume Exit_verzenden_Click

End Sub



macro:
object verzenden
vul alle gegevens in en sla het op als "verzenden rapport"
Met de knop die hebt aangemaakt ( met de wizard ) koppel je de macro "verzenden rapport".

that's all