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

(27/09/2018, 23:05)mehmetdemiral yazdı: En baştaki değişkeni unutmadınız umarım:

Dim app As String

    App = "C:\Ebs Yazilim\Senet\V106\EbsSenet.exe"
    ChDir "C:\Ebs Yazilim\Senet\V106"
    Call Shell(App, 1)

kusura bakmayın bakamadım.
ilginiz için teşekkürler.

(27/09/2018, 23:05)mehmetdemiral yazdı: En baştaki değişkeni unutmadınız umarım:

Dim app As String

    App = "C:\Ebs Yazilim\Senet\V106\EbsSenet.exe"
    ChDir "C:\Ebs Yazilim\Senet\V106"
    Call Shell(App, 1)

Call Shell(app, 1) bu satır için hata veriyor  ( invalid procedure call or argument ) Hesap makinasınıda uyguladım o kod çalışıyor halihazırda ama bu uygulamada aynı satır hata veriyor.

merhaba 
eğer dosya yolunuz yanlış değilse ..! aşagıdaki kod çalıştırmalı..

Shell ("C:\Ebs Yazilim\Senet\V106\EbsSenet.exe")

ayrıca bu kod ...   Shell ("C:\WINDOWS\system32\calc.exe")   .....hesap makinsını açar,bunun üzerinden yolu kontrol edip deneyin.....

(28/09/2018, 12:41)C*e*l*o*y*c*e yazdı: merhaba 
eğer dosya yolunuz yanlış değilse ..! aşagıdaki kod çalıştırmalı..

Shell ("C:\Ebs Yazilim\Senet\V106\EbsSenet.exe")

ayrıca bu kod ...   Shell ("C:\WINDOWS\system32\calc.exe")   .....hesap makinsını açar,bunun üzerinden yolu kontrol edip deneyin.....

Dosya yolu doğru ve maalesef bu kodlada çalıştıramadım. Uygulama ekte var rica etsem ordan bakabilirmisiniz...

(28/09/2018, 13:04)Oğuz Türkyılmaz yazdı:

(28/09/2018, 12:41)C*e*l*o*y*c*e yazdı: merhaba 
eğer dosya yolunuz yanlış değilse ..! aşagıdaki kod çalıştırmalı..

Shell ("C:\Ebs Yazilim\Senet\V106\EbsSenet.exe")

ayrıca bu kod ...   Shell ("C:\WINDOWS\system32\calc.exe")   .....hesap makinsını açar,bunun üzerinden yolu kontrol edip deneyin.....

Dosya yolu doğru ve maalesef bu kodlada çalıştıramadım. Uygulama ekte var rica etsem ordan bakabilirmisiniz...

Açmak istediğim programda bir sıkıntı var başka bir programı açmak istediğimde açabiliyorum programın üreticisiyle iletişime geçeceğim. Teşekkürler

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