Çarşamba, 16 Mayıs 2018
  2 Cevaplar
  5.1K Ziyaret
Çalışma Sayfası Araçları, Düğmelerle Dizin Sayfası Oluştur (VBA) kullanıyorum. Düğmelerden birini seçtiğimde, kod olması gerektiği gibi çalışıyor, ancak "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir." hata. Tüm sayfalar için aynı şeyi yapar. Sorun ne?? Kod aşağıdaki gibidir:

Alt GoToButton1_Click()
On Error Resume Next
Sayfalar("ODBC").Etkinleştir
Hata <> 0 ise MsgBox "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton2_Click()
On Error Resume Next
E-Tablolar ("Ana"). Etkinleştir
Hata <> 0 ise MsgBox "Master etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton3_Click()
On Error Resume Next
Sayfalar("TÜMÜ").Etkinleştir
Hata <> 0 ise MsgBox "TÜMÜ etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton4_Click()
On Error Resume Next
Sayfalar("ÜCRETLİ").Etkinleştir
Err <> 0 ise MsgBox "PAID etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton5_Click()
On Error Resume Next
Sayfalar("YERLEŞTİRİLDİ").Etkinleştir
Hata <> 0 ise MsgBox "SETTLED etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton6_Click()
On Error Resume Next
Sayfalar("KAPALI").Etkinleştir
Hata <> 0 ise MsgBox "KAPALI etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton7_Click()
On Error Resume Next
Sayfalar("YAŞAYAN DEĞİL").Etkinleştir
Eğer Err <> 0 ise MsgBox "NON-VIABLE etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton8_Click()
On Error Resume Next
Sheets("YASAL").Etkinleştir
Hata <> 0 ise MsgBox "YASAL etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0
End Sub

Alt GoToButton9_Click()
On Error Resume Next
Sayfalar("ÖZET").Etkinleştir
Hata <> 0 ise MsgBox "ÖZET etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir."
Hata Dönüsünde 0 KUTools VBERror.PNG KUTools VBERror.PNG KUTools VBERror.PNG
End Sub
5 yıl önce
·
#1586
Merhaba,
Üzgünüz, yazılımın işlevlerine veya özelliklerine bir VBA kodunda erişemezsiniz. :)
Henüz böyle bir işlemi desteklemiyoruz.
Bu harika bir destek! 3 yıllık süre dolduğunda kesinlikle tüm kayıtlarımızı iptal edeceğim!
BTW - Çözüm sadece kod satırını kaldırmaktır (Eğer Err <> 0 ise MsgBox "ODBC etkinleştirilemiyor. Silinmiş veya yeniden adlandırılmış olabilir.)
  • Sayfa:
  • 1
Bu gönderi için henüz cevap yok.