(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