يوزرفورم بحث و تعديل وحذف مرن يصلح لأي قاعدة بيانات

[شوقي ربيع]

بسم الله الرحمان الرحيم

السلام عليكم

تحياتي لجميع اعضاء اوفيسنا المحترمين

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

لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول

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

لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته

و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة

ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية

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

كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك

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

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

نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص

اولا

اذهب الى محرر الاكواد تجد موديل باسم ModulePublic

تجد في بدايته هذين الكودين او التعريفين ان صح التعبير

Public Const sNomFeuil As String = "data"   'اسم ورقة العمل التي تحمل قاعدة البيانات
Public Const sTableau  As String = "tbData" ' اسم جدول قاعدة البيانات

اضن ان الامر واضح

تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data"

واسم الجدول نفسه مكان عبارة "tbData"

ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول

لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول

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

ثانيا

نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس)

لتنفيذ ذالك

قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين

في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة

ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس  اسم نطاق القائمة و انتهى الامر

ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل

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

            و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا

اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي

اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا

الاخ ضاحي الغريب و الاستاد عبد الله باقشير

تحياتي للجميع

 

 

UserForm Flexibles.rar

 

[ضاحي الغريب]

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

لا يخفت بريقها عنا لحظه واحده

نترقب أضاءتها بقلوب ولهانه

ونسعد بلمعانها في سمائنا كل ساعه

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

اخي وصديقي الغالي / شوقي ربيع

المتميز دائما نجم من نجوم اوفيسنا سيظل يجمعنا سويا الكثير والكثير

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

الحاضر دائما بمحبته واعماله  في قلوبنا معلمنا واستاذنا / عبدالله باقشير ولا ننساه بدعوة بظهر الغيب ان ييسر امره وامرنا جمعيا

كل فرسان اوفيسنا الذين ساهموا في بناء هذا الصرح التعليمي 

جمعيا لهم في قلوبنا مكان ومكانة تعلمنا علي ايديهم وتبادلنا دروب المعرفة تارة وتعلمنا معني العطاء 

اخواننا الاعضاء جمعيا الذي ومازلنا نتعلم من اسئلتهم وطرحهم 

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

بارك الله فيك وجزاك خيرا الجزاء

 

 

[مجدى يونس]

الاخ شوقى ربيع

عودة حميدة وعمل ممتاز جاى بنشاط نمسك الخشب

متابع لنشاطك من يوم عودتك

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

اضف اليه حذف سطر كامل لاكتمال الفورم

الاخ ضاحى الغريب

لاحظت فى الفترة البسيطة عودة عمالقة المنتدى بما انت فيهم

فى انتظار الاخوة عبدالله ( باقشير  و المجرب)

حمد الله على السلامة عودة حميدة

تم تعديل أبريل 8, 2017 بواسطه مجدى يونس

[ضاحي الغريب]

اخي الحبيب استاذنا الجليل الاستاذ / مجدي يونس

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

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

فاللهم يجمعنا دائما علي درب الخير والعطاء 

تحية طيبة لشخصكم الكريم العزيز

[مجدى يونس]

الاخ العزيز

دعنى اقتبس من كلاماتك السابقة فى هذه الازرار

 

فى غيابكم دخلت للاكسل بالموضوع التالى

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

 

[ناصر سعيد]

هذا ملف به فورمه للبحث ارجو ادراج اكوادكم الرائعه فيها

حيث انها هنا لاتاتي بمطابقه الحرف الذي نبحث عنه

 

فورمه بحث تصلح للمدارس.rar

[شوقي ربيع]

3 ساعات مضت, ضاحي الغريب said:

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

لا يخفت بريقها عنا لحظه واحده

نترقب أضاءتها بقلوب ولهانه

ونسعد بلمعانها في سمائنا كل ساعه

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

اخي وصديقي الغالي / شوقي ربيع

المتميز دائما نجم من نجوم اوفيسنا سيظل يجمعنا سويا الكثير والكثير

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

الحاضر دائما بمحبته واعماله  في قلوبنا معلمنا واستاذنا / عبدالله باقشير ولا ننساه بدعوة بظهر الغيب ان ييسر امره وامرنا جمعيا

كل فرسان اوفيسنا الذين ساهموا في بناء هذا الصرح التعليمي 

جمعيا لهم في قلوبنا مكان ومكانة تعلمنا علي ايديهم وتبادلنا دروب المعرفة تارة وتعلمنا معني العطاء 

اخواننا الاعضاء جمعيا الذي ومازلنا نتعلم من اسئلتهم وطرحهم 

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

بارك الله فيك وجزاك خيرا الجزاء

 

 

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

وكل الاساتذا الكرام الذين مرو بهذا السرح العظيم

بحق هم فرسان كما وصفتهم اخي ضاحي

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

 

3 ساعات مضت, مجدى يونس said:

الاخ شوقى ربيع

عودة حميدة وعمل ممتاز جاى بنشاط نمسك الخشب

متابع لنشاطك من يوم عودتك

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

اضف اليه حذف سطر كامل لاكتمال الفورم

الاخ ضاحى الغريب

لاحظت فى الفترة البسيطة عودة عمالقة المنتدى بما انت فيهم

فى انتظار الاخوة عبدالله ( باقشير  و المجرب)

حمد الله على السلامة عودة حميدة

يكفيني مرورك استاذي الغالي مجدي يونس فمرورك يشرفني

وشكرا لعبراتك الجميلة والمنتدى منور بنورك استاذي الغالي و بالاساتذا المحترمين اعضاء المنتدى

بخصوص الحذف هو مدرج بالفعل يضهر اثناء التعديل

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

[شوقي ربيع]

منذ ساعه, ناصر سعيد said:

هذا ملف به فورمه للبحث ارجو ادراج اكوادكم الرائعه فيها

حيث انها هنا لاتاتي بمطابقه الحرف الذي نبحث عنه

 

فورمه بحث تصلح للمدارس.rar

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

واتباع الشرح

 

أوائــــــل الطلبه والشهادات وشهادة التقدير.rar

[مجدى يونس]

الاخ /

شكرا لعبراتك الجميلة فعلا نورت المنتدى

عند تجميل الملف السابق ظهرت الصورة التالية والماكرو لا يعمل

ياترى ماهو السبب

تم تعديل أبريل 8, 2017 بواسطه مجدى يونس

[شوقي ربيع]

24 دقائق مضت, مجدى يونس said:

الاخ /

شكرا لعبراتك الجميلة فعلا نورت المنتدى

عند تجميل الملف السابق ظهرت الصورة التالية والماكرو لا يعمل

ياترى ماهو السبب

هذا راجع الان الملف اوفيس 2003 و انا اعدت تصميم الجدول على اوفيس 2016 وكما تعلم في هذه الحالة يعطي خطاء لعدم توافق الالوان المهم هذا الملف من جديد على اوفيس 2016

أوائــــــل الطلبه والشهادات وشهادة التقدير.rar

[ناصر سعيد]

اخي الكريم الاستاذ شوقي

ملفي به فورمه للبحث وفائده هذه الفورمه اننا نبحث عن اسماء معينه وبعد اختيارنا للاسماء يتم استدعائهم  ثم يتم طبع شهاداتهم

ليس البحث من اجل البحث وانما البحث من اجل طبع الشهادات الناتجه عن البحث

ارجوك اريد فورمتي هي التي تعمل اما الاكواد خاصتها فعليك ياباشا

حفظك الله ورعاك

[مجدى يونس]

الاخ /

شكرا لتعديل الملف وربنا يوفقك

[محمد الورفلي1]

في ١١‏/٧‏/١٤٣٨ هـ at 06:24, شوقي ربيع said:

بسم الله الرحمان الرحيم

السلام عليكم

تحياتي لجميع اعضاء اوفيسنا المحترمين

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

لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول

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

لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته

و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة

ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية

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

كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك

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

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

نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص

اولا

اذهب الى محرر الاكواد تجد موديل باسم ModulePublic

تجد في بدايته هذين الكودين او التعريفين ان صح التعبير

Public Const sNomFeuil As String = "data"   'اسم ورقة العمل التي تحمل قاعدة البيانات
Public Const sTableau  As String = "tbData" ' اسم جدول قاعدة البيانات

اضن ان الامر واضح

تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data"

واسم الجدول نفسه مكان عبارة "tbData"

ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول

لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول

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

ثانيا

نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس)

لتنفيذ ذالك

قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين

في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة

ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس  اسم نطاق القائمة و انتهى الامر

ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل

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

            و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا

اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي

اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا

الاخ ضاحي الغريب و الاستاد عبد الله باقشير

تحياتي للجميع

 

 

UserForm Flexibles.rar

 

 

 

السلام عليكم

الملف لم يعمل على 2003  هل ممكن نسخة على 2003

 

[حمادة عمر]

السلام عليكم

اخي وحبيبي / شوقي ربيع .. ملك الحركات

بارك الله فيك

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

والاحساس الموجود بيننا بدون اهداف الا ابتغاء مرضاة الله .. وشكرا لك لجعل موضوعك يجعل الاخ الحبيب / ضاحي غريب .. يعود لو بكلمة

كنت وستظل دائما ملك الحركات في الفورم

