طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة

[حمادة عمر]

السلام عليكم

الاخ الكريم / صابر حمزه

 

لا داعي للخجل !!!

فكلنا هنا اخي للتعلم وما نحن الا طلاب علم

والجميل ان مبتدئ وتحاول الوصول الي الاحتراف

فان شاء الله نري قريبا احد روائعك مع الاكسيل

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

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

[سما محمد]

استاذنا القدير / حمادة عمر

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

تجعلنا محترفين

بفضل الله ثم بفضلك

ياريت اكمال سلسلة خطوة خطوة علي هذا المنوال

شكرا لك

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سما محمد

 

بارك الله فيك

وبالنسبة لطلبك ( ان شاء الله ) سيتم عمل ذلك في حينه

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

[هاني مصطفي]

استاذنا القدير / حمادة عمر

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

تجعلنا محترفين

بفضل الله ثم بفضلك

ياريت اكمال سلسلة خطوة خطوة علي هذا المنوال

شكرا لك

اكرر طلب الاخت الفاضلة / سما محمد

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

جزاك الله خيرا استاذنا

[حمادة عمر]

السلام عليكم

الاخ الكريم / هاني مصطفي

 

بارك الله فيك

وبالنسبة لطلبك ( ان شاء الله ) سيتم عمل ذلك في حينه

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

[goodfas]

أخ / حمادة عمر

جزاك الله ألف خير على المجهود العظيم

شرحك كان واضح جداً جداً

بس حاولت تطبيق النوذج والكود ولكن لم استطع فعل ذلك

كيف أبدا فرضاً من العمود الثالث أو الرابع وكذلك الصف

العاشر او السابع عشر في إدخال المعلومات اوالاستعلام او تعديل البيانات

ممكن تساعدين في الملف المرفق!

ولك مني جزيل الشكر والعرفان. 

اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل 4.rar

[abdoullah]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / goodfas

 

بارك الله فيك اخي الكريم

واسعد كثيرا واشكر فيك حبك واصرارك علي التعلم ... واحترم ذلك كثيرا

وباذن الله قريبا نري احد روائعك ... مع العفريت الاكسيل

 

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

يجب تغيير السطر

LR = sh12.[A2000].End(xlUp).Row

ليكون بالشكل التالي لتحديد مرجع البحث وهو العمود B ليصبح :

LR = sh12.[B2000].End(xlUp).Row

ثانيا : يجب عليك تحديد النطاق الصحيح للبحث والذي يعمل من خلاله الكود

       ولذلك فيجب تغيير السطر التالي في الكود :

For Each cl In sh12.Range("A5:H" & LR)

ليكون بالشكل التالي لتحديد نطاق البحث  ( كما هو في ملفك المرفق ) ليصبح :

For Each cl In sh12.Range("B6:J" & LR)

حيث تم تغيير A5 الي B6  وهو عمود البداية لديك وكذلك الصف رقم 6 في ملفك بدلا من الصف رقم 5 في الشرح في المثال

 

ثالثا : لقد قمت انت في ملفك باضافة تكست بوكس جديد TextBox10 فيجب عليك اضافة الكود له او بمعني آخر اضافته للكود ليعمل عليه الكود كما تريد

    ولذلك فيجب عليك زيادة هذا السطر التالي لعمل ذلك

Me.TextBox10 = cl.Offset(0, 8)

*** وبعمل هذه الاضافات البسيطة سيعمل ملفك بشكل جيد لعمل الاستعلام من خلال الكومبوبكس ( باذن الله )

     واليك ملفك بعد التعديل عليه كما سبق ذكره

واسعد كثيرا باي استفسار آخر ... ولا تترد لحظة واحدة في طلب العلم ..

ارجو ان يكون قد وفقني الله في توضيح هذه النقاط

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

 

اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل 4+.rar

 

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / abdoullah

 

بارك الله فيك

ولك مني اجمل تحيه .... تقبل تحياتي علي مرورك الكريم العطر

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

[goodfas]

تسلم أخي /حمادة

والله يعطيك العافية هذا يدل على حرصك واهتمامك.

بس بعد التعديل على النموذج والكود اتضح التالي :

1- عند عمل تسجيل بيانات جديدة يقوم الكود بوضع البيانات في أول خلية خارج الجدول ويمسح الجدول

   أنضر أخي للملف المرفق.

2- يا حبذا ربط (تكست بكس2 (Cod)) بالكمبكس بدل (تكست بكس1) أو إلغاءه هذا بالنسبة لطلبي

عندي بعض لاقتراحات بالنسبة للأزرار,

يا حبذا أن تكون على الشكل التالي : زر

