• 0
abth4000

حل مشكلة في هذا المرفق

سؤال

وجدت في أحد المشاركات مرفق للأستاذة الأخت زهرة وفقها الله من أجل الإستفادة منه ولكن للأسف لم يعمل معي في إستدعاء قاعدة أخرى وظهرة رسالة خطأ أتمنى الإجابة على هذا الإشكال وعلاج المشكل إن وجد و الله الموفق

zahrah.rar

الفريق العربي.jpeg

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

السلام عليكم و رحمة الله و بركاته

قم بعمل مجلد بالسواقة D و سمه DATA

ثم لاحظ الكود التالي

 

Private Sub Command4_Click()
Dim stAppName As String
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.exe D:\Data\zahrah.mdb"

 

    Call Shell(stAppName, 1)
End Sub
----------------------------------
إذا كنت تسخدم نظام تشغيل 32 سوف يكون مجلد الاوفيس موجود في ضمن الماسر التالي
C:\Program Files\Microsoft Office
 

 

Private Sub Open_Click()
Dim stAppName As String
stAppName = "C:\Program Files (x86)\Microsoft Office\OFFICE11\MSACCESS.exe D:\Data\zahrah.mdb"
Call Shell(stAppName, 1)
End Sub
إذا كنت تسخدم نظام تشغيل 64 سوف يكون مجلد الاوفيس موجود في ضمن الماسر التالي
C:\Program Files (x86)\Microsoft Office
 
ثم بعد ذلك حدد مسار قاعدة البيانات و أسمها 
و بالتوفيق اخي الكريم
بالمرفق مثال توضيحي
 

 

 

DATA.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا من الأعماق على هذه التعاون ايها المبارك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

هذا واجبي اتجاه الجميع و خاصة المنتدى الذي نلت منه الكثير

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .