اضافة جميع نماذج قاعدة البيانات الى جدول مع (العلامة) التاق

[سعيد صواب]

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

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

هذه الدالة ترجع بجميع اسماء النماذج في قاعدة البيانات ويقوم بإضافتها الى جدول  ... اريد اضافة الى هذه الدالة بحيث تاخذ التسمية الموجودة في الـ Tag (العلامة) ..

مثلا لدينا نموذج بإسم frmEmpls والـ Tag (العلامة)  مكتوب فيه  بيانات الموظفين ... اتمنى ان الصورة واضحة

Function checkAllForms()
Dim aob As AccessObject
For Each aob In CurrentProject.AllForms
DoCmd.RunSQL "insert into tblallfrms (frmnname) values ( '" & aob.Name & "')"
Next aob
End Function

وشكرا مقدما

تم تعديل مارس 4, 2016 بواسطه سعيد صواب

[رمهان]

مرحبا بك استاذ سعيد

ساكتفي بالتنبيه التالي وعليك الباقي

انت تريد قراءة خاصية كائن ليس مفتوح ! معناته افتح الكائن ثم اقرأ الخاصية ثم اغلقه !

بالتوفيق

 

[سعيد صواب]

مرحبا استاذ رمهان ...

وان شاء الله انك بخير وصحة وسلامة ..  ومشكور على تجاوبك

المشكلة في الكائن ..

حاولت استخدم المتغير في الدالة للفتح ك form  وحاولت بتعريف متغير اخر as form  ولكن لا جدوى ...

تظهر رسالة .. object doesn't support this method

وشكرا مرة اخرى

 

[رمهان]

اوكي 

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

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

هنا الكود سيصبح

Function checkAllForms()
Dim aob As AccessObject
For Each aob In CurrentProject.AllForms
docmd.open aob.name
DoCmd.RunSQL "insert into tblallfrms (frmnname,ftag) values ('" & aob.Name & "','" & forms(aob.name).tag & "')"
docmd.close acform,aob.name
Next aob
End Function

والكود كتبته في المحرر مباشرة وبدون اختبار ! قد يكون بمثابة ارشاد للحل !

ويمكن فتح النماذج في حالة اخفاء !

 

بالتوفيق

تم تعديل مارس 4, 2016 بواسطه رمهان

[سعيد صواب]

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

مع تغيير في السطر الثالث .. 

docmd.open aob.name

الى 

docmd.openform abo.name

والفورم الذي قمنا بالتنفيذ من خلالة لا يتم حفظ التاق تبعه 

هذا للعلم والفائدة 

ومشكور كثير استاذ رمهان

[رمهان]

4 دقائق مضت, سعيد صواب said:

والفورم الذي قمنا بالتنفيذ من خلالة لا يتم حفظ التاق تبعه 

ممكن توضح اكثر ! وهل هي مشكلة قائمة ام تم التغلب عليها !

تحياتي

[سعيد صواب]

نعم استاذ رمهان مازالت قائمة ..

 

[رمهان]

3 دقائق مضت, سعيد صواب said:

نعم استاذ رمهان مازالت قائمة ..

 

تمام 

تاكد اولا ان التاق به بيانات !

ممكن الاختبار بالامر التالي خلف زر مثلا !

msgbox(me.tag)

 

[سعيد صواب]

اعتذر شديد الإعتذار استاذ رمهان

فعلا .. لم يكن به بيانات ..

الآن 100% 

تعبتك معي العذر منك 

[رمهان]

العفو استاذ سعيد !

وما هذا الا شي لايذكر مقابل مساعدتك للاخرين !

بالتوفيق