Ես օգտագործում եմ Worksheet Tools, Ստեղծեք ինդեքսային թերթիկ կոճակներով (VBA): Երբ ես ընտրում եմ կոճակներից մեկը, կոդը աշխատում է այնպես, ինչպես պետք է, բացառությամբ, որ այն շարունակում է «Չի կարող ակտիվացնել ODBC-ն: Այն կարող է ջնջվել կամ վերանվանվել է»: սխալ. Այն նույնն է անում բոլոր թերթիկների համար: Ինչումն է խնդիրը?? Կոդը հետևյալն է.
Sub GoToButton1_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ODBC»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ODBC-ն: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton2_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («Վարպետ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել Master-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton3_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ALL»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ԲՈԼՈՐԸ: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton4_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՎՃԱՐՈՎ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել PAID-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton5_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՍՏԵՏԼՎԱԾ»): Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել SETTLED-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton6_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՓԱԿ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ՓԱԿԸ: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton7_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՈՉ Կենսունակ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox "Cannot activate NON-VIABLE: Հնարավոր է, որ այն ջնջված է կամ վերանվանվել է:"
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton8_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՕՐԵՆԱԿԱՆ»): Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել LEGAL-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton9_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ԱՄՓՈՓՈՒՄ»).Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել SUMMARY-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton1_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ODBC»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ODBC-ն: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton2_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («Վարպետ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել Master-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton3_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ALL»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ԲՈԼՈՐԸ: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton4_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՎՃԱՐՈՎ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել PAID-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton5_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՍՏԵՏԼՎԱԾ»): Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել SETTLED-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton6_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՓԱԿ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել ՓԱԿԸ: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton7_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՈՉ Կենսունակ»): Ակտիվացրեք
Եթե սխալ <> 0, ապա MsgBox "Cannot activate NON-VIABLE: Հնարավոր է, որ այն ջնջված է կամ վերանվանվել է:"
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton8_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ՕՐԵՆԱԿԱՆ»): Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել LEGAL-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub
Sub GoToButton9_Click()
Ս.թ. սխալի Ռեզյումե Next
Թերթեր («ԱՄՓՈՓՈՒՄ»).Ակտիվացնել
Եթե սխալ <> 0, ապա MsgBox «Հնարավոր չէ ակտիվացնել SUMMARY-ը: Այն կարող է ջնջվել կամ վերանվանվել»:
Սխալի դեպքում GoTo 0
Վերջ Sub