ولكن هذه المرة ليس بالفورم اي حركات انما هي (    طلقات    ) من العيار الثقيل

وبالفعل فورم جميل وفكرته اروع واجمل بجد خطييييير .. واعجبتني جدا فكرة اكتشاف الفورم لاعمدة التاريخ تلقائيا

جزاك الله خيرا

تقبل خالص تحياتي

 

[شوقي ربيع]

تفضل اخي محمد الخازمي

UserForm Flexibles 2003 .rar

23 ساعات مضت, حمادة عمر said:

السلام عليكم

اخي وحبيبي / شوقي ربيع .. ملك الحركات

بارك الله فيك

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

والاحساس الموجود بيننا بدون اهداف الا ابتغاء مرضاة الله .. وشكرا لك لجعل موضوعك يجعل الاخ الحبيب / ضاحي غريب .. يعود لو بكلمة

كنت وستظل دائما ملك الحركات في الفورم

ولكن هذه المرة ليس بالفورم اي حركات انما هي (    طلقات    ) من العيار الثقيل

وبالفعل فورم جميل وفكرته اروع واجمل بجد خطييييير .. واعجبتني جدا فكرة اكتشاف الفورم لاعمدة التاريخ تلقائيا

جزاك الله خيرا

تقبل خالص تحياتي

 

السلام عليكم

حبيبي حماده عمر

والله يوحشتنا تلك الايام و كل اولائك العضماء الذين مرورو بهذا الصرح

وجازاك الله خير على كلماتك الطيبة

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

[alkaser]

بارك الله فيك اخي على الموضوع القيم

[محمد الورفلي1]

السلام عليكم

كما حصل معي عند تحويل الملف الي 2003  رسالة خطاء عند الضغظ علي مفتاح الفورم

 

تم تعديل أبريل 10, 2017 بواسطه محمد الخازمي

[شوقي ربيع]

18 ساعات مضت, alkaser said:

بارك الله فيك اخي على الموضوع القيم

حزاك الله خيرا

شكرا لمرورك

تحياتي

اخي محمد الخازمي

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

تحياتي

تم تعديل أبريل 11, 2017 بواسطه شوقي ربيع

[رشوان احمد]

اسناذى شوقى ربيع

نظرة على الرابط التالى

باقى الازرار

 

[جلال الجمال_ابو أدهم]

شوقي ربيع

جزاك الله خيرا و نتمنى وجودك دايما

 

[ضاحي الغريب]

في ٩‏/٤‏/٢٠١٧ at 18:02, حمادة عمر said:

السلام عليكمشكرا لك لجعل موضوعك يجعل الاخ الحبيب / ضاحي غريب .. يعود لو بكلمة

اخي الغالي ابو سما

والله الموقع وفريق العمل لهم مكان ومكانة ويصعب علينا قلة المتابعة .

لكن يعلم الله انكم وجميع فريق اوفيسنا لهم في انفسنا مكان واحبكم جمعيا في الله

تحياتي لسما واللهم يبارك لك وجزاك الله خيرا

 

[جلال الجمال_ابو أدهم]

ضاحي الغريب شوقي ربيع حمادة عمر محمد طاهر

الساده الافاضل
تحياتى و ايام مباركه 

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

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

المساعدة في اعمال المنتدي

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

و رحم الله اخونا 

الحسامي

Emad Al.Hosami

الحساميالحسامي

 

تم تعديل أبريل 13, 2017 بواسطه جلال الجمال_ابو أدهم

[يوسف السيد]

الاستاذ : شوقي ربيع

الفورم رائع جدا جدا

ولكن  هل يمكن استثناء بعض الاعمدة من الظهور في الليست بوكس مع عرض كل البيانات بدون نقص في التيكست بوكس علي اليسار

وايضا هل يمكن ان تتسع التيكست بوكس لتلائم البيانات بداخلها

[شوقي ربيع]

5 ساعات مضت, يوسف السيد said:

الاستاذ : شوقي ربيع

الفورم رائع جدا جدا

ولكن  هل يمكن استثناء بعض الاعمدة من الظهور في الليست بوكس مع عرض كل البيانات بدون نقص في التيكست بوكس علي اليسار

وايضا هل يمكن ان تتسع التيكست بوكس لتلائم البيانات بداخلها

بخصوص استثناء بعض الاعمدة كل ماعليك فعله هو اخفاء الاعمدة التي لاتريدها ان تظهر في اليست

اما الطلب الثاني فقد تم تعديل الفورم بحث اصبحت التكست اطول من السابق مع تصغير العناوين

 

UserForm Flexibles.rar

[saad abed]

اخى شوقى ربيع

أولا وحشنى جدا جدا جدا

الك وحشه يا غالى

ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع