(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ı.