- Katılım
- 31 Aralık 2005
- Mesajlar
- 4,369
- Excel Vers. ve Dili
- Office 365 (64 bit) - Türkçe
http://www.excel.web.tr/showthread.php?t=24306
Linkteki sorum için "MS Access" referansı ekleyerek Access sıkıştırma komutu kullanmıştım.
Yardım menülerini altüst ettikten sonra bunun "DAO" ile çözümünü buldum.
Bu konu ile ilgilenen arkadaşlara umarım faydalı olur.
Linkteki sorum için "MS Access" referansı ekleyerek Access sıkıştırma komutu kullanmıştım.
Yardım menülerini altüst ettikten sonra bunun "DAO" ile çözümünü buldum.
Bu konu ile ilgilenen arkadaşlara umarım faydalı olur.
Kod:
Sub VT_Sıkıştır_ve_Onar()
Dim veritabanı As Database
'Yalnızca Onarmak için, alt satırdaki gibi olacak.
'DBEngine.RepairDatabase "C:\veri.mdb"
veritabanı.Close 'veritabanı açıksa bağlantı kesilmeli.
DBEngine.CompactDatabase "C:\veri.mdb", _
"C:\Yeniveri.mdb", dbLangTurkish ' "veri.mdb" veri tabanımızı "Yeniveri.mdb" olarak sıkıştırıyoruz.
Kill "C:\veri.mdb" ' "veri.mdb" dosyamızı siliyoruz.
Name "C:\Yeniveri.mdb" As "C:\veri.mdb" ' "Yeniveri.mdb" dosyası adını yine eski dosyamız olan _
"veri.mdb" olarak değiştiryoruz.
End Sub