نجوم المشاركات

جرب هذا الملف تصفية متقدمة SALIM.rar

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

السلام عليكم اعتقد مهم ان اعطيكم مثال على Me.Painting ، فالتوضيح في الرابط التالي يحتاج الى توضيح http://www.officena.net/ib/topic/67464-المساعدة-في-فتح-صورة-من-listbox/?do=findComment&comment=438833 النموذج Form1 ، كل ثانية ، اللون الاصفر ينزل الى الحقل التالي (اي بمعنى ان النموذج يجدد شكل النموذج باستمرار ، وعليه نرى الالوان تنتقل من حقل الى آخر): الكود: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Call Change_Colors("q3") Call Change_Colors("q4") Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . اما النموذج Form2 ، فهو نسخة من النموذج السابق Form1 ، إلا اني طلبت في الكود ان: اللون الاصفر يلون الحقل الاول والثاني ، ثم اعطيت الامر بعدم تجديد شكل النموذج بالامر Me.Painting=False فاللون الاصفر ظل على الحقل الثاني للنموذج ، بينما الكود استمر في عمله في تلوين الحقل الثالث والرابع ، ولكن دون ان يُظهر لنا النتيجة على النموذج ، ثم اعطيت الامر Me.Painting=True ، فاللون الاصفر اختفى من الحقل الثاني ، وظهر لآخر حقلين ، والكود هو: Function Change_Colors(F) Me(F).BackColor = RGB(225, 225, 0) 'yellow Me(F) = F DoEvents PauseTime = 1 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me(F).BackColor = RGB(255, 255, 255) 'white Me(F) = "" End Function Private Sub cmd_Start_Coloring_Click() Call Change_Colors("q1") Call Change_Colors("q2") Me.Painting = False Call Change_Colors("q3") Call Change_Colors("q4") Me.Painting = True Call Change_Colors("q6") Call Change_Colors("q7") End Sub . والنتيجة: . طيب ، ما الفائدة عمليا من هذا الكود؟ انا استخدمت هذا الامر مرات جدا قليلة في برامجي ، والبرنامج اعلاه (في تغيير اسم الملف) هو احدهم ، اما البرنامج الآخر فهو: برنامج فيه آلاف السجلات ، وهناك صور للسجلات ، فكنت اريد ان اعرض النموذج بطريقة معينة ، بحيث باختيار اسم الموظف تصل الى معلوماته ، ولكني اردت ان اسمح لهم ان يروا بقية السجلات ايضا ، فالاكسس كان يعرض اول سجل وصورة ، ثم ينتقل الى السجل المطلوب ، وانا لم ارد للمستخدم ان يرى اول سجل وصورته ، وانما اردته ان يرى سجل وصورة الموظف الذي تم اختياره ، فاستخدمت هذه الطريقة في اخفاء السجل الاول وصورته (بعدم تجديد الشاشة) ، وعندما حان موعد ظهور السجل المطلوب وصورته ، اعطيت الامر بإظهار وتجديد شاشة الاكسس ، والنتيجة كانت مرضية لي جعفر 297.Me.Paint.accdb.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

السلام عليكم ورحمة الله وبركاته اخواني/اخواتي رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) ** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، ** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر -------------------------------------------------------- الموضوع منقول من منتدى شقيق وتم نقله كماهو وذلك للاهميه الرجاء الدعاء للاستاذ : جعفر بارك الله فيه Export_to_Excel تصدير البيانات الى اكسيل.zip

