AccessTr.neT

Bul · 23/02/2021, 21:59

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.

Bul · 23/02/2021, 22:03

Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-acces...#pid177791

Bul · 23/02/2021, 22:37

Shell komutu ilede açılır.

Bul · 23/02/2021, 22:58

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

Visual Basic Code

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

Bul · 23/02/2021, 23:53

(23/02/2021 22:03)berduş Adlı Kullanıcıdan Alıntı: Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-acces...#pid177791

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

(23/02/2021 22:58)feraz Adlı Kullanıcıdan Alıntı: YILDIZ_VeriTabaný bunu kendiniz yazın Tr karakter olayından dolayı.
Visual Basic Code
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.

AccessTr.neT

Butonla Excelden Access Veri Tabanını Açmak

Butonla Excelden Access Veri Tabanını Açmak

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

Giriş yap

Hesap oluştur

Konu Linkleri