![]() |
Bakım Komut Hatası - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Bakım Komut Hatası (/konu-bakim-komut-hatasi.html) |
Bakım Komut Hatası - access06 - 20/02/2010 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 Cvp: Bakım Komut Hatası - ozanakkaya - 20/02/2010 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) Cvp: Bakım Komut Hatası - access06 - 20/02/2010 Çok teşekkür ediyorum sayın adminimize. ancak sonucu resim ekleyerek gösteriyorum olmadı. hala aynı hatayı almaktayım. teşekkür ediyorum Cvp: Bakım Komut Hatası - C*e*l*o*y*c*e - 20/02/2010 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.......... Cvp: Bakım Komut Hatası - access06 - 21/02/2010 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 ![]() Cvp: Bakım Komut Hatası - Puletin - 21/02/2010 Sn access06 örnek eklerseniz daha kolay yanıt alabilirsiniz |