On Error GoTo Ms
MsgBox("GGG")
Exit Sub
ms:
MsgBox(Err.Description)
____________________________________
'أكتب في بداية كل كود
On Error Resume Next
'أي عند أي خطا تجاهله وأستمر بتنفيذ الكود
____________________________________
Please SUBSCRIBE to get new articles directly into your Email inbox!
MsgBox("GGG")
Exit Sub
ms:
MsgBox(Err.Description)
____________________________________
'أكتب في بداية كل كود
On Error Resume Next
'أي عند أي خطا تجاهله وأستمر بتنفيذ الكود
____________________________________
Try
MsgBox("GGG")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق