گرفتن خطا

[shahnam sha]

سلام دوستان
من يه مساله اي درگرفتن خطا دارم به اين صورت که در بار اول که کدم به خطا مي خورد به درستي به لیبل آن رفته و خطا ذخیره می شود ولی برای بار دو که به هماه خطا مي خورد توسط vb پيغام خطا نشان داده مي شود و به لیبل مقصد نمي رود کد به این صورت هست :


private function test() as string

on error goto ErrorHandel

code barname

EdamdeCode:

code barname

exit function
ErrorHandel:
Save Error to file Text : Resume EdamdeCode
end function


در ضمن اين تابع توسط یک کليد صدا زده شده است.

[M.T.P]

به خاطر این هست که یک حلقه بی پایان به وجود آوردین و vb اجازه ادامه کار رو بعد از ذخیره خطا دیگه به شما نخواهد داد.

[shahnam sha]

ممنونم از پاسختون ولي ميشه بگيد بايد چه کار بکنم.

[M.T.P]

باید EdamdeCode رو از آخرین خط بردارین و کار تابع رو به پایان برسونید. اگه یک حلقه نامشخص دارید باید از While یا Do Until استفاده کنید.

[shahnam sha]

باز هم متشکرم ولي فکر کنم من هم همين کار رو کردم روال برنامه من به اين صورت هست که یه while دارم که تو اون یه while دیگه نوشتم وقتي که به خطا مي خورم بعد از ثبت خطا اونو به انتهاي while دوم مي برم و برنامه از اوون جا شروع میشه در اصل بعد از لیبل EdamdeCode هم کد برنامه هست که اجرا بشه.

[M.T.P]

از Resume Next به جای Goto استفاده کنید و در عین حال یه شرط if Err.Number <> 0 Then وسط While بزارین که حلقه کارش رو ادامه بده و در صورت بروز خطا اون رو گزارش کنید.


On Error Resume Next
While i < 50
'...
'..
'.
If Err.Number <> 0 Then SaveError:Err.Clear
Wend

[shahnam sha]

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