By alexoconnellsr@gmail.com չորեքշաբթի, 16 մայիսի 2018 թ
Գրառումներ 2
Սիրում 0
Դիտումներ 5.1K
Քվեարկել 0
Ես օգտագործում եմ 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
KUTools VBError.PNG
KUTools VBError.PNG

Վերջ Sub
Բարեւ,
Ներեցեք, դուք չեք կարող մուտք գործել ծրագրաշարի գործառույթները կամ առանձնահատկությունները VBA կոդով:
Մենք դեռ չենք աջակցում նման գործողությանը։
·
5 տարի առաջ
·
0 Սիրում
·
0 քվե
·
0 Comments
·
Դա հիանալի աջակցություն է: Ես անպայման կչեղարկեմ մեր բոլոր գրանցումները, երբ լրանա 3 տարի ժամկետը:
BTW - Լուծումը պարզապես կոդի տողը հեռացնելն է (If Err <> 0 then MsgBox "Cannot activate ODBC: It may have been deleted or renameed.)
·
5 տարի առաջ
·
0 Սիրում
·
0 քվե
·
0 Comments
·
Դիտել ամբողջական գրառումը