Skip to main content

AccessTr.neT


Bakım Komut Hatası

Bakım Komut Hatası

Çözüldü #1
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
Cevapla
Çözüldü #2
Access penceresini gizlemenin bir çok yolu var. Kendi uygulamalarımda benzeri hatayı engellemek için bakım butonuna aşağıdaki kodu ekliyorum

Kod:
fSetAccessWindow (SW_SHOWMAXIMIZED)
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.
Cevapla
Çözüldü #3
Çok teşekkür ediyorum sayın adminimize. ancak sonucu resim ekleyerek gösteriyorum olmadı. hala aynı hatayı almaktayım. teşekkür ediyorum
Cevapla
Çözüldü #4
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..........
Cevapla
Çözüldü #5
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 Sadd
Cevapla
Çözüldü #6
Sn access06 örnek eklerseniz daha kolay yanıt alabilirsiniz
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task