I'm using the Worksheet Tools, Create an Index Sheet with buttons (VBA). When I select one of the buttons the code runs as it should, except, it keeps throwing a "Cannot activate ODBC. It may have been deleted or renamed." error. It does the same for all sheets. What's the problem?? The code is as follows: Sub GoToButton1_Click() On Error Resume Next Sheets("ODBC").Activate If Err <> 0 Then MsgBox "Cannot activate ODBC. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton2_Click() On Error Resume Next Sheets("Master").Activate If Err <> 0 Then MsgBox "Cannot activate Master. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton3_Click() On Error Resume Next Sheets("ALL").Activate If Err <> 0 Then MsgBox "Cannot activate ALL. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton4_Click() On Error Resume Next Sheets("PAID").Activate If Err <> 0 Then MsgBox "Cannot activate PAID. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton5_Click() On Error Resume Next Sheets("SETTLED").Activate If Err <> 0 Then MsgBox "Cannot activate SETTLED. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton6_Click() On Error Resume Next Sheets("CLOSED").Activate If Err <> 0 Then MsgBox "Cannot activate CLOSED. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton7_Click() On Error Resume Next Sheets("NON-VIABLE").Activate If Err <> 0 Then MsgBox "Cannot activate NON-VIABLE. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton8_Click() On Error Resume Next Sheets("LEGAL").Activate If Err <> 0 Then MsgBox "Cannot activate LEGAL. It may have been deleted or renamed." On Error GoTo 0 End Sub Sub GoToButton9_Click() On Error Resume Next Sheets("SUMMARY").Activate If Err <> 0 Then MsgBox "Cannot activate SUMMARY. It may have been deleted or renamed." On Error GoTo 0 <img src="https://www.extendoffice.com/index.php?option=com_easydiscuss&controller=attachment&task=download&tmpl=component&id=109" alt="KUTools VBError.PNG" /> <img src="https://www.extendoffice.com/index.php?option=com_easydiscuss&controller=attachment&task=download&tmpl=component&id=109" alt="KUTools VBError.PNG" /> <img src="https://www.extendoffice.com/index.php?option=com_easydiscuss&controller=attachment&task=download&tmpl=component&id=109" alt="KUTools VBError.PNG" /> End Sub

նոր

Worksheet Tools - նետում «Հնարավոր չէ ակտիվացնել» սխալը

Excel- ի համար նախատեսված գործիքներ

Չորեքշաբթի, 16 Մայիս 2018

2 Գրառումներ

5.1K այցելություններ

Քվեարկել

արձակել

Ես օգտագործում եմ 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 KUTools VBError.PNG

Վերջ Sub

քյուհոնգկուն

5 տարի առաջ

#1586

Քվեարկել

արձակել

Բարեւ,
Ներեցեք, դուք չեք կարող մուտք գործել ծրագրաշարի գործառույթները կամ առանձնահատկությունները VBA կոդով:

Մենք դեռ չենք աջակցում նման գործողությանը։

5 տարի առաջ

#1587

Քվեարկել

արձակել

Դա հիանալի աջակցություն է: Ես անպայման կչեղարկեմ մեր բոլոր գրանցումները, երբ լրանա 3 տարի ժամկետը:
BTW - Լուծումը պարզապես կոդի տողը հեռացնելն է (If Err <> 0 then MsgBox "Cannot activate ODBC: It may have been deleted or renameed.)

էջ:
1

Այս գրառման համար դեռևս պատասխաններ չեն տրվել:

Խնդրում ենք մուտք գործել՝ պատասխան փակցնելու համար

Դուք պետք է մուտք գործեք, որպեսզի կարողանաք պատասխան փակցնել: Մուտք գործեք՝ օգտագործելով աջ կողմում գտնվող ձևը կամ գրանցեք հաշիվ, եթե նոր եք այստեղ: Գրանցվել այստեղ »