Hey,
I started to make purchasingsystem for our purchase department. I use access and they use the program using the runtime version. But when they try to sent a purchase order Access gives me the following message:
The expression On Click you entered as the event property setting produced the following error: The Sendobject action was canceled
*The expression may not result in the name of a macro, the name of a user-defined function, or [Event Procedure].
*There may have been an error evaluating the function, event, or macro.
The procedure is:
Private Sub Command107_Click()
If [Forms]![FrmInkoophoofd]![Bedrijf] = "1" Then GoTo 1 Else GoTo 2
1:
Dim Bedrijf As String
Dim strMail As String
Dim stDocName As String
Dim strNaam As String
Dim Verzender As String
Dim Ontvanger As String
DoCmd.OpenReport "RapSelInkoopHoofd", acViewReport, "", "", acHidden
strNaam = Me.Referentienummer
stDocName = "RapSelInkoopHoofd"
Reports![RapSelInkoopHoofd].Caption = strNaam
Ontvanger = Me.Contactpersoon
Verzender = [Forms]![FrmGebruikers]![Combo2]
DoCmd.SendObject acSendReport, stDocName, acFormatPDF, Forms![FrmInkoophoofd]![Mail], Verzender, , "Inkooporder " & strNaam, _
"Beste " & Ontvanger & "," & vbNewLine & vbNewLine & "Hierbij ontvangt U onze inkooporder met ons referentienummer " & strNaam & "." & vbNewLine & _
"Deze inkooporder kunt U terugvinden in de bijlage van deze e-mail, gelieve een orderbevestiging met leverdatum per mail." _
, , False
Macronaam = "MacVersturenIO2"
DoCmd.RunMacro Macronaam
Exit Sub
2:
DoCmd.OpenReport "RapInkooporderMTDFleet", acViewReport, "", "", acHidden
Dim Bedrijf1 As String
Dim strMail1 As String
Dim stDocName1 As String
Dim strNaam1 As String
Dim Verzender1 As String
Dim Ontvanger1 As String
strNaam1 = Me.Referentienummer
stDocName1 = "RapInkooporderMTDFleet"
Reports![RapInkooporderMTDFleet].Caption = strNaam1
Ontvanger1 = Me.Contactpersoon
Verzender1 = [Forms]![FrmGebruikers]![Combo2]
DoCmd.SendObject acSendReport, stDocName1, acFormatPDF, Forms![FrmInkoophoofd]![Mail], Verzender1, , "Inkooporder " & strNaam1, _
"Beste " & Ontvanger1 & "," & vbNewLine & vbNewLine & "Hierbij ontvangt U onze inkooporder met ons referentienummer " & strNaam1 & "." & vbNewLine & _
"Deze inkooporder kunt U terugvinden in de bijlage van deze e-mail, gelieve een orderbevestiging met leverdatum per mail." _
, , False
Macronaam = "MacVersturenIO2"
DoCmd.RunMacro Macronaam
End Sub