كود لتتبع الخطأ فى برنامجك واظهار رسالة تصف الخطأ
'بداية معالج الخطأ On Error GoTo ErrHandler 'هنا يوضع الكود 'إنهاء تتبع الأخطاء والخروج من الإجراء On Error GoTo 0 Exit Function ErrHandler: Dim strErr As String strErr = "Error " & Err.Number & " " & Err.Description MsgBox strErr, vbCritical + vbOK, "Error message"


