Form Üzerine Veritabanını Onar butonu nasıl Koyarım?

[bolulu]

Form Üzerine Veritabanını Onar butonu nasıl Koyarım? Bu butonun içerine tıklandıpında olayına ne yazmam lazım..

 

[icetiner]

Aynı konuyu bende bir ara düşünmüştüm ama kod yazmaktan pek anlamadığım için öylece kaldı.

 

[Haluk]

Application.CommandBars.FindControl(Id:=2071).Execute

 

[excile]

Aşağıdakini bir dene istersen

[vb:1:42af2a72b5]Private Sub Command13_Click()
On Error GoTo Err_Command13_Click


CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction


Exit_Command13_Click:
Exit Sub


Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click


End Sub[/vb:1:42af2a72b5]

 

[bestof]

Ben denedim olmuyor.

 

[excile]

ekte

 

[draydix]

Kodlar çalışıyor,ancak Türkçe sürüm kullananlar kodu aşağıdaki haliyle denemeli...

Private Sub Command13_Click()
On Error GoTo Err_Command13_Click


CommandBars("Menu Bar"). _
Controls("Araçlar"). _
Controls("Veritabanı Hizmet Programları"). _
Controls("Veritabanı düzenle ve onar..."). _
accDoDefaultAction


Exit_Command13_Click:
Exit Sub


Err_Command13_Click:
MsgBox Err.Description
Resume Exit_Command13_Click


End Sub

 

[Haluk]

Kodlar çalışıyor,ancak Türkçe sürüm kullananlar kodu aşağıdaki haliyle denemeli...

Yukarıda benim önerdiğimi kullanırsanız, İngilizce, Türkçe, Almanca .... fark etmez ... hepsinde çalışır.

 

[draydix]

Application.CommandBars.FindControl(Id:=2071).Execute
komutu hata veriyor vb kodu veya makro çalıştırırken veritabanının sıkıştıramazsınız anlamında hata mesajı veriyor

 

[icetiner]

Aynı hatayı bende aldım.Zannedersem başka konuma ekleyeceğiz.

 

[Haluk]

Benim demek istediğim şu;

Yukarıda excile tarafından verilen örnek dosyada, önerdiğim kodu şu şekilde kullanabiliriz.

Private Sub Command13_Click()
    Application.CommandBars.FindControl(ID:=2071).Execute
End Sub

Soruda istenilen, bu menünün butonla nasıl çalıştırılacağı idi. Ben sadece işin bu kısmıyla ilgilenmiştim. Ama, eğer MS Access bu komut VBA ortamında çalıştırılmaz diye bir mesaj veriyorsa onu bilemem. :mrgreen:

 

[draydix]

Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction

olarak değiştirince çalıştı

execute ile accDoDefaultAction arasındaki fark ne acaba.....

 

[bolulu]

okunmuş bilgisayarlar bölümünde yapacağın kod şöyle yaz =say([okunmuşkitaplar])

 

[bolulu]

pardon arkadaşlar başka bir soruya cevap yazarken buraya yazmışım özür dilerim..burdaki cevapa yazılan kodları denedim ama çalışmıyor.

 

[jale]

Herkese merhaba :hey:

Acaba dosyayı zip.li durumda mı çalıştırıyorsunuz.Ã?nce extract edin sonra çalıştırın bende örnek dosya çalıştı.Bu dosyayı gözüm bir yerden ısırıyor ama nereden acaba.. :hiho: :hiho:

 

[bolulu]

bendede "invalid procedure call or argument" hatası veriyor veriyor butona bastığımda jale hanım..zipi dışarı çıkarıp denedim.

 

[ffff7]

Aynı işi excel üzerinden nasıl yaptırabiliriz?

Peki excel üzerinden "mdb" yönetirken bu komutun

Application.CommandBars.FindControl(Id:=2071).Execute

nasıl olması gerekir?

Yani application olarak excel çalışan ve access yüklü bir makinede direk dosya bakımı ve onarımı yaptırılabilir mi?