وجدت في أحد المشاركات مرفق للأستاذة الأخت زهرة وفقها الله من أجل الإستفادة منه ولكن للأسف لم يعمل معي في إستدعاء قاعدة أخرى وظهرة رسالة خطأ أتمنى الإجابة على هذا الإشكال وعلاج المشكل إن وجد و الله الموفق
حل مشكلة في هذا المرفق
السلام عليكم و رحمة الله و بركاته
قم بعمل مجلد بالسواقة 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
ثم بعد ذلك حدد مسار قاعدة البيانات و أسمها
و بالتوفيق اخي الكريم
بالمرفق مثال توضيحي
شكرا من الأعماق على هذه التعاون ايها المبارك
هذا واجبي اتجاه الجميع و خاصة المنتدى الذي نلت منه الكثير