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