Skip to main content

AccessTr.neT


Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak

Oğuz Türkyılmaz
Oğuz Türkyılmaz
12
3032

Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak

#13
(28/09/2018, 18:06)ozanakkaya yazdı: Merhaba, 

Uygulamanızdaki "Senet Hazırla" isimli modülün kodlarını aşağıdaki ile değiştirin.

Option Compare Database

#If VBA7 Then
   Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#Else
   Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
       (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If


Public Sub ShellEx(ByVal Path As String, Optional ByVal Parameters As String, Optional ByVal HideWindow As Boolean)

   If Dir(Path) > "" Then
       ShellExecute 0, "open", Path, Parameters, "", IIf(HideWindow, 0, 1)
   End If

End Sub
Formda butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyin.
Dim app As String

app = "C:\Ebs Yazilim\Senet\V106\EbsSenet.exe"
   
ShellEx app

Çok Teşekkür Ederim.Uyguladım ve Program çalıştı.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task