(جديد  -  إضافة  -  تعديل  -  حذف أو مسح (مع ترتيب الجدول بعد المسح أو الحذف)  -  إغلاق )

ولك مني جزيل الشكر والعرفان,,,

 

شاشة ادخال واستعلام وتعديل 4تعديل تعديل جديد.rar

[حمادة عمر]

السلام عليكم

اخي الكريم / goodfas

بارك الله فيك

طلباتك اوامر ...وعذرا لانني لم اري ردك الا اليوم

وسأقوم بالعمل عليه كما طلبت ( ان شاء الله ) وارفقه لك

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

[سما محمد]

دائما نحن المتابعين اليك والي اعمالك استاذنا

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

[صابر حمزه]

اخى العزيز حماده عمر

عند الضغط على نموزج ادخال البيانات تظهر لى هذه الرساله ارجو الافاده

New Microsoft Word Document.rar

[صابر حمزه]

وهذا هو الملف

book2.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / صابر حمزه

 

بارك الله فيك

تقبل تحياتي

في ملفك المرفق ... اولا الصورة ترمز لوجود خطأ في الكود وهو هنا في ملفك المرسل

عبارة عن اسم الصفحة التي تقوم بادخال البيانات فيها ... حيث انها في الملف المرفق منك اسم الصفحة في الكود هو data ولكن في ملفك الجديد sheet2

فيجب عليك تغيير اسم الشيت في الكود اي استبدل السطر التالي الموجود في الملف المرفق

Set ws = Worksheets("data")

بالسطر التالي ... لتصحيح اسم الشيت

Set ws = Worksheets("Sheet2")

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

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

 

book2+.rar

 

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سما محمد

 

بارك الله فيكي

تقبلي تحياتي

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

[حمادة عمر]

السلام عليكم

اخي الكريم / goodfas

 

بارك الله فيك

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

وشاهد ان كان يعمل معك بالشكل الذي تريده ام انك تحتاج الي اي تعديل آخر

لنكمل العمل عليه كما تريد

وفي انتظار ردك ... وعذرا للتأخير

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

 

اكسيل ..طريقة عمل شاشة ادخال واستعلام وتعديل 4+.rar

[صابر حمزه]

شكرا جزيلا اخي العزيز حماده عمر

على اهتمامك ومداومتك على الرد

تم تعديل مارس 22, 2013 بواسطه صابر حمزه

[حمادة عمر]

السلام عليكم

الاخ الكريم / صابر حمزه

 

بارك الله فيك

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

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

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

[خالد القدس]

السلام عليكم

زادك الله علما وفضلا استاذ حمادة

[حمادة عمر]

السلام عليكم

اخي واستاذي / خالد القدس

 

بارك الله فيك

مرورك دائما يشرفني ويشرف الموضوع

تقبل تحياتي

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

[hader]

الاستاذ حماده عمر سلام الله عليكم

 

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

 

وانا ارفق لك برنامج عن معلومات المواطنين

 

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

 

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

 

وارجو من الله ومنك ان تلبي طلبي ولك جزيل الشكر والتقدير 

قاعدة بيانات المواطنين.rar

تم تعديل مارس 25, 2013 بواسطه hader

[حمادة عمر]

السلام عليكم

الاخ الكريم / hader

 

بارك الله فيك

وجزيل شكري علي كلماتك الرائعة

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

وان شاء الله سأكون معك فيه دائما ... انا وجميع الاساتذة

ولكن لي ملاحظة (( كيف يكون عدم التكرر في اسماء المواطنين حيث ان ذلك من الوارد او من الاكيد ان يحدث ))

وفي انتظار موضوعك ... وتوضيحاتك فيه

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

[safwat0000]

الاخ العزيز / حمادة عمر

السلام عليكم ورحمة الله وبركاته

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

انا بس النهاردة عرفت يعني ايه كود

وهناك مثل صيني يقول علمني الصيد افضل من ان تعطيني سمكة

 

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

 

عارف لو عملت كده كأنك اخذت شخص من الظلام الي النور

 

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

تم تعديل مارس 25, 2013 بواسطه safwat0000

[حمادة عمر]

السلام عليكم

الاخ الكريم / safwat0000

 

بارك الله فيك

وجزيل شكري علي كلماتك الرائعة

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

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

ومنها

* طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة

* طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة

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

* طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة

 

وهذه الموضوعات جميعها تستخدم معا لبناء برنامج كامل متكامل ... ومازلنا

والموضوع القادم ( ان شاء الله ) في هذه السلسلة .... سيكون

طريقة عمل فورم بحث واظهار النتائج في ليست بوكس ... وتعديل النتائج باستخدام تكستات بوكس !! خطوة خطوة

اتمني ان ينال رضاك

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