AccessTr.neT
Excel Üzerinden Accessi Sıkıştır ve Onar - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Üzerinden Accessi Sıkıştır ve Onar (/konu-excel-uzerinden-accessi-sikistir-ve-onar.html)



Excel Üzerinden Accessi Sıkıştır ve Onar - hayalibey - 21/02/2021

Merhaba arkadaşlar macro ile Excel üzerinden buton yardımı ile masa üstünde  C:\Users\YILDIZ\Desktop\  konumunda bulunan YILDIZ_VeriTabanı adlı dosyayı sıkıştır ve onar yapmak istiyorum.
Yardımcı olabilecek olan var mı acaba


RE: Excel Üzerinden Accessi Sıkıştır ve Onar - berduş - 22/02/2021

aşağıdaki kodu accesse aktarma butonuna ekleyip dener misiniz
            MsgBox "aktarım tamam" satırının hemen üstüne
            AccessCon.Close
'hy__________________________________________CompactRepair
Dim Acc As Object
Set Acc = CreateObject("access.application")
VTAdres = ThisWorkbook.Path & "\"
VTAsli = VTAdres & "YILDIZ_VeriTabanı.accdb"
VTTmp = VTAdres & "TmpSil.accdb"
Acc.DBEngine.CompactDatabase VTAsli, VTTmp
Acc.Quit
Set Acc = Nothing
Kill VTAsli
Name VTTmp As VTAsli

eğer kod bağımsız çalışacaksa en üstteki  AccessCon.Close satırı silinip bir butona atanabilir


RE: Excel Üzerinden Accessi Sıkıştır ve Onar - hayalibey - 22/02/2021

Hocam kod çalıştı hata vermedi. O zaman demekki sıkıştırma ve onarma yapmıştır.
Çok teşekkür ederim.
Allaha emanet olun.


RE: Excel Üzerinden Accessi Sıkıştır ve Onar - berduş - 22/02/2021

Rica ederim
İyi çalışmalar