Szerda, 16 május 2018
  2 Válaszok
  5K látogatás
0
Szavazatok
Kibont
A Munkalapeszközöket használom: Készítsen indexlapot gombokkal (VBA). Amikor kiválasztom az egyik gombot, a kód úgy fut, ahogy kell, kivéve, hogy folyamatosan a "Nem lehet aktiválni az ODBC-t. Lehet, hogy törölték vagy átnevezték." hiba. Ugyanezt teszi minden lapnál. Mi a baj?? A kód a következő:

Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Az ODBC nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton2_Click()
On Error Resume Next
Sheets ("Master"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem lehet aktiválni a Mestert. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Az ÖSSZES nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton4_Click()
On Error Resume Next
Sheets("FIZETETT"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem lehet aktiválni a PAID-t. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton5_Click()
On Error Resume Next
Sheets("TELEPÍTETT"). Aktiválja
Ha Err <> 0 Akkor MsgBox "A SETTLED nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton6_Click()
On Error Resume Next
Lapok("ZÁRVA"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható ZÁRVA. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton7_Click()
On Error Resume Next
Sheets("ÉLÉPTELEN"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható NEM ÉLŐképes. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL"). Aktiválja
Ha Err <> 0 Akkor MsgBox "A LEGAL nem aktiválható. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0
End Sub

Sub GoToButton9_Click()
On Error Resume Next
Sheets("ÖSSZEFOGLALÓ"). Aktiválja
Ha Err <> 0 Akkor MsgBox "Nem aktiválható az ÖSSZEFOGLALÓ. Lehet, hogy törölték vagy átnevezték."
Hiba történt GoTo 0 KUTools VBERror.PNG KUTools VBERror.PNG KUTools VBERror.PNG
End Sub
0
Szavazatok
Kibont
Helló,
Sajnáljuk, nem érheti el a szoftver funkcióit vagy szolgáltatásait VBA-kódban. :)
Egyelőre nem támogatjuk ezt a műveletet.
Ez nagyszerű támogatás! A 3 éves időszak letelte után minden regisztrációnkat törölni fogok!
BTW - A megoldás az, hogy egyszerűen eltávolítjuk a kódsort (Ha Err <> 0, akkor MsgBox "Nem lehet aktiválni az ODBC-t. Lehet, hogy törölték vagy átnevezték.)
  • Oldal:
  • 1
Erre a bejegyzésre még nem válaszoltak.