عمل do. or untilدوار لكود مشروط

[شاهر]

الاخوه الاكارم في المنتدي

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

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

لاني عملته بعد شرط اذا لم يتحقق الشرط يبداء الدوار في عمل هذا الكود

On Error Resume Next
Dim obj As AccessObject
Dim dbs As Object
Do
o = acForms
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
DoCmd.DeleteObject acForm, obj.name
Next obj
Loop Until o = 0

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

مع خلص الشكر والتقدير للجميع

اخوكم شاهر

[شاهر]

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

اين الاستاذه الافاضل

مفيش ولا رد

[الدكتور خضر الرجبي]

للرفع

[شاهر]

الاستاذ الفاضل خضر

ان اظن ان الدور المطلوب ليس بصعوبه حتي لااجد الرد

مثل الامثل التي انزلاتها في دروس vb قبل شهر وكود الاصل هو كتالي:

Dim obj As AccessObject
Dim dbs As Object

Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
DoCmd.DeleteObject acForm, obj.name
Next obj

تم تعديل أغسطس 3, 2005 بواسطه شاهر

[شاهر]

ان لله وانا اليه راجعون

هل سوئلي صعب الى هذه الدرجه

تقريب السوءال الثالث الذى لم اجد له رد

[أمجد جمالي]

تريد برمجة كود يقوم بحذف جميع النماذج في قاعدة البيانات في حال تحقق شرط ما

هل هذه ماتريده

[أمجد جمالي]

تفضل أخي الكريم

ارجو ان اكون قد فهمت المطلوب بشكل صحيح

Function Ap_DeleteForms()

On Error GoTo Err_DeleteForms

Dim Obj As AccessObject
Dim Dbs As Object

        Set Dbs = Application.CurrentProject
        For Each Obj In Dbs.AllForms
        DoCmd.DeleteObject acForm, Obj.Name
        Debug.Print Obj.Name
        Next Obj

Exit_DeleteForms:
    Exit Function
Err_DeleteForms:

            If Err.Number = -2147467259 Then
                Ap_DeleteForms
              Exit Function
            End If

Resume Exit_DeleteForms

End Function

تحياتي لك

[شاهر]

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

اخي الفاضل/ أمجد جمالي

لك خالص الشكر على اهتمامك ورد على السؤالي

ولقد جربت الكود باستدعائه بهذه الطريقه

Call Ap_DeleteForms

لكنه لم ينفذ أى شي اوحتي رسالة خطاء

ملاحظه الكود الذي في سؤالي يعمل علي حذف جميع النماذج لكن المشكله في انه ينعدم الاستجابه ولايخرج اى بعد انهاء المهمه بضغط مفاتيح alt+ctrl +delete ولايخرج بعد عملة الحذف ولايهم النموذج الموضوع فيه الكود اى النموذج النشط ان يحذف والمهم حذف بقية النماذج

مع خالص أحترام وشكري على اهتمامك وكثر من امثلك

اخوك شاهر

تم تعديل أغسطس 7, 2005 بواسطه شاهر

[أمجد جمالي]

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

أخي الكريم بقمت بتجربة الكود كثر من مرة وبدون مشاكل

ولم اصادف الخطأ الذي تحدثت عنه

مرفق مثال لتجريب الكود

وقم بتشغيل الكود من خلال الماكرو DeleteForms

تحياتي

DeleteForm.rar

تم تعديل أغسطس 7, 2005 بواسطه أمجد جمالي

[شاهر]

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

اخي العزيز يؤ سفني اني ازعجتك ولكن حتي المثل المرفق لم يقم بأي حذف لنماذج الاربعه الموجوده في المثال

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

تم تعديل أغسطس 7, 2005 بواسطه شاهر

[أمجد جمالي]

أضف المكاتب التالية

Microsoft Activex Data objects 2.1 Library

Microsoft Dao 3.6 Object Library

وتقبل تحياتي

[شاهر]

اخي الكريم أمجد جمالي

يعجز اللسان عن الشكر

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

