Merhaba,
Şöyle bir sorunum var;
Bir düğme yardımıyla exe uzantılı bir uygulama çalıştırmak istiyorum.
Private Sub uygulamaçalıştır_Click()
On Error GoTo Err_uygulamaçalıştır_Click
Dim stAppName As String
stAppName = Me.uygulama
Call Shell(stAppName, 2)
Exit_uygulamaçalıştır_Click:
Exit Sub
Err_uygulamaçalıştır_Click:
MsgBox Err.Description
Resume Exit_uygulamaçalıştır_Click
End Sub
Yukarıdaki kodlarla Shell fonksiyonunu kullanarak bunu yapabiliyoruz. Ancak benim sorunum şu:
Dosya açıldığında, Access penceresinin arkasında kalıyor. Görüntüleyebilmek için açıldıktan sonra mausla pencereye tıklatmak zorunda kalıyorum. Ben, uygulama açılınca karşıma gelsin istiyorum. Aslında bunun uygulamadan kaynaklandığını düşünüyorum. Örneğin Windowsun hesap makinesini istediğim gibi çalıştırıyor ama benim exe uzantılı dosyamı istediğim gibi açmıyor. Uygulama açıldığında karşıma gelmesini nasıl sağlarım veya exe uzantılı bir uygulamayı farklı bir metodla (istediğim şekilde) açabilirmiyiz?
İyi günler.
Şöyle bir sorunum var;
Bir düğme yardımıyla exe uzantılı bir uygulama çalıştırmak istiyorum.
Private Sub uygulamaçalıştır_Click()
On Error GoTo Err_uygulamaçalıştır_Click
Dim stAppName As String
stAppName = Me.uygulama
Call Shell(stAppName, 2)
Exit_uygulamaçalıştır_Click:
Exit Sub
Err_uygulamaçalıştır_Click:
MsgBox Err.Description
Resume Exit_uygulamaçalıştır_Click
End Sub
Yukarıdaki kodlarla Shell fonksiyonunu kullanarak bunu yapabiliyoruz. Ancak benim sorunum şu:
Dosya açıldığında, Access penceresinin arkasında kalıyor. Görüntüleyebilmek için açıldıktan sonra mausla pencereye tıklatmak zorunda kalıyorum. Ben, uygulama açılınca karşıma gelsin istiyorum. Aslında bunun uygulamadan kaynaklandığını düşünüyorum. Örneğin Windowsun hesap makinesini istediğim gibi çalıştırıyor ama benim exe uzantılı dosyamı istediğim gibi açmıyor. Uygulama açıldığında karşıma gelmesini nasıl sağlarım veya exe uzantılı bir uygulamayı farklı bir metodla (istediğim şekilde) açabilirmiyiz?
İyi günler.