شاهر

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

السلام عليكم ورحمة الله وبركاته اخي الكريم / أمجد جمالي مع اعتذار هل أطمع في كرم اخلاقك باستفسار بسط هو عندما تكون النماذج أكثر من عشرين يتم حذف النصف وعند تكرر الامر يتم حذف نصف النصف الاخر يعني 20 # 10#5# لايتم الحذف مره واحده ان امكن وهل اذا اضفناء متغيرات للتقارير والوحدة النمطيه الى الكود يتم حذف الجميع مع خالص الشكرى وتقدير ى

اخي الكريم أمجد جمالي يعجز اللسان عن الشكر سلامة من كل شر وجعله الله في ميزان حسناتك ورزقني الله واليك الذريه الصالح وجميع المؤمنين والله لايحرمنا منك من أمثلك وفي الختام ممنون جداً جداً جداً..... .... ..... ... (y) والسلام عليكم ورحمة الله وبركاته اخو ك شاهر

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

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

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

الاستاذ الفاضل خضر ان اظن ان الدور المطلوب ليس بصعوبه حتي لااجد الرد مثل الامثل التي انزلاتها في دروس 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

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

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

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

الاخوه الاكارم في المنتدي السلام عليكم ورحمة الله وبركاته كيف استطيع اعمل لهذا الكود دوار بحيث لايخرج الا بعد حذف جميع النماذج لاني عملته بعد شرط اذا لم يتحقق الشرط يبداء الدوار في عمل هذا الكود 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 وهل لوإضيف كود اخر يجب تعريف لنفس المتغير ات مثلا لحذف الوحدات النمطيه وتكرمتم اضافة كود حذف الوحدات النمطيه بحيث يعلم على حذف الجميع مره واحده ثم يعمل اغلاق لقاعدة البيانات لان يبقاء معناء الان النموذج الموضوع فيه الكود مع خلص الشكر والتقدير للجميع اخوكم شاهر

السلام عليكم أخي /خضر بارك الله فيك وزارد الله في اجرك على هذا المجهود المشكله انه لايوجد في المشاركه غير هذا الكود كماهو منسوخ مع وكان الاستفسار عن طريق لاستخدامه في شي يفيد في اى برنامج مع خالص لاحترام وتسلم علي مجهودك يا الغالي .

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

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

[b]الاستاذه الاكارم وان التصفح بعض المشاركات وجده الكو التالي واعلام ماهي الفائده من عند وضع في حدث الحالي لايمكن اغلاق الاكسس If Not pboolCloseAccess Then Cancel = True هل يوجد له شرط حتي تغلاق نافذة الاكسس نرجوا التوضيححتي تعم الفائد للجميع مع خالص شكري[/b]

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

السلام عليكم ورحمة الله وبركاته اخي العزيز خضر ان عتاب لك ياخي العزيز من العشم فيك ولا اعرفك ماذا أفعل الان هل اعيد الموضوع في موضوع جديد اما نتركه حتي نجد من يتفضل بحل المشكله مع خالص الاحترام

للرفع نرجوا الاهتمام مع خالص الاحترام

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

اخي الكريم خضر الرجبي السلام عليكم ورحمة الله اشكرك فأ نت السباق الى تقديم العون والمساعد بارك الله فيك وزاد من امثالك ولى عليك عتاب انك نسيت الموضوع السابق (كيف اظهار اشرطه المختصر عند اخفاء شاشة الاكسس)http://www.officena.net/ib/index.php?showtopic=8757&hl= ولك خالص الشكروالتقدير

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

اين الاستاذ الكريم خضر الرجبي لقد تم ارفاق الملف في قسم مؤقت لتحميل الملفات الى الموقع للاعضاء على هذه الرابطه المفق المرفقhttp://www.officena.net/ib/index.php?showtopic=8838

أخي العزيز خضر الرجبي لم يفلح ذلك الخيار وتم ارفاق الملف في قسم مؤقت لتحميل الملفات الى الموقع للاعضاء علي هذه الربطه اعذرني لااعرف كيف يتم ارفقه الي هذه الصفحه لاظهار الشريط المذكور يتم ايقاف كود اخفاء شاشة الاكسس عند فتح فور emp مع خالص الاحترام الملف المرفق:

السلام عيكم ورحمة الله وبركاته رقم الطالب تاريخ نوع السلوك ملاحظات 1 1/1/2005 غياب حصه بدون مبرار 1 2/3/2005 غياب يوم كامل المبرار اجازه مرضيه 2 18/32005 تميز في الامتحانات الشهريه مادة الرياضيات ويمكن علم التقرير ان حضر ولى امر الطالب وطلب ملخص عن سلوك وحضور والنشاط وهكذا وهناك مثل للاخ رضاء ابو عقيل عن السلوك والمواظبه يمكن الاقتباس منه ولكني لااعرف رابطة البرنامج واسف عن التقصير اخي العزيز علاء

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