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
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
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.
Rica ederim
İyi çalışmalar