طلب كود

[ازهر عبد العزيز]

السلام عليكم ... هل يوجد كود يقوم بفتح اي ملف سواء ملف صوت او صورة او ملف تنفيذي بمجر وضع مسار الملف  المحدد  بمعنى يقوم بعمل الدبل كلك بالوندوز للملف 

[jjafferr]

وعليكم السلام 🙂

 

اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا:

application.followhyperlink strFile

 

جعفر

[ابو تراب]

هلا اخي

وهذه طريقة اخرى...استدعي الدالة ExecuteFile

مصدر الكود من الموقع

MS Access VBA – Open a File

Option Compare Database
Option Explicit

'Source: http://www.pacificdb.com.au/MVP/Code/ExeFile.htm
Public Const SW_HIDE = 0
Public Const SW_MINIMIZE = 6
Public Const SW_RESTORE = 9
Public Const SW_SHOW = 5
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOWNORMAL = 1
 
Public 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
 
Public Sub ExecuteFile(sFileName As String, Optional ByVal sAction As String = "Open")
    Dim vReturn As Long
    'sAction can be either "Open" or "Print".
 
    If ShellExecute(Access.hWndAccessApp, sAction, sFileName, vbNullString, "", SW_SHOWNORMAL) < 33 Then
        DoCmd.Beep
        MsgBox "File not found."
    End If
End Sub

 

[jjafferr]

الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن

وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ،

وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas

بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله :
 

 

جعفر

[ازهر عبد العزيز]

52 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا:

application.followhyperlink strFile

 

جعفر

استاذ @jjafferr لو سمحت  اين الخطا عندي 

[jjafferr]

اسم الملف والمسار يجب ان يكون بين العلامتين "" ، هكذا :

application.followhyerlink "C:\...\...\calc.exe"

 

لجميع الاجابات اعلاه ، ومنهم shell و shell_n_wait وووو

 

جعفر

[ازهر عبد العزيز]

استاذ @jjafferr فتح معي لكن هناك مشكلة رسالة تحذيرية من الاوفيس تخبرني انة لايفضل فتح البرنامج هكذا لانة احتمال بعض الملفات تحوي فاييروس تضر بالكومبيوتر هل بالامكان التخلص من هذة الرسالة التحذيرية

[jjafferr]

نعم هذه مشكلة الاوفيس مع البرامج اللي ما تثق فيها !!

 

جرب البرنامج الآخر :

shell("C:\...\...\calc.exe",0)
  
  
  او

shell("C:\...\...\calc.exe",vbhidden)  

 

وبنفس الطريقة تقدر تجرب المقترحات الاخرى ، مجرد انك تحفظ الكود في وحدة نمطية مستقلة ، ثم تستعمل الكود التالي لعملها :

ExecuteFile("C:\...\...\calc.exe",0)


  او
  
shell_n_wait("C:\...\...\calc.exe",0)  

 

جعفر

[ازهر عبد العزيز]

استاذي الغالي @jjafferr  فتح البرنامج لكن صار عندي رسالة تحذير مع رسالة خطا وانا لا اعرف انشاء وحدة نمطية لتطبيق الكود الاخير 

[jjafferr]

15 دقائق مضت, ازهر عبد العزيز said:

لا اعرف انشاء وحدة نمطية لتطبيق الكود الاخير

 

1. ادخل في صفحة VBE ،

2.

.

فتحصل على صفحة جديدة

.

3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile :

.

4. والآن من اي حدث ، نادي الوحدة النمطية هكذا :

ExecuteFile "C:\Windows\System32\calc.exe"


  

 

جعفر

[ازهر عبد العزيز]

الاساتذة المبدعين @jjafferr, @ابو تراب   شكرا جزيلا 

[jjafferr]

🙂