Skip to main content

AccessTr.neT


Excel Üzerinden Accessi Sıkıştır ve Onar

Excel Üzerinden Accessi Sıkıştır ve Onar

Çözüldü #1
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
Son Düzenleme: 21/02/2021, 22:11, Düzenleyen: hayalibey.
Cevapla
#2
aşağıdaki kodu accesse aktarma butonuna ekleyip dener misiniz
            MsgBox "aktarım tamam" satırının hemen üstüne
Visual Basic Code
            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
Son Düzenleme: 22/02/2021, 00:03, Düzenleyen: berduş.
Cevapla
#3
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.
Cevapla
#4
Rica ederim
İyi çalışmalar
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da