امر ستدعاء ملف فيجوال عن طريق قاعدة البيانات

وعليكم السلام، أخي الباشق ضع هذه الـ Code في حدث عند النقر لزر الأمر:

	On Error GoTo MyShell_Err
	' مسار الملف التنفيذي
	Shell ("C:/ACCESSkiller_VB.exe")
MyShell_Exit:
	Exit Sub
MyShell_Err:
	If Err.Number = 53 Then
		MsgBox "لم يتم العثور على الملف التنفيذي"
		Resume MyShell_Exit
	Else
		MsgBox Err.Description
		Resume MyShell_Exit
	End If

الف شكررررررر لك اخي ماقصرت

بس فيه لم يفتح يكون خلف القاعدة ليش مايكون اممها

بسيطة إن شاء الله، إستبدل هذا الأمر:

   Shell ("C:/ACCESSkiller_VB.exe")

بهذا الأمر:

	Dim MyBath As String
	MyBath = Shell("c:/ACCESSkiller_VB.exe", 1)

تسلم خيو والله ماقصرت

انا ستخدمة هذا الكود قبل

اقتباس

= Call Shell("c:/ACCESSkiller_VB.exe", 1)

بس ماشتغل ولان ستخدمته ثاني وشتغل ايش المشكله ولان شغال عدي بس بعرف ليش اول ماشتغل

ولان كلها شغاله تمام ربي وفقك