عند العمل على قواعد بيانات Microsoft Access، خصوصًا في المشاريع الكبيرة أو التي يعمل عليها أكثر من مستخدم، يصبح من الضروري تقسيم قاعدة البيانات إلى جزأين:
- Back-End يحتوي على الجداول فقط.
- Front-End يحتوي على النماذج، الاستعلامات، التقارير، والوحدات البرمجية.
هذه العملية تجعل قاعدة البيانات أسرع، أكثر أمانًا، وأسهل في الإدارة. في هذا المقال نشرح طريقة تقسيم قاعدة البيانات وإعادة ربط الجداول باستخدام النماذج.
🔧 لماذا نقوم بتقسيم قاعدة البيانات؟
تقسيم قاعدة البيانات يوفر العديد من الفوائد:
- زيادة السرعة عند العمل على الشبكة.
- حماية البيانات من التلف أو الحذف غير المقصود.
- إمكانية تحديث الواجهة (Front-End) دون التأثير على البيانات.
- إتاحة العمل الجماعي لعدة مستخدمين في نفس الوقت.
- سهولة النسخ الاحتياطي لملف الجداول فقط.
🗂️ أولًا: تقسيم قاعدة البيانات (Split Database)
1) فتح قاعدة البيانات
افتح ملف Access الذي يحتوي على الجداول والنماذج.
2) الذهاب إلى أداة التقسيم
من القائمة:
Database Tools → Access Database
3) اختيار مكان حفظ ملف الجداول
سيطلب منك Access تحديد مكان حفظ ملف Back-End الذي يحتوي على الجداول فقط.
يفضل وضعه في:
- مجلد مشترك على الشبكة
أو
- مجلد ثابت على جهاز السيرفر
4) إتمام عملية التقسيم
بعد الضغط على Split سيتم إنشاء ملف جديد يحتوي على الجداول فقط، بينما يبقى الملف الأصلي يحتوي على النماذج والاستعلامات.
🔗 ثانيًا: إعادة ربط الجداول (Linked Tables)
بعد التقسيم، تصبح الجداول مرتبطة (Linked) بملف الجداول. إذا تم نقل ملف الجداول إلى مكان آخر، ستحتاج إلى إعادة الربط.
خطوات إعادة الربط:
- افتح ملف Front-End.
- من القائمة:
External Data → Linked Table Manager
- فعّل خيار:
Always Prompt for New Location
- اختر الجداول المراد ربطها.
- اضغط OK وحدد مكان ملف Back-End الجديد.
سيتم تحديث الروابط تلقائيًا.📝 ثالثًا: إعادة الربط عن طريق نموذج (Form)هذه الطريقة احترافية جدًا وتستخدم في الأنظمة الكبيرة، حيث يتم إنشاء نموذج يقوم بإعادة الربط تلقائيًا عند فتح البرنامج.فكرة النموذج:- إنشاء نموذج مخفي (Hidden Form).
- إضافة كود VBA يقوم بفحص وجود الجداول.
- إذا لم يجدها، يطلب من المستخدم تحديد مكان ملف الجداول.
- ثم يعيد الربط تلقائيًا.
مثال على كود VBA لإعادة الربط:Function RelinkTables()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strPath As String
strPath = InputBox("أدخل مسار ملف الجداول (Back-End):")
Set db = CurrentDb
For Each tdf In db.TableDefs
If tdf.Connect <> "" Then
tdf.Connect = ";DATABASE=" & strPath
tdf.RefreshLink
End If
Next tdf
MsgBox "تم إعادة ربط الجداول بنجاح"
End Function
يمكنك استدعاء هذا الكود عند فتح النموذج.🎯 فوائد إعادة الربط عبر النماذج- لا تحتاج لفتح Linked Table Manager يدويًا.
- مناسب للبرامج التي تعمل على عدة أجهزة.
- يمنع الأخطاء الناتجة عن تغيير مسار ملف الجداول.
- يجعل البرنامج أكثر احترافية وسهل الاستخدام.
⭐ نصائح مهمة- ضع ملف الجداول في مكان ثابت لا يتغير.
- استخدم مسار شبكة (UNC Path) بدلًا من حرف القرص مثل:
\\Server\SharedFolder\Database_BE.accdb
- قم بعمل نسخة احتياطية من ملف الجداول بشكل دوري.
- لا تضع الجداول في نفس مجلد الواجهة لتجنب فقدان البيانات.
خلاصة
تقسيم قاعدة بيانات Access وإعادة الربط عبر النماذج خطوة أساسية لكل من يريد بناء نظام قوي واحترافي. من خلال فصل الجداول عن الواجهة، يصبح البرنامج أسرع وأكثر أمانًا، كما يسهل تحديثه دون التأثير على البيانات. استخدام نموذج لإعادة الربط يجعل النظام أكثر مرونة واحترافية، خصوصًا عند العمل على شبكة أو عدة أجهزة.
التسميات
برامج مكتبية
اشكرك من القلب على المثال الأكثر من رائع لربط الجداول
ردحذفالعفو
حذف