أنا أستخدم أدوات ورقة العمل، وأنشئ ورقة فهرس باستخدام الأزرار (VBA). عندما أقوم بتحديد أحد الأزرار، يتم تشغيل التعليمات البرمجية كما ينبغي، باستثناء استمرار ظهور رسالة "لا يمكن تنشيط ODBC. ربما تم حذفه أو إعادة تسميته." خطأ. يفعل الشيء نفسه بالنسبة لجميع الأوراق. ما هي المشكلة؟؟ رمز على النحو التالي:
GoToButton1_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("ODBC").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تنشيط ODBC. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton2_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("الرئيسية").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تنشيط الملف الرئيسي. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton3_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("الكل").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تفعيل الكل. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton4_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("المدفوعة").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تفعيل PAID. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton5_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("تم التسوية").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تفعيل SETTLED. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton6_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("مغلقة").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تفعيل CLOSED. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton7_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("غير قابلة للحياة").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تنشيط NON-VIABLE. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton8_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("قانونية").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تفعيل LEGAL. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية
GoToButton9_Click() الفرعي
على خطأ استئناف التالي
الأوراق ("الملخص").تنشيط
إذا Err <> 0 ثم MsgBox "لا يمكن تنشيط SUMMARY. ربما تم حذفه أو إعادة تسميته."
على خطأ GoTo 0
نهاية الفرعية