Veri Tabanı Onarma

[reflection]

İyi günler. Veri tabanını onarma konusunda sitede araştırma yaptım. arkadaşlar tarafından hazırlanmış örnek kodları gördüm. uygulamamda bunları denedim fakat çalıştıramadım.
Zannedersem versiyon farklılığı ve İngilizce yada türkçe olmasından kaynaklanıyor.
şöyle bir kodla ben çalıştırabiliyorum. fakat access in türkçe olduğu versiyonlarda çalışmıyor acaba versiyon sorgulamasını yapan bir kod varmı

CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database Utilities"). _
Controls("Compact and Repair Database..."). _
accDoDefaultAction

içindekileri türkçe yazarsam türkçe versiyonda çalışıyor

 

[modalı]

Sayın reflection,

İsim yerin kontrolün id sini yazarsanız işiniz halolur.

Bir de aşağıdaki kodu deneyin:

DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl(id:=2071).accDoDefaultAction

Burada yapacağınız uygulamada menü bar adını ilgili yere yazın.

İyi çalışmalar

 

[reflection]

Bu kodda "Menü Çubuğu" yerine "Menu Bar" yazınca çalışıyor. Fakat menü çubuğu olarak kalırsa hata veriyor. çalışacak bilgisayarın accessi türkçemi ingilizcemi oladuğunu tesbit ettiremezmiyiz?

 

[modalı]

Sayın reflection,

Akşam eve dönerken aklıma yeni bir çözüm geldi. Yeni bir tollbar ekleyin adına da 1 deyin. Sonra komutlardan araçlar kümesinden Veritabanı düzenle ve onar... komutunu sürükleyip bırakın. Sonra da

DoCmd.ShowToolbar ("1"), acToolbarYes
Application.CommandBars.FindControl(id:=2071).accDoDefaultAction

olarak deneyin. Herhalde sorun aşılacak.

İyi çalışmalar

 

[reflection]

Kusura bakma uzun süredir giremedim.

Evet bu şekilde oldu. Teşekkür ederim.

Kolay Gelsin