on error komutu

[mtbi00]

Merhaba,

Yapmış olduğum programda herhangi bir hata durumunda (genelde printer hatası oluyor) programın kırılmaması için "on error goto" komutunu kullanmak istedim. Yazdığım diğer programlarda çalışıyor ama son yaptığımda "Label not defined" hatası alıyorum. Bana göre herşey normal ama çalışmıyor. Yardımlarınız rica olunur.


On Error GoTo hata
..
..
hata:
Select Case Err.Number
Case 1004: mesaj = "Printer ayarlarında sorun var.. Lütfen setup dan ayar yapınız (" & Err.Number & ")"
End Select
MsgBox mesaj
setup.Show
Resume Next

 

[mtbi00]

Tamamdır sorunu buldum. İlginiz için teşekkürler.

 

[Korhan Ayhan]

Çözümü de keşke paylaşsaysınız. Belki ihtiyacı olan olabilir.

 

[mtbi00]

Çözümü de keşke paylaşsaysınız. Belki ihtiyacı olan olabilir.

Korhan bey merhaba,

Sorunun çözümü çok basitmiş onun için yazmadım. Vba tarafında sayfanın en sonuna yazacağıma son procedure nin içine yazmışım. Hatanın çok şapşal olduğunu anlayınca bir şey diyemedim.