[es] - problem sa Error

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

^{04.09.2009. u 08:51 - pre 178 meseci}

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?

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
93.159.72.*

+8 Profil

Re: problem sa Error

^{04.09.2009. u 10:05 - pre 178 meseci}

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

Odgovor na temu

sule99
student

Član broj: 227708
Poruke: 93
*.dsl.iskon.hr.

+1 Profil

Re: problem sa Error

^{04.09.2009. u 10:22 - pre 178 meseci}

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

Odgovor na temu