شوقي ربيع

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

السلام عليكم تم عمل فورم على الشكل التالي عند تشغيل الفورم سيقوم تلقائيا بحذف الصفوف اللي تحتوي على 0 من عامود Levels Completed وايظا الصفوف التي تحتوي على 1 = Levels Completed و 3 = Levels Required اما بخصوص الفلترة سيقوم الفورم ايضا بفلترة الصفوف حسب اختيارتلك بحث تحدد من اليست التي تود ان تضهر بالشروط التي تحددها من Category Type و Class Type لاكن بدل مايقوم البرنامج بحذف الصفوف التي لاترغب بيها يقوم باخفائها وهكذا يمكنك التراجع عن الفلترة و انشاء فلترة جديد بدون فقدان البيانات ارجو ان يكون هذا المطلوب تحياتي MGT pending.rar

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

صديقي ملفك ملئ بالاخطاء و به الكثير من الاشياء التي لم افهم فائدتها عن الاكواد اتكلم المهم هذا الملف عملت عليه بعض الاصلاحات كما يمكنك مشاهدة هذا الرابط و تطويع الفورم الذي به مع ملفك مشكلة في كود الحذف بعد التعديل.rar هذا ملفك ادرجة له فورم البحث و التعديل و الحذف المرن مشكلة في كود الحذف بعد التعديل.rar

ادرج ملف و ان شاء الله سنجد الحل

ستستغرق العملية بضع ثواني cope.rar

ارفق الملف

التعديل لا يتم لان الاكود مصممة لتعمل مع Sheet Activate للوصول الى ماتريده يجب اعادة برمجة الاكواد من اول و لفعل ذلك محتاج بعض الوقت سنقوم بالازم ان شاء الله عند توفر بعض الوقت تحياتي

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

مالذي تود فعله في هذا الملف

فقط اضف عبارة Exit Sub بعد سطر ال msgbox مباشرتا في كود الحذف

قيمة ماذا تود جلبها الطلب غير مفهوم

الرجاء تزوينا بقاعدة بيانات المخزون لكي اقوم بتصميم لك هذا البرنامج مع تقديم شرح اكثر للموضوع

استعمل الحلقات التكرارية فقط ضع كود النسخ داخلها For i = 1 To 120 'ضع هنا كود النسخ هنا Next

تفضل اخي محمد الخازمي UserForm Flexibles 2003 .rar السلام عليكم حبيبي حماده عمر والله يوحشتنا تلك الايام و كل اولائك العضماء الذين مرورو بهذا الصرح وجازاك الله خير على كلماتك الطيبة لك مني فائق الاحترام و التقدير

؟؟؟؟؟؟؟ لايوجد اي مشكل في المرفق

السلام عليكم تجد في المرف الحل ان شاء الله اضف ما شئت من ملفات تود جلب منها البيانات في الفولدر الذي يحوي الملف المستقبل يجب مراعات الاتي اولا نماذج المدرسة التي تجلب منها البيانات يجب ان تكون مثل النموذج الذي طرحته اسم المدرسة في الخلية H2 اليانات المرحلة تبدئ من الصف 12 اسم الورقة (ورقة1) لا تغير هته المعطيات في حالت ما غير يجب التعديل على الكود ثانيا الملف المستقبل نفس الشي البيانات تبدء من السطر 9 غير هذا الايوجد مشكة ان غيرة اسم الملف او الملفات التي تجلب منها البيانات تحياتي odbcRabie.rar

هذا راجع الان الملف اوفيس 2003 و انا اعدت تصميم الجدول على اوفيس 2016 وكما تعلم في هذه الحالة يعطي خطاء لعدم توافق الالوان المهم هذا الملف من جديد على اوفيس 2016 أوائــــــل الطلبه والشهادات وشهادة التقدير.rar

يمكن ذلك بواسطة الدالتين if و vlookup البحث عن كلمة.rar

اخي الكريم كما هو موضح في الشرح الفورم يمكن استعماله على اي ملف فقط قم بتصدير الفورم و الموديلات الى الملف الخاص بك واتباع الشرح أوائــــــل الطلبه والشهادات وشهادة التقدير.rar

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

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

السلام عليكم جازاك الله خيرا اخي محمد الريفى وجعله في ميزان حسناتك تحياتي لك

السلام عليكم كود بحث في فورمة.rar

السلام عليكم شكرا للاخ حمادة على الرد على طلب الاخ محمد الخازمي السائل عن زر الحذف اما بخصوص طلب الاخ ناصر سعيد قم بتغير الكود الموضح بالصورة بهذا الكود فقط Dim D: D = "*" & UCase(TxSerch)