اهداء الى كل من تعلمت منهم كل جديد كل من قام بمساعدتى لوجه الله ولرغبته فى مساعدة الاخرين اهداء الى صاحب هذا الصرح العظيم الاستاذ محمد بارك الله فيه الاستاذ الكبير / خبور خير الاستاذ الكبير / الخالدى الاستاذ الكبير / الحسامى الاستاذ الكبير / كيماس الاستاذ الكبير / احمد حمور الاستاذ الكبير / ياسر حافظ الاستاذ الكبير / مهندس طارق الاستاذ الكبير / جمال الفار الاستاذ الكبير /دعيدى الاستاذ الكيبير / يحياوى الاستاذ الكيبر / عادل حنفى الاستاذ الكبير / احمد فضيلة الاستاذ الكبير / بن عليه الاستاذ الكبير / هشام شلبي الاستاذ الكبير / احمد زمان الاستاذ والعلامه / يحيى حسن والى من لم تسعفنى زاكرتى الضعيفة لزكر افضالة اهديكم هذا العمل المتواضع برنامج شئون الطلبة متوافق مع القرار 313 ومتطلبات الجودة فى المدارس المصرية وارجوا من الاساتذة مراجعته ومعرفه هل به اخطاء ام لا والرنامج به كميه كبيرة من الشيتات والمخرجات المفيدة والتى تساعد فى اعمال شئون الطلبة فى المدارس المصرية ومنها التالى اولا قوائم الفصول 1/ قائمن فصل بناظام لبنون ثم البنات ومعهم الرقم الكودى للمتعلم + الرقم القومى 2/ قائمة فصل النون فى نصف الورقة والبنات فى النصف الثانى ومعهم الرقم الكودة والرقم القومى 3/ قائمة فصل ومبين امام كل متعلم الانسطة الاختيارية التى اختارها 4/ سجل مدرسي كامل للفصل 5/كشوف حالات القيد الاجمالية 6/كشوف حالات القيد التفصيلية 7/الكارنيهات المدرسية 8/بطاقة بيانات تفصيلية لكل طالب يتم لصقها على ملفات الطلبة 9/التحويلات من والى المدرسة 10 /المتعلمون بدون رقم قومى 11/ احصاء تفصيلى عام للمدرسة ثانيا الغياب : 1/ كشف اجمالى لتسجيل عدد مرات الغياب 2/ سجل 5 سلوك 3/ سجل اجمالى مرات التأخر والغياب ثالثا : المصرفات 1/ شيت تسجيل المصروفات 2/ كشوف للطباعة بالطلبة المسددين للمصروفات كلى او جذئي 3/ احصاء عام لسداد المصروفات رابعا : الاخصائي الاجتماعى 1 / عمل دعوة لمجلس الاباء 2 / بيانات الاتصال باولياء الامور 3 / كشوف لتوقيع اولياء الامور باستلام الدعوات 4 / كشوف بالحالات الخاصة خامسا : الاعمال المساعدة فى الامتاحانات 1 / ادارة قياس الجانب المهارى او الوجدانى فكرة جيدة 2 / بطاقات تتبع المستوى 3 / رصد تتبع المستوى 4 /تجميع درجات اعمال السنه للصفوف الاول والثانى والثالث 5 /تجميع درجات اعمال السنه للصفوف الرابع والحامس والسادس 6/ تجميع درجات امتحان عملى العلوم 7 / تجميع درجات الامتحانات الشفوية 8 /تجميع درجات الانشطة ******************************************* هذا والبرنامج قابل للتعديل فى اى وقت حسبما يشاء اى مستخدم وقابل للتعديل الى اى مدرسة بارك الله فيكم جميعا وكل عام وانتم بخير انتظر رأى الاساتذة الكبار برنامج شئون الطلبة .rar

السلام عليكم ورحمة الله وبركاته 3D - Chart الجدول يتم زيادته تلقائيا ويتم زيادة الرسم البيانى ايضا يمكن تغيير وظيفة الجدول ليعرض تقرير عن المصروفات او المبيعات او الموظفين ..الخ زكاة العلم نشره تحميل الملف chart111.rar

جرب هذا الحل هل هذا ما تريد المسلك.rar

مرحبا أخي ... تستطيع فلترة البيانات باستعلام , ثم تصدير هذا الاستعلام ...

=HYPERLINK(RIGHT("0000"&ROW()-1;4)&".pdf";RIGHT("0000"&ROW()-1;4))

