4 nolu mesajda Direnist arkadaşımın verdiği kodları denedim. Bir form üzerine iki düğme koydum ve masaüstümde bulunan iki örnek Access dosyasını gayet güzel açabildim. Açılacak dosyalarda açılışta bir açılış formu olmazsa, kodlar işe yaramıyor. Verilen kodda açılan Access dosyası içinden bir form açma işi eğer program açıldığında bir form ile açılmıyorsa, tasarım görünümünde açılıyorsa işe yaramıyor. BU nedenle benim kullandığım biçimiyle kodları aşağıya ekliyorum tekrar.
Private Sub Komut1_Click()
Dim appAccess As Access.Application
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "D:\SSD\desktop\MDSOFT YENİ ŞİFRE PROGRAMI.mde" 'Buraya hangi Access uygulamasından form açmak istiyorsanız onun yolunu yazınız
'appAccess.DoCmd.OpenForm "Form1" 'Buraya da o Access uygulaması içindeki açmak istediğiniz form adınız yazınız.
Set appAccess = Nothing
End Sub
Farkındaysanız
'appAccess.DoCmd.OpenForm "Form1" satırı işletilmeyecektir, başında iptali (') var.
Bir hatırlatma daha: Accessi gizli olan dosyalar da bu yolla çalışmıyor.
İnadına, ille de Accesstr.net...