I simply have not been getting the answers I need to help you. Perhaps you are working on something that is hypothethitacal. Can you post the code in your click control button click event?
Code like this should work in a click event
Code:
Dim strEmail As String
Dim strCriteria As String
strEmail = "EmailAddress@Domain.com"
strCriteria = "[Purchasing Agent(CXM)] = '" & Me.Combo0.Value & "'"
DoCmd.OpenReport "Updated SWIP Report", acViewPreview, , strCriteria, acWindowNormal
DoCmd.SendObject acSendReport, "Updated SWIP Report", acFormatPDF, strEmail, , , "Subject Line", "Body of Email", True