[ Active X Controls ] Πρόβλημα σε εξαγωγή έκθεσης σε PDF "The OutputTo action was canceled"

[smasak]

Καλημέρα, θέλω να εξάγω έκθεση σε pdf και σε ένα button έχω τον κώδικα

"Private Sub PDFcat_Click()
DoCmd.SetWarnings False
If Me.CompoRACE <> "" And Me.CATEGORY <> "" Then
DoCmd.OpenReport "rptResults", acViewPreview, , "[ID_RACE]=" & Me.CompoRACE & "and " & "[CATEGORY]=" & Me.CATEGORY
DoCmd.OutputTo acOutputReport, "rptResults", _
acFormatPDF
Else
MsgBox "Ðáñáêáëþ åðéëÝîôå Áãþíá & Êáôçãïñßá"
DoCmd.SetWarnings True
End If
End Sub"

Μου ανοίγει το browse για αποθήκευση κανονικά και αν επιλέξω σημείο μου το αποθηκεύει. Αν όμως κάνω cancel τότε μου βγάζει το μήνυμα "runtime error 2501 the outputTo action was canceled".

[nasos23]

Καλημέρα σε όλους.
Σάκη δοκίμασε αυτό και δες αν σου κάνει.

Private Sub PDFcat_Click()
On Error GoTo MyErrorHandler
DoCmd.SetWarnings False
If Me.CompoRACE <> "" And Me.CATEGORY <> "" Then
DoCmd.OpenReport "rptResults", acViewPreview, , "[ID_RACE]=" & Me.CompoRACE & "and " & "[CATEGORY]=" & Me.CATEGORY
DoCmd.OutputTo acOutputReport, "rptResults", _
acFormatPDF
DoCmd.Close acReport, "rptResults"
MyErrorHandler:
If Err.Number = 2501 Then
MsgBox "Ακύρωση αποθήκευσης"
Resume Next
Else
DoCmd.SetWarnings True
End If
End If
End Sub

[smasak]

Τέλεια, μπράβο Νάσο.