ازهر عبد العزيز قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 السلام عليكم ... هل يوجد كود يقوم بفتح اي ملف سواء ملف صوت او صورة او ملف تنفيذي بمجر وضع مسار الملف المحدد بمعنى يقوم بعمل الدبل كلك بالوندوز للملف رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر 2 رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 هلا اخي وهذه طريقة اخرى...استدعي الدالة 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 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ، وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله : جعفر 2 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مايو 9, 2020 الكاتب مشاركة قام بنشر مايو 9, 2020 52 دقائق مضت, jjafferr said: وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر استاذ @jjafferr لو سمحت اين الخطا عندي رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 اسم الملف والمسار يجب ان يكون بين العلامتين "" ، هكذا : application.followhyerlink "C:\...\...\calc.exe" لجميع الاجابات اعلاه ، ومنهم shell و shell_n_wait وووو جعفر 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مايو 9, 2020 الكاتب مشاركة قام بنشر مايو 9, 2020 استاذ @jjafferr فتح معي لكن هناك مشكلة رسالة تحذيرية من الاوفيس تخبرني انة لايفضل فتح البرنامج هكذا لانة احتمال بعض الملفات تحوي فاييروس تضر بالكومبيوتر هل بالامكان التخلص من هذة الرسالة التحذيرية رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 نعم هذه مشكلة الاوفيس مع البرامج اللي ما تثق فيها !! جرب البرنامج الآخر : shell("C:\...\...\calc.exe",0) او shell("C:\...\...\calc.exe",vbhidden) وبنفس الطريقة تقدر تجرب المقترحات الاخرى ، مجرد انك تحفظ الكود في وحدة نمطية مستقلة ، ثم تستعمل الكود التالي لعملها : ExecuteFile("C:\...\...\calc.exe",0) او shell_n_wait("C:\...\...\calc.exe",0) جعفر 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مايو 9, 2020 الكاتب مشاركة قام بنشر مايو 9, 2020 استاذي الغالي @jjafferr فتح البرنامج لكن صار عندي رسالة تحذير مع رسالة خطا وانا لا اعرف انشاء وحدة نمطية لتطبيق الكود الاخير رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر مايو 9, 2020 أفضل إجابة مشاركة قام بنشر مايو 9, 2020 15 دقائق مضت, ازهر عبد العزيز said: لا اعرف انشاء وحدة نمطية لتطبيق الكود الاخير 1. ادخل في صفحة VBE ، 2. . فتحصل على صفحة جديدة . 3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile : . 4. والآن من اي حدث ، نادي الوحدة النمطية هكذا : ExecuteFile "C:\Windows\System32\calc.exe" جعفر 1 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مايو 9, 2020 الكاتب مشاركة قام بنشر مايو 9, 2020 الاساتذة المبدعين @jjafferr, @ابو تراب شكرا جزيلا رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 9, 2020 مشاركة قام بنشر مايو 9, 2020 🙂 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.