[belajar-access] Re: Error message

Terimakasih banyak mas Aksan...
sudah Okeh...

regards
CW

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: belajar-access@yahoogroups.com
Date: 17 September 2010 09.48
Subject: 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
> - Perlihatkan kutipan teks -
>
>