(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

Kodu Seç

Kodu Kopyala

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

Kodu Seç

Kodu Kopyala

Çok Teşekkür Ederim.Uyguladım ve Program çalıştı.