Bakım Komut Hatası

Merhabalar, öncelikle belirtmek istiyorumki forumda belki vardır, araştırdım ancak bulamadığım için konu açtım, mükerrer oldu ise özür dilerim.

hazırlamakta olduğum bir programda Access ana penceresini gizledim özelliklerden de açılan ve kalıcı evet yaptım çalıştı. güzelde oldu, ancak bu işlemi yapmadan önce dosya bakım komutu güzel çalışıyordu. fakat Access ana penceresini gizledikten sonra

Bir makro veya visual basic kodu çalıştırırken açık veritabanını sıkıştıramazsınız
Bir makro veya kod kullanmak yerine, Araçlar menüsünden Veritabanı Hizmet Programları'nın üzerine gelin ve sonra Veritabanı Sıkıştır/Onar'ı tıklatın

şeklinde hata veriyor ve dosya bakımı yapmıyor, bu durumda yapılabilecek herhangi bişey varmı?. İlginize teşekkürler ve tekrar bir konu açtı isem peşinen özür dilerim

Access penceresini gizlemenin bir çok yolu var. Kendi uygulamalarımda benzeri hatayı engellemek için bakım butonuna aşağıdaki kodu ekliyorum


bu kod ile bakım esnasında Access penceresi tekrar gösteriliyor. Bakım sonu Access kapanıp açıldığı için veritabanı penceresi tekrar gizleniyor.

Çok teşekkür ediyorum sayın adminimize. ancak sonucu resim ekleyerek gösteriyorum olmadı. hala aynı hatayı almaktayım. teşekkür ediyorum

Dim msg As String
msg = "Lütfen Dikkat, veritabanında girdiğiniz kayıtlar tutulmaktadır. "
msg = msg & "Girdiğiniz ve/veya sildiğiniz kayıtlarla bu dosya zamanla gereksiz yere şişer."
msg = msg & "Bunun için [Veritabanı dosyası bakımı] işlemini en geç 7 günde bir yaparsanız, "
msg = msg & "gereksiz şişkinlikler dosyanızdan atılacak, dolayısıyla dosyanızın boyutu küçülecektir." & vbCrLf & vbCrLf
msg = msg & "Özellikle hafta sonları yedeklemelerden önce" & vbCrLf
msg = msg & "[Veritabanı dosyası bakımı] işlemini uygulamanız tavsiye edilir." & vbCrLf & vbCrLf
msg = msg & "Evet'i Seçerseniz...Programın Düzenlenip Onarılabilmesi için Kapatılması Gerekiyor " & vbCrLf & vbCrLf

msg = msg & "Şimdi veritabanı dosyanızın bakımını yapacak mısınız?" & vbCrLf & vbCrLf
If MsgBox(msg, vbQuestion + vbYesNo, "Veritabanı dosyası bakımı") = vbNo Then Exit Sub
'hayır denilirse ana menüye geri dönülüyor
'evet denilirse on andaki tarih ve saati BAKIMTABLOSU ndaki bakimtarihi alanına tarihi saati ile yazdırıyoruz.
'anamenüde en son bakım yapılan zaman olarak göstertileceği için

'Aşağıdan itibaren de bakım işlemini yaptırıyoruz
DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
Application.CommandBars.FindControl.accDoDefaultAction

'DoCmd.ShowToolbar ("Menü Çubuğu"), acToolbarYes
'Application.CommandBars.FindControl(ID:=2071).accDoDefaultAction
...................birde bu kodları deneyiniz..........

Sayın C*E*L*O*Y*C*E, İlgi ve alakanıza teşekkür ederim. ancak yine olmadı, zira hatayı vermedi tamam, ama bakımda yapmadı. komut işlev yapmadan tekrar aynı forma hata vermeden döndü. şu an saat 23.21 ve hala bunla uğraşmaktayım. hala çözemedim

Sn access06 örnek eklerseniz daha kolay yanıt alabilirsiniz