ادراج أسماء النماذج بالجدول

[TQTHAMI]

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

وتقبل اللخ صيامكم
يوجد جدول باسم tblform وعدة نماذج قابله لزياده 
المطلوب ابي كل ما عملت نموذج جديد يدخل اسم النموذج  في الجدول تلقائي
وتقبلوا تحياتي

مثال187.accdb

[متقاعد]

الخطوة الاولى نظهر ملفات النظام ويهمنا الجدول MSysObjects

نعمل استعلام ونحتاج الى حقلين فقط name وحقل type وفي خانة المعيار نضع الرقم -32768

لتكون جملة الاستعلام تساوي

SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768));

ثم نعمل استعلام جديد مصدرة الاستعلام السابق او نحول الاستعلام السابق الى استعلام الحاق وتكون جملة الاستعلام تساوي

INSERT INTO tblform ( nameform )
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Name) Not In (SELECT tblform.nameform
FROM tblform;)) AND ((MSysObjects.Type)=-32768));

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

وايضا ممكن الاستغناء عن استعلام الالحاق بالكود

وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول

الملف مرفق

 

مثال187.accdb

[TQTHAMI]

لا يسعني إلا ان أقول جزاك الله حيرا

 

[ابو طارق سعيد]

يا عمى @متقاعد هذا شيخ المعلمين

[الحلبي]

2 ساعات مضت, متقاعد said:

وايضا ممكن تحويل الحقل في الجدول الى مربع تحرير وسرد ونجعل مصدرة كود الاستعلام الاول

استاذى ومعلمى

عند تعديل اسم اى نموذج لا يظهر التعديل فى الجدول

جزاك الله كل خير ويجعله فى ميزان الحسنات 

[متقاعد]

51 دقائق مضت, الحلبي said:

عند تعديل اسم اى نموذج لا يظهر التعديل فى الجدول

هذا صحيح لاننا الحقنا القيمة في الجدول وتم حفظها كسجل

الحقيقة ان هذه الطريقة تستخدم في العادة لغرض تحديد الصلاحيات للمستخدمين مثلا محمد له صلاحية form2 وعلى form3 وهكذا

في مثل هذه الحالات ممكن نستخدم الاستعلام مباشرة ولن تواجهنا مشكلة عند تغيير اسم النموذج

على كل حال لو فتحت جدول 

MSysObjects

ستجد ان هناك رقم id لكل كائن في القاعدة هذا الرقم يمثل معرف فريد  وبالتالي ممكن استخدامه لاجراء التعديل بدون الحاجة للتعديل اليدوي

ولكن من وجهة نظري ان التعديل على اسماء النماذج ليس من الامور التي تتكرر باستمرار وبالتالي اتوقف هنا

اما اذا اردنا اعطاء المستخدم صلاحيات تعديل اسماء الكائنات فممكن استخدام الامر وانا ضد ذلك

DoCmd.Rename

 

ثم حينها نضع بعده امر تحديث اسم النموذج بمعرف الايدي الذي اشرنا اليه

واتوقف هنا قالت العرب

خير الزاد ما بلغك المحل

تحياتي

[الحلبي]

26 دقائق مضت, متقاعد said:

خير الزاد ما بلغك المحل

شرح جميل وواضح ومفهوم من مفكر كبير ودكتور فى الاكسس ـ ما هذه الفصاحة والبلاغة والاستعارات المكنية والتصريحية

اشكرك استاذ / خالد وزادك الله من علمه واجاز بك تفسير اكسس لنا

رحم الله والديك وبارك الله فيك وفى معلوماتك القيمة وجزاك كل خير

تم تعديل أبريل 8, 2023 بواسطه الحلبي

[Mohamed abo elmagd]

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

الرجاء من السادة المحترمين استكمال هذا الملف بحيث

1- زيادة عدد الكشوف في ورقة 1 من زر التنقل وذلك حتي 400 خطاب

2-اضافة زر للبحث عن الاسم 

3- استكمال باقي الترحيل (ملاحظ-مقدر درجات ) من بيانات المعلم الي اماكنها في ورقة 1

وشكرا لحضراتكم

تجربة 1.xls

تم تعديل أبريل 30, 2023 بواسطه Mohamed abo elmagd

[kkhalifa1960]

لطفاً أخي @Mohamed abo elmagd هنا منتدى الأكسس .

ممكن تطرح سؤالك بمنتدى الإكسل وبتحصل من يساعدك باحتراف .