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
#2
Aşağıdaki bağlantıdaki 14. mesajda Access açma kodu mevcut.
https://accesstr.net/konu-excelden-acces...#pid177791
Cevapla
#3
Shell komutu ilede açılır.
Cevapla
#4
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
Cevapla
#5
(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-acces...#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.
Son Düzenleme: 23/02/2021, 23:55, Düzenleyen: hayalibey.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task