مشاهده نسخه کامل
: moshaveran
15-10-2011, 14:22
دوستان من تويكي از ماژول هاي برنامم دو بار از دستور On Error Goto استفاده كردم. ولي فقط اولي اجرا ميشه و و وقتي ارروري رخ مي ده و بايد بره سراغ دستور دومي، نميره. مشكل كجاست؟ (مثلا در زير اگر تصويري در مسير نباشه پيغام ميده ولي اگه توي load گريد ارروري پيش بياد نميره سراغ خط StartError:41:)
On Error GoTo AddErr
pic = "D:\picture.jpg"
Form2.Image.Picture = LoadPicture(pic)
AddErr:
Unload Me
("!تصوير مورد نظر يافت نشد")MsgBox
On Error GoTo StartError
mn = "Select * From Table"
rs.Open mn, strcon, adOpenStatic, adLockOptimistic
Form2.Grid1.DataSource = rs1
StartError:
MsgBox Err.Description
On Error GoTo AddErr
pic = "D:\picture.jpg"
Form2.Image.Picture = LoadPicture(pic)
AddErr:
Unload Me
("!تصوير مورد نظر يافت نشد")MsgBox
On Error GoTo StartError
mn = "Select * From Table"
rs.Open mn, strcon, adOpenStatic, adLockOptimistic
Form2.Grid1.DataSource = rs1
StartError:
MsgBox Err.Description