You can add a button to a form and use the button wizard to email a report
when the button is clicked. The wizard will do all the work for you. The
code created by that wizard (in case you want to do it some other way) looks
like this:
Private Sub Command15_Click()
On Error GoTo Err_Command15_Click
Dim stDocName As String
stDocName = "Designs"
DoCmd.SendObject acReport, stDocName
Exit_Command15_Click:
Exit Sub
Err_Command15_Click:
MsgBox Err.Description
Resume Exit_Command15_Click
End Sub