[ sule99 @ 04.09.2009. 08:51 ] @
Imam dugme na formi koje kad klinem isprinta traženi report. No, imam jedan problem. Kad klinem na tu tipku, otvori mi se prozor gdje biran printer, broj kopija itd. ako kliknem na ok, sve radi kako treba. No, ako se predomislim i kliknem na cancel, javi mi grešku "Run..2501". kako to izbječi? mislim daje stvar u pucanju koda koji glasi ovako:


Private Sub Command37_Click()

DoCmd.OpenReport "Naljepnice", acViewPreview, "CreateQuery", CreateWherePart
DoCmd.RunCommand acCmdPrint

End Sub



šta bi trebao dodati da mi se ta poruka ne prikazuje više ako želim odustati od printanja?
[ Trtko @ 04.09.2009. 10:05 ] @

Private Sub Command37_Click()
On error goto greska

DoCmd.OpenReport "Naljepnice", acViewPreview, "CreateQuery", CreateWherePart
DoCmd.RunCommand acCmdPrint

Exit sub

greska:

Err.clear
exit sub

End Sub


tako bi izbjegao poruku o greski
[ sule99 @ 04.09.2009. 10:22 ] @
THX za odgovor i ja taman rješio problem :)

evo moj kod:

Private Sub Command37_Click()
On Error GoTo Err_Print
DoCmd.OpenReport "Naljepnice", acViewPreview, "CreateQuery", CreateWherePart
DoCmd.RunCommand acCmdPrint

Err_Print:
If err.Number = 2501 Then
DoCmd.Close
End If

End Sub