انشاء قائمة لمحتويات برنامج الاكسس (قائمة النماذج والتقارير والجداول والاستعلامات) بشكل الي

قد نحتاج الحصول على قائمة باسماء الجداول او النماذج .. الخ لاعادة استخدامها في البرنامج نفسة، وبدلا من القيام بعمل جدول لهذا الهدف والذي يجب تحديثة يدويا ومن الممكن ان يتم الخطأ في التحديث فان الحل ببساطة هو انشاء استعلام مستند على جدول MSYSOBJECTS وهذا الجدول من جداول النظام وهو مخفي .

هذا الجدول يحتوي على قائمة بجميع كائنات ( جداول نماذج  ....الخ)  البرنامج، ويمكن الحصول على هذا الجدلو ببساطة من خلال انشاء استعلام جديد والدخول الى SQL ووضع الكود التالي 

VBA

SELECT * FROM msysobjects;

وعند تشغيل الاستعلام سنجد هذا الجدول

الان ما يهمنا هو الحقل Name  الذي يحتوي على اسم الكائن والحقل Type الذي يمثل نوع الكائن

قائمة كودات انواع الكائنات في الجدول MSYSOBJECTS

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

|Type     | TypeDesc

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

|-32768  | Form

|-32766  |Macro

|-32764  |Reports

|-32761  |Module

|-32758  |Users

|-32757  |Database Document

|-32756  |Data Access Pages

|1           |Table - Local Access Tables

|2           |Access Object - Database

|3           |Access Object - Containers

|4           |Table - Linked ODBC Tables

|5           |Queries

|6           |Table - Linked Access Tables

|8           |SubDataSheets

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