شاهر قام بنشر يوليو 30, 2005 مشاركة قام بنشر يوليو 30, 2005 الاخوه الاكارم في المنتدي السلام عليكم ورحمة الله وبركاته كيف استطيع اعمل لهذا الكود دوار بحيث لايخرج الا بعد حذف جميع النماذج لاني عملته بعد شرط اذا لم يتحقق الشرط يبداء الدوار في عمل هذا الكود 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 وهل لوإضيف كود اخر يجب تعريف لنفس المتغير ات مثلا لحذف الوحدات النمطيه وتكرمتم اضافة كود حذف الوحدات النمطيه بحيث يعلم على حذف الجميع مره واحده ثم يعمل اغلاق لقاعدة البيانات لان يبقاء معناء الان النموذج الموضوع فيه الكود مع خلص الشكر والتقدير للجميع اخوكم شاهر رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 1, 2005 الكاتب مشاركة قام بنشر أغسطس 1, 2005 السلام عليكم ورحمة الله وبركاته اين الاستاذه الافاضل مفيش ولا رد رابط هذا التعليق شارك More sharing options...
الدكتور خضر الرجبي قام بنشر أغسطس 1, 2005 مشاركة قام بنشر أغسطس 1, 2005 للرفع رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 3, 2005 الكاتب مشاركة قام بنشر أغسطس 3, 2005 (معدل) الاستاذ الفاضل خضر ان اظن ان الدور المطلوب ليس بصعوبه حتي لااجد الرد مثل الامثل التي انزلاتها في دروس 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 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 4, 2005 الكاتب مشاركة قام بنشر أغسطس 4, 2005 ان لله وانا اليه راجعون هل سوئلي صعب الى هذه الدرجه تقريب السوءال الثالث الذى لم اجد له رد رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 6, 2005 مشاركة قام بنشر أغسطس 6, 2005 تريد برمجة كود يقوم بحذف جميع النماذج في قاعدة البيانات في حال تحقق شرط ما هل هذه ماتريده رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 6, 2005 مشاركة قام بنشر أغسطس 6, 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 تحياتي لك رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 7, 2005 الكاتب مشاركة قام بنشر أغسطس 7, 2005 (معدل) السلام عيكم ورحمة الله اخي الفاضل/ أمجد جمالي لك خالص الشكر على اهتمامك ورد على السؤالي ولقد جربت الكود باستدعائه بهذه الطريقه Call Ap_DeleteForms لكنه لم ينفذ أى شي اوحتي رسالة خطاء ملاحظه الكود الذي في سؤالي يعمل علي حذف جميع النماذج لكن المشكله في انه ينعدم الاستجابه ولايخرج اى بعد انهاء المهمه بضغط مفاتيح alt+ctrl +delete ولايخرج بعد عملة الحذف ولايهم النموذج الموضوع فيه الكود اى النموذج النشط ان يحذف والمهم حذف بقية النماذج مع خالص أحترام وشكري على اهتمامك وكثر من امثلك اخوك شاهر تم تعديل أغسطس 7, 2005 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 7, 2005 مشاركة قام بنشر أغسطس 7, 2005 (معدل) السلام عليكم ورحمة الله وبركاته أخي الكريم بقمت بتجربة الكود كثر من مرة وبدون مشاكل ولم اصادف الخطأ الذي تحدثت عنه مرفق مثال لتجريب الكود وقم بتشغيل الكود من خلال الماكرو DeleteForms تحياتي DeleteForm.rar تم تعديل أغسطس 7, 2005 بواسطه أمجد جمالي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 7, 2005 الكاتب مشاركة قام بنشر أغسطس 7, 2005 (معدل) السلام عليكم ورحمة الله وبركاته اخي العزيز يؤ سفني اني ازعجتك ولكن حتي المثل المرفق لم يقم بأي حذف لنماذج الاربعه الموجوده في المثال مع اعتذاري لاتعبك معي تم تعديل أغسطس 7, 2005 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 7, 2005 مشاركة قام بنشر أغسطس 7, 2005 أضف المكاتب التالية Microsoft Activex Data objects 2.1 Library Microsoft Dao 3.6 Object Library وتقبل تحياتي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 8, 2005 الكاتب مشاركة قام بنشر أغسطس 8, 2005 (معدل) اخي الكريم أمجد جمالي يعجز اللسان عن الشكر سلامة من كل شر وجعله الله في ميزان حسناتك ورزقني الله واليك الذريه الصالح وجميع المؤمنين والله لايحرمنا منك من أمثلك وفي الختام ممنون جداً جداً جداً..... .... ..... ... (y) والسلام عليكم ورحمة الله وبركاته اخو ك شاهر تم تعديل أغسطس 8, 2005 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 8, 2005 مشاركة قام بنشر أغسطس 8, 2005 السلام عليكم ورحمة الله وبركاته الله يسلمك ويبارك فيك أخي الكريم احنا هون كلنا ايد وحدة على الخير اشكرك على ادبك و لطفك وتقبل تحياتي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 9, 2005 الكاتب مشاركة قام بنشر أغسطس 9, 2005 السلام عليكم ورحمة الله وبركاته اخي الكريم / أمجد جمالي مع اعتذار هل أطمع في كرم اخلاقك باستفسار بسط هو عندما تكون النماذج أكثر من عشرين يتم حذف النصف وعند تكرر الامر يتم حذف نصف النصف الاخر يعني 20 # 10#5# لايتم الحذف مره واحده ان امكن وهل اذا اضفناء متغيرات للتقارير والوحدة النمطيه الى الكود يتم حذف الجميع مع خالص الشكرى وتقدير ى رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 9, 2005 مشاركة قام بنشر أغسطس 9, 2005 (معدل) بالفعل انا اضفت وعدلت على الكود بحيث لايتوقف عن العمل الا من بعد حذف جميع النماذج تحياتي تم تعديل أغسطس 9, 2005 بواسطه أمجد جمالي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 10, 2005 الكاتب مشاركة قام بنشر أغسطس 10, 2005 (معدل) السلام عليكم ورحمة الله وبركاته اخي الكريم/ امجد جمالي الكود لايزال يحذف النصف فقط وتسطيع التجربه لتري لكن اذاكان عدد النماذج قليل مثل 5او6 يحذفها كلها يستحسن لو يعمل على حذف الجميع مع اغلاق القاعده بعد الحذف وكيف بنسبه للتقارير والوحدات النمطيه مع فائق الاحترام والتقدير تم تعديل أغسطس 10, 2005 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 10, 2005 مشاركة قام بنشر أغسطس 10, 2005 (معدل) تفضل هذا هو المثال المعدل في مثالي هذا قمت بتجميد الوقت لمدة نصف ثانية لقلة عدد النماذج والتقارير ولحتى تلاحظ كيفية عمل الكود تحياتي لك DeleteObjects.rar تم تعديل أغسطس 10, 2005 بواسطه أمجد جمالي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 11, 2005 الكاتب مشاركة قام بنشر أغسطس 11, 2005 اخي الكريم/ امجد جمالي أكتب التعقيب ونا في غالية الحرج لاني بلفعل اتعبتك معي ولكن اسئل الله العلي القدير ان يجعل هذا المجهود في ميزان حسناتك اخي الفاضل هذا المثل لم يعمل معي وهل يعمل على حذف جميع النماذج والتقارير والوحدات النمطيه مهما كان عددها مره وحده وهل هناك مكاتب اخر لاضافتها حتي يعمل معي مع العلم باني قد اضافة المكاتب السابقه Microsoft Activex Data objects 2.1 Library Microsoft Dao 3.6 Object Library مع خالص الاحترام والتقدير وارجوا المعذره على تثقيلي في الاسئله والله يعطيك الف الف عافيه رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 11, 2005 مشاركة قام بنشر أغسطس 11, 2005 شو هو الويندوز والاوفيس الي عندك رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 11, 2005 الكاتب مشاركة قام بنشر أغسطس 11, 2005 السلام عليكم ورحمة الله وبركاته اخي الكريم/ أمجد جمالي وندوز اكس بي و اوفيس اكس بي / وكمان اوفيس 2003 رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 11, 2005 مشاركة قام بنشر أغسطس 11, 2005 والله مافي حل غير انك ترمي جهازك وتجيب غيره لأنه جربت الملف في اكتر من جهاز وشغال من دون مشاكل اذا في رسالة خطأ قلي عليها تحياتي رابط هذا التعليق شارك More sharing options...
شاهر قام بنشر أغسطس 14, 2005 الكاتب مشاركة قام بنشر أغسطس 14, 2005 (معدل) أخي الكريم/ أمجد جمالي تحيه طيبه وبعد لك خالص شكر وتقدير واحترام لم اتأخرعليك في الرد الا حتي اجراب واحوال بكثر من طريقه حتي عمل معي . وقبل تنفيذ النصيحه والله مافي حل غير انك ترمي جهازك وتجيب غيره الهمك الله علما وحلما , ونفع الله بك وبعلمك (y) (y) (y) وارجو من الله ان لايضيق صدرك مني اخي الكريم اسئال العلي القدير ان يجمعنا في بيته الحرام والى تواصل اخر في اسئله اخرى ان لم تطفش مني والسلام ختام اخوك شاهر تم تعديل أغسطس 14, 2005 بواسطه شاهر رابط هذا التعليق شارك More sharing options...
أمجد جمالي قام بنشر أغسطس 14, 2005 مشاركة قام بنشر أغسطس 14, 2005 لا ياشيخ لشو اطفش منك والله كنت عبمزح معك مو اكتر ليكون صدقت ورميت الجهاز عن حق وهي احلى وردة لا احلى شاهر وأسأل قد مابدك حلو على قلبي بس بشرط انك تجرب الامثلة على جهاز غير جهازك سلام رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.