Re: [belajar-access] Error message

Private Sub CmdExport_Click()    on error goto errHandle    DoCmd.OutputTo acOutputQuery, "QMediaOperatorProductivity", , , True, , , acExportQualityScreen    exit sub  errHandle:    if err.number = 2501 then  'The OutputTo action was canceled       resume next    else       msgbox err.description, vbcritical, err.number    end if  End Sub

aksan kurdin



On 9/17/2010 8:07 AM, Cecep W wrote:

 

hallo pakar access semua...
minal aidin wal faizin mohon maaf lahir dan bathin
taqobbalallohu minna wa minkum...

saya buat procedure sbb:
Private Sub CmdExport_Click()
  
   DoCmd.OutputTo acOutputQuery, "QMediaOperatorProductivity", , , True, , , acExportQualityScreen

End Sub

ini sudah berjalan dengan baik tapi masalahnya adalah ketika saya cancel selalu muncul pesan error seprti terlampir.

saya inginnya pesan itu tidak muncul ketika saya cancel. gimana ya caranya?

regards
CW

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___