(28/01/2018, 03:29)mehmetdemiral yazdı: Sayın Demir, yazdıklarınızdan hiçbir şey anlamadım. Başta zaten o kodla olmadığını belirtmiştiniz. O kod aynı uygulama içerisindeki bir formu açar. Dışarıdan bir formu açmak istediğinizi belirtmişsiniz. Daha sonra da bu kodla açtım ama şifre aktif olmuyor demişsiniz. İnanın bu yazılanlardan bir şey anlaşılmıyor. Okuyan üyelerin yararlanması için daha açıklamalı yazar mısınız?

Hocam Benim 4 adet access  programım var. Bu programları açtığım zaman parola formu açılıyor. parolayı girdikten sonra kullanacağım formlar açılıyor. Bir tane forum oluşturdum ve 4 adet buton ekledim.  Docmd.OpenForm "Form Adı"  kodu butonlara ekleyerek Access programlarımı açmaya çalıştım. İlk Butona tıkladığım zaman açmak istediğim Access programının parola formu açıldı ve parola formu pasif durumda açıldı. Aynı kodu ikinci butona uyguladığım zaman ikinci Access programını açmadı.

Benim size önerim, ayrı ayrı programlarınızı tek bir ana yapıda birleştirmeniz. Bu arada dataları da bölerek bağlı tablo yapısı kullanın. Ayrıca eğer 1. butondaki kodlarınız doğru programı ve doğru formu açtıysa, 2. butonun açmaması diye bir şey olmaz. Bir de eğer bir form parola formu olarak yapıldıysa neden parola sormaz, bunu da anlamadım. Sanırım sizin veritabanınız şifreli, onu kastediyorsunuz. Burada yazdığınız form açma kodu local dosyadaki kodu açabilir. Başka bir dosyadaki formu açmak için önce o dosyayı açmalısınız. Zaman bulabilirsem size örnek hazırlayacağım.

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.

Çok, Çok Teşekkürler Hocam ellerinize sağlık verdiğiniz bu değerli bilgiler için.