ورزقني الله واليك الذريه الصالح وجميع المؤمنين والله لايحرمنا منك من أمثلك

وفي الختام ممنون جداً جداً جداً..... .... ..... ... (y)

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

اخو ك شاهر

تم تعديل أغسطس 8, 2005 بواسطه شاهر

[أمجد جمالي]

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

الله يسلمك ويبارك فيك أخي الكريم احنا هون كلنا ايد وحدة على الخير

اشكرك على ادبك و لطفك

وتقبل تحياتي

[شاهر]

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

اخي الكريم / أمجد جمالي

مع اعتذار هل أطمع في كرم اخلاقك باستفسار بسط هو عندما تكون النماذج أكثر من عشرين يتم حذف النصف

وعند تكرر الامر يتم حذف نصف النصف الاخر يعني 20 # 10#5# لايتم الحذف مره واحده

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

[أمجد جمالي]

بالفعل انا اضفت وعدلت على الكود

بحيث لايتوقف عن العمل الا من بعد حذف جميع النماذج

تحياتي

تم تعديل أغسطس 9, 2005 بواسطه أمجد جمالي

[شاهر]

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

اخي الكريم/ امجد جمالي

الكود لايزال يحذف النصف فقط وتسطيع التجربه لتري لكن اذاكان عدد النماذج قليل مثل 5او6 يحذفها كلها يستحسن لو يعمل على حذف الجميع مع اغلاق القاعده بعد الحذف

وكيف بنسبه للتقارير والوحدات النمطيه

مع فائق الاحترام والتقدير

تم تعديل أغسطس 10, 2005 بواسطه شاهر

[أمجد جمالي]

تفضل هذا هو المثال المعدل

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

تحياتي لك

DeleteObjects.rar

تم تعديل أغسطس 10, 2005 بواسطه أمجد جمالي

[شاهر]

اخي الكريم/ امجد جمالي

أكتب التعقيب ونا في غالية الحرج

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

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

اخي الفاضل هذا المثل لم يعمل معي وهل يعمل على حذف جميع النماذج والتقارير والوحدات النمطيه مهما كان عددها مره وحده

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

Microsoft Activex Data objects 2.1 Library

Microsoft Dao 3.6 Object Library

مع خالص الاحترام والتقدير وارجوا المعذره على تثقيلي في الاسئله والله يعطيك الف الف عافيه

[أمجد جمالي]

شو هو الويندوز والاوفيس الي عندك

[شاهر]

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

اخي الكريم/ أمجد جمالي

وندوز اكس بي و اوفيس اكس بي / وكمان اوفيس 2003

[أمجد جمالي]

والله مافي حل غير انك ترمي جهازك

وتجيب غيره

لأنه جربت الملف في اكتر من جهاز وشغال من دون مشاكل

اذا في رسالة خطأ قلي عليها

تحياتي

[شاهر]

أخي الكريم/ أمجد جمالي

تحيه طيبه وبعد

لك خالص شكر وتقدير واحترام

لم اتأخرعليك في الرد الا حتي اجراب واحوال بكثر من طريقه

حتي عمل معي .

وقبل تنفيذ النصيحه والله مافي حل غير انك ترمي جهازك وتجيب غيره

الهمك الله علما وحلما , ونفع الله بك وبعلمك (y) (y) (y)

وارجو من الله ان لايضيق صدرك مني اخي الكريم

اسئال العلي القدير ان يجمعنا في بيته الحرام

والى تواصل اخر في اسئله اخرى ان لم تطفش مني

والسلام ختام

اخوك شاهر

تم تعديل أغسطس 14, 2005 بواسطه شاهر

[أمجد جمالي]

لا ياشيخ لشو اطفش منك

والله كنت عبمزح معك مو اكتر

ليكون صدقت ورميت الجهاز عن حق

وهي احلى وردة لا احلى شاهر

وأسأل قد مابدك حلو على قلبي بس بشرط انك تجرب الامثلة على جهاز غير جهازك

سلام