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

Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak (/konu-access-form-uzerinden-bilgisayarda-yuklu-bir-programi-acmak.html)

Sayfalar: 1 2 3

Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - Oğuz Türkyılmaz - 28/09/2018

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