جلوگیری از خطا

[sinashahab]

سلام
می خواستم بدونم میشه از ارور در برنامه جلوگیری کرد ؟
یعنی ارور نده و به جاش برنامه بسته بشه .
ممنون میشم اگه کمکم کنید .
:تشویق::تشویق:

[Pr0grammer]

شما با On Error می تونید Error رو کاملاً کنترل کنید! مثلاً :


On Error GoTo MyError
' کد های برنامه

MyError:
MsgBox "این پیغام خطا برای .......... است"
امیدوارم واضح باشه!
موفق باشید

[ali_habibi1384]

private sub Name()
on error goto ex_er
.
.
.Exit sub
EX_er:
end
End sub

[sinashahab]

میشه بیشتر توضیح بدید .
باید در کجا وارد کنم ؟

[Pr0grammer]

میشه بیشتر توضیح بدید .
باید در کجا وارد کنم ؟

شما کدتونو اینجا بزار! من براتون کد رو تکمیل می کنم!

[hamed_F]

private sub Name()
on error goto ex_er
.
.
.Exit sub
EX_er:
end
End sub


این کد به دلیل داستن EXIT sub صحیح تر عمل میکنه ... در نمونه اول تمام MsgBox های خطا حتی درصورت نداشتن خطا عمل میکنه :بامزه:
در ضمن این کد باید در تمام subهای برنامت کپی بشه
یعنی از خط on error goto تا خط end
البته اگر قصد داشته باشی برنامه برو ببندی از end استفاده کن وگرنه خیلی باکلاس یه پیغام بده (MsgBox) و توش سابروتین که خطا در داخل اون رخ داده و شماره خطا و زمان و .... رو نمایش بده