فتح برنامج معمول بواسطة الاكسس من خلال الفيجول بيسك

هو أنت عامل DLL علشان تناديه بالطريقة دى ؟!

أعتقد ان وجود الـ Access ضرورى لتشغيل البرنامج بتاعك و الله أعلم , أبحث بالمنتدى و بمحركات البحث عن برنامج يحول مشروع VBA الى VB6 و بعديها تقدر تعمل Compile لـ EXE يشتغل على طول.

طبعا موجود الاكسس موجود ياسدنا !!!!!

المهم ما نمتش حتى فتح علي ربنا بالحل التالي وطبعا البركة في الاخوة وبعض المواقع وتم عمل الكود التالي مع اضافة بعض البهارات الخاصة

الكود التالي في الجنرال

'--------------------------------------------------------------------------------

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

-------------------------------------------------------------------------------------------

Sub ShellDocument(FileName As String)

Dim Ret&

Ret = ShellExecute(hwnd, "Open", FileName, "", "", 1)

If Ret <= 32 Then

Select Case Ret

Case 2&

MsgBox "الملف غير موجود"

Case 3&

MsgBox "المسار غير موجود"

Case 5&

MsgBox "تعذر الوصول"

Case 8&

MsgBox "هناك خلال في الملف التنفيذي"

Case 11&

MsgBox "الذاكرة غير كافية"

Case 32&

MsgBox "مكتبة الربط غير موجودة"

Case 31&

MsgBox "áÇíæÌÏ ÈÑäÇãÌ ãÞÊÑä ÈåÐÇ ÇáÇãÊÏÇÏ"

Case Else

MsgBox "لايوجد برنامج مقترن لهذا البرنامج"

End Select

End If

End Sub

Private Sub Command1_Click()

d_r = App.Path

d_f = "\box.mde"

wr = d_r + d_f

Ret = ShellExecute(hwnd, "Open", wr, "", "", 1)

Unload Me

End Sub

أعتقد أن سؤالك كان مبهم من الأول , عموما كود Shellexecute كاملا هنا : The full ShellExecute code