+- 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)
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - burhanb - 28/09/2018
(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.
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - Oğuz Türkyılmaz - 28/09/2018
(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.
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - C*e*l*o*y*c*e - 28/09/2018
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.....
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - Oğuz Türkyılmaz - 28/09/2018
(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...
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - Oğuz Türkyılmaz - 28/09/2018
(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
Cvp: Access Form Üzerinden Bilgisayarda Yüklü Bir Programı Açmak - ozanakkaya - 28/09/2018
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
Dim app As String
app = "C:\Ebs Yazilim\Senet\V106\EbsSenet.exe"
ShellEx app