Skip to main content

AccessTr.neT


Butonla Excelden Access Veri Tabanını Açmak

Butonla Excelden Access Veri Tabanını Açmak

Çözüldü #1
Herkese Merhaba
Berduş Hocamın yazmış olduğu aşağıdaki kodlarla butona atayarak belirtilen konumdaki accessi sıkıştır ve onar yapabiliyorum.
Kod:
Sub Sıkıştır ()
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
End Sub

Bu kodları revize ederek buton vasıtası ile Excelden YILDIZ_VeriTabanı.accdb isimli Access dosyasını nasıl açabilirim acaba
Yani konumdaki Access dosyayı açılıp ekrana gelsin.
Yardımcı olabilecek olan varsa çok sevinirim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Butonla Excelden Access Veri Tabanını Açmak - Yazar: hayalibey - 23/02/2021, 21:59
Task