Tôi đang sử dụng Công cụ Trang tính, Tạo Trang Chỉ mục với các nút (VBA). Khi tôi chọn một trong các nút, mã sẽ chạy như bình thường, ngoại trừ, nó tiếp tục thông báo "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên." lỗi. Nó làm tương tự cho tất cả các trang tính. Có vấn đề gì vậy ?? Mã như sau:
Sub GoToButton1_Click ()
On Error Resume Next
Trang tính ("ODBC"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton2_Click ()
On Error Resume Next
Trang tính ("Chính"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt Master. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton3_Click ()
On Error Resume Next
Trang tính ("TẤT CẢ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt TẤT CẢ. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton4_Click ()
On Error Resume Next
Trang tính ("TRẢ TIỀN"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt PAID. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton5_Click ()
On Error Resume Next
Trang tính ("SETTLED"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SETTLED. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton6_Click ()
On Error Resume Next
Trang tính ("ĐÃ ĐÓNG CỬA"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ĐÃ ĐÓNG CỬA. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton7_Click ()
On Error Resume Next
Trang tính ("KHÔNG THỂ XEM"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt KHÔNG THỂ VIẾT ĐƯỢC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton8_Click ()
On Error Resume Next
Trang tính ("PHÁP LÝ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt HỢP PHÁP. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton9_Click ()
On Error Resume Next
Trang tính ("SUMMARY"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SUMMARY. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton1_Click ()
On Error Resume Next
Trang tính ("ODBC"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ODBC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton2_Click ()
On Error Resume Next
Trang tính ("Chính"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt Master. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton3_Click ()
On Error Resume Next
Trang tính ("TẤT CẢ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt TẤT CẢ. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton4_Click ()
On Error Resume Next
Trang tính ("TRẢ TIỀN"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt PAID. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton5_Click ()
On Error Resume Next
Trang tính ("SETTLED"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SETTLED. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton6_Click ()
On Error Resume Next
Trang tính ("ĐÃ ĐÓNG CỬA"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt ĐÃ ĐÓNG CỬA. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton7_Click ()
On Error Resume Next
Trang tính ("KHÔNG THỂ XEM"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt KHÔNG THỂ VIẾT ĐƯỢC. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton8_Click ()
On Error Resume Next
Trang tính ("PHÁP LÝ"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt HỢP PHÁP. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub
Sub GoToButton9_Click ()
On Error Resume Next
Trang tính ("SUMMARY"). Kích hoạt
If Err <> 0 Then MsgBox "Không thể kích hoạt SUMMARY. Nó có thể đã bị xóa hoặc đổi tên."
Về lỗi GoTo 0
End Sub