تفضل تم اعداد مثال بالمطلوب مع بعض التحسين عدد الكلمات المتولدة سيكون تبعا لعدد الحروف المدخلة وتقريبا سينتج : 3 حروف = 6 كلمات 4 حروف = 24 كلمة 5 حروف = 120 كلمة 6 حروف = 680 كلمة 7 حروف = 3137 كلمة بالنسبة لـ 6 حروف و 7 فالعدد الناتج تقريبي توليد كلمات من حروف محددة.rar

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

جرب هذا لعله يكون مطلبك اجماليات.rar

السلام عليكم و رحمة الله و بركاته هذا الموضوع كنت قد كتبته في نهاية شهر رمضان و رفعته على المنتدى و لكن بعد الظروف التي مر بها منتدنا و فقدان بعض المواضيع و كان هذا احد المواضيع التي فقدت رفعته لكم مجددا و هو استكمال لموضوع شرح الدالة SumProduct و الملف يحتوي شرح الجزء الأول مع الجزء الثاني الدالة SumProduct.pdf

أخي الكريم محمد جرب الملف التالي عله يفي بالغرض الرابط من هنا

تفضل اخي المرفق QQQ1.rar

اسعدت صباحا اخي الحبيب : أبو سليمان و الله اشتقنا لكم و لكل الاخوة اخي وائل الرسالة غير واضحة و لكن اعتقد حسب ما قرأت منها بعض الاحرف انك لم تقم بتمكين وحدات الماكرو ان كان لديك الاصدار 2007 من القائمة الرئيسية ----> خيارات ------> مركز التوثيق ----> اعدادات مركز التوثيق -----> اعدادات الماكرو ------> ثم تختار تمكين كافة وحدات الماكرو

كملاحظة يمكن ان نعرف ارقام الالوان بطرق مختلفة ابسطها : Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = xlColorIndexNone Then Exit Sub Target.Value = Target.Interior.ColorIndex End Sub حيث نقوم بتلوين خلايا مختلفة ثم نقف عند الخلية لنعرف ColorIndex

السلام عليكم اذا كانت ارقام الالوان معروفة مسبقا ( ColorIndex ) يمكن ان نستعمل الطريقة التالية Private Sub CommandButton1_Click() x1 = 3: x2 = 6 Dim cel As Range For Each cel In Range("d7:j7") If cel.Interior.ColorIndex = x1 Then r1 = r1 + cel.Count If cel.Interior.ColorIndex = x2 Then r2 = r2 + cel.Count Next Range("k7") = r2 Range("l7") = r1 End Sub

السلام عليكم استعمل اخي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 And Target.Row > 2 Then If IsDate(Target.Value) = True Then For i = 1 To 9 Target.Offset(, i) = DateAdd("m", i, Target.Value) Next End If End If End Sub عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

حياك الله أخوي رمهان زين الحمدلله طلّيت علينا انا كذلك كان عندي تجربة اخرى مع Echo ، وهي عند كتابة ملاحظات على Status Bar في اسفل النموذج ، وكذلك استخدمت بديل له ، وهو: DoEvents Call SysCmd(acSysCmdSetStatus, "HI THERE!!") DoEvents . و الامر DoEvents جدا مهم ، وهو لإخبار الكود بأن يعمل الامر هذا ، ويواصل العمل للخطوة التالية اما عن اغلاق المواضيع ، فانا اقوم بإغلاق مواضيعي ، وذلك بعد ان يسأل صاحب الموضوع سؤال لا علاقة له بالموضوع ، فأضطر عمل هذا حتى لا يتشعب الموضوع جعفر

السلام عليكم ورحمة الله أخي الكريم، لست أدري إن كان الملف في المرفقات يفي بالغرض... المشكل فيه هو أنه يجب التوزيع اليدوي للحراس على القاعات وهو يقوم بإنشاء قوائم الحراس حسب اليوم والفترة المختارين... أخوك بن علية Surveiller_BEM.rar