By alexoconnellsr@gmail.com يوم الأربعاء 16 مايو 2018
الردود 2
الإعجابات 0
المشاهدات 5.1K
الأصوات 0
أنا أستخدم أدوات ورقة العمل، وأنشئ ورقة فهرس باستخدام الأزرار (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 KUTools VBError.PNG
KUTools VBError.PNG
KUTools VBError.PNG

نهاية الفرعية
مرحبا،
عذرًا، لا يمكنك الوصول إلى وظائف أو ميزات البرنامج الموجودة في رمز VBA.
نحن لا ندعم مثل هذه العملية حتى الآن.
·
منذ سنوات 5
·
0 يحب
·
الأصوات 0
·
0 تعليقات
·
هذا دعم رائع! سأكون متأكدًا من إلغاء جميع تسجيلاتنا عند انتهاء فترة الثلاث سنوات!
راجع للشغل - الحل هو إزالة سطر التعليمات البرمجية فقط (إذا كان الخطأ <> 0، فإن MsgBox "لا يمكن تنشيط ODBC. ربما تم حذفه أو إعادة تسميته.)
·
منذ سنوات 5
·
0 يحب
·
الأصوات 0
·
0 تعليقات
·
عرض مشاركة كاملة