اريد كود لفتح ملف اكسس بطرية عادية

السلام عليكم...

' في قسم التصريحات العام
Private Const SW_NORMAL = 1
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

' في زر الفتح مثلاً
Private Sub Command1_Click()
    ShellExecute 0&, "open", "C:\MyFile.ext", vbNullString, vbNullString, SW_NORMAL
End Sub

طبعاً بدل C:\MyFile.ext ضع مسار و اسم و امتداد الملف الذي تريد فتحه. مع ملاحظة أن كلمة open الموجودة في الكود يجب كتابتها بحروف صغيرة.

إذا كان الملف غير موجود أو غير مقترن ببرنامج لفتحه لا يحدث شيء.

الدالة ShellExecute تقوم بفتح الملف في البرنامج المقترن بنوعه، مثلاً تفتح ملفات txt في المفكرة، و تفتح ملفات doc في برنامج Word و تفتح ملفات bmp في الرسام، و تفتح ملفات mdb في أكسس... إلخ.

نرجو الاستفادة و السلام.