الأربعاء، 16 مايو 2018
  2 الردود
  5.1 ألف زيارة
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
نهاية الفرعية
منذ سنوات 5
·
#1586
0
الأصوات
فك
مرحبا،
عذرًا، لا يمكنك الوصول إلى وظائف أو ميزات البرنامج الموجودة في رمز VBA. :)
نحن لا ندعم مثل هذه العملية حتى الآن.
هذا دعم رائع! سأكون متأكدًا من إلغاء جميع تسجيلاتنا عند انتهاء فترة الثلاث سنوات!
راجع للشغل - الحل هو إزالة سطر التعليمات البرمجية فقط (إذا كان الخطأ <> 0، فإن MsgBox "لا يمكن تنشيط ODBC. ربما تم حذفه أو إعادة تسميته.)
  • الصفحة:
  • 1
لا توجد ردود لهذا المنصب حتى الآن.