Butonla Excelden Access Veri Tabanını Açmak

Butonla Excelden Access Veri Tabanını Açmak - 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ığı: Butonla Excelden Access Veri Tabanını Açmak (/konu-butonla-excelden-access-veri-tabanini-acmak.html)

Butonla Excelden Access Veri Tabanını Açmak - hayalibey - 23/02/2021

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.

RE: Butonla Excelden Access Veri Tabanını Açmak - berduş - 23/02/2021

Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-accesse-veri-alip-gonderme.html?pid=177791#pid177791

RE: Butonla Excelden Access Veri Tabanını Açmak - feraz - 23/02/2021

Shell komutu ilede açılır.

RE: Butonla Excelden Access Veri Tabanını Açmak - feraz - 23/02/2021

YILDIZ_VeriTabaný bunu kendiniz yazın Tr karakter olayından dolayı.

Sub Ac()

    Dim adres As String, obj As Object

    adres = ThisWorkbook.Path & "\YILDIZ_VeriTabaný.accdb"

    Set obj = CreateObject("Shell.Application")

    If Dir(adres) <> "" Then

        obj.ShellExecute(adres)

    End If

    Set obj = Nothing

End Sub

RE: Butonla Excelden Access Veri Tabanını Açmak - hayalibey - 23/02/2021

(23/02/2021, 22:03)berduş yazdı: Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-accesse-veri-alip-gonderme.html?pid=177791#pid177791

Berduş Hocam çok teşekkür ederim.
Elinize emeğinize yüreğinize sağlık.

(23/02/2021, 22:58)feraz yazdı: YILDIZ_VeriTabaný bunu kendiniz yazın Tr karakter olayından dolayı.

Sub Ac()

    Dim adres As String, obj As Object

    adres = ThisWorkbook.Path & "\YILDIZ_VeriTabaný.accdb"

    Set obj = CreateObject("Shell.Application")

    If Dir(adres) <> "" Then

        Call obj.ShellExecute(adres)

    End If

    Set obj = Nothing

End Sub

Zafer Hocam çok teşekkür ederim.
Elinize emeğinize yüreğinize sağlık.