فورم يتغير حسب الحاجة

[alfahad]

ارجو من اخواني الاساتذة مساعدتي في الاتي

كيفية عمل مثل هذا فورم ( الفورم موجودعلى الرابط ادناة)

واكرر رجائي بان يكون الشرح مستفيضاً لكي استطيع تطبيقة

وشكراً لكم .

تم تعديل سبتمبر 28, 2012 بواسطه alfahad

[عبد الفتاح كيرة]

أخى الفاضل

الفديو يستفيض فى الشرح

وفقك الله

مرفق ملف الإكسيل

التدريب على الفورم الديناميكى.rar

تم تعديل سبتمبر 29, 2012 بواسطه أبو لميس

[عبدالله باقشير]

السلام عليكم

نورت المنتدى اخي ابو لميس

تقبل تحياتي وشكري

[عبد الفتاح كيرة]

أستاذى و معلمى

عبد الله باقشير

بارك الله فيك

لك وحشة كبيرة جدا

هلا توليت أخانا السائل

فأخوك غارق فى الأكسيس هذه الأيام حتى أذنيه

[أبو حنــــين]

بعد اذن اخي ابو لميس

هذا مرفق يوضح العمل

Book1.rar

[alfahad]

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

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

رائع جداً وفعلا استاذ الله لا يحرمنا من امثالك

اخي ليكتمل الفورم كيف يمكنني اضافة هذه الخانات الثلاث

اضافة تعديل حذف

[alfahad]

اخي ابولميس

اشكر لك ردك

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

[أبو حنــــين]

ثم عمل اللازم رغم ان الفورم يتطلب بعض التنسيق

فهد.rar

[أبو حنــــين]

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

فهد 2.rar

[يوسف عطا]

إخوانى الأفاضل

أى جزء يجب تغييره فى الكود لكى يتسع الفورم لأكثر من 200 إدخال

حيث أنه لا يقبل إلا 200 إدخال فقط

خاصة الجرار يعد حتى 200 إدخال فقط

[أبو حنــــين]

بهذا الكود يمكن ان يتسع الى 256 عمود

Private Sub UserForm_Initialize()

ÂÎÑ_ÎáíÉ = æÑÞÉ1.Range("IV1").End(xlToLeft).Column

Dim ãÑÈÚÇÊ_ÇáäÕæÕ As Control: Dim ãÑÈÚÇÊ_ÇáÚäÇæíä As Control

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For t = 1 To ÂÎÑ_ÎáíÉ

Set ãÑÈÚÇÊ_ÇáÚäÇæíä = Frame1.Controls.Add("forms.label.1", "label" & t, True)

With ãÑÈÚÇÊ_ÇáÚäÇæíä

.Left = Frame1.Width - 90: .Top = 1 + (t * 15)

.Width = 60: .Height = 15: .TextAlign = 3

Frame1.Controls("label" & t).Caption = Cells(1, t)

End With

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ãÑÈÚÇÊ_ÇáäÕæÕ = Frame1.Controls.Add("forms.textbox.1", "textbox" & t, True)

With ãÑÈÚÇÊ_ÇáäÕæÕ

.Left = Frame1.Width - 160: .Top = 1 + (t * 15)

.Width = 90: .Height = 15: .TextAlign = 3

Frame1.Controls("textbox" & t).Text = Cells(2, t)

Frame1.ScrollHeight = Frame1.ScrollHeight + Frame1.Controls("textbox" & t).Height + 2

End With

Next t

End Sub

لو تلاحظ الكود لوجدت اننا غيرنا فقط Z1 بالقيمة IV1

[يوسف عطا]

أقصد الإدخالات الطولية يا أخى الغالى

بالفعل كنت قد غيرت Z1 من قبل إلى AZ1

ليقبل 52 عمود

ولكنى أريد أن يقبل داتا حتى 2000 إدخال لأن الجرار ينتهى عند 200 إدخال فقط

[أبو حنــــين]

من الخاصية Max للجرار ScrollBar1 غيرها الى ما تريد و هي الاآن متوقفة عند 200

[أبو حنــــين]

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

فهد 2.rar

[saad abed]

ابوحنين

اعمالك وردودك قيمة اسمح لى يا اخى ان ابدى اعجابى

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

سعد عابد

[أبو حنــــين]

جزاك الله خيرا أخي الكريم سعد عابد

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

[يوسف عطا]

من الخاصية Max للجرار ScrollBar1 غيرها الى ما تريد و هي الاآن متوقفة عند 200

هل من هذه الجزئية ؟؟

Private Sub ScrollBar1_Change()

آخر_خلية = ورقة1.Range("DZ1").End(xlToLeft).Column

Label100.Caption = ScrollBar1.Value

For s = 1 To آخر_خلية

Me.Controls("textbox" & s).Text = Cells(Label100.Caption, s).Offset(1, 0)

Cells(Label100.Caption, 1).Offset(1, 0).Select ' = ActiveCell

If Me.Controls("textbox" & s).Text = "" Then

ScrollBar1.Value = 1

Exit Sub

End If

Next s

End Sub

معلش لم أعرف أى جزء يجب تغييره لأجعلها 2000 بدلاً من 200

الرجاء التوضوع

[يوسف عطا]

أبو حنين

دائماً أنت سباق بفعل الخيرات

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

ولكن فى التعديل الأخير فى المرفق بالمشاركة 14 الجرار وصل حتى إدخال رقم 260 ولم يزد عنها

ولى طلب آخر لو تكرمت

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

المطلوب أن يتم تعديل المسلسل بعد حذف السجل أوتوماتيكياً من داخل الفورم

مثلاً عند حذف الإدخال بإسم 22

أصبح المسلسل 20 - 21 - 23 - 24

متخطياً المسلسل الخاص بالسجل المحذوف

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

وإليك الملف بعد تكبير الفورم لعرض بيانات أكثر ليتناسب مع عمل أفكر فى القيام به

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

الف شكر

فهد 2.rar

تم تعديل سبتمبر 30, 2012 بواسطه يوسف عطا

[دغيدى]

ما أجمل الابداع من أهله

[أبو حنــــين]

صباح الخير اخي يوسف

تم تغيير السكرول بار الى 3000 اسم

و بالنسبة للفورم اضغط مرتين متتاليتين في اي مكان من الورقة يظهر الفورم

--------------------------------------------

* أسعد الله صباحك اخي الحبيب دغيدي *

***************************************

فهد 3.rar

[يوسف عطا]

أخونا جمال بك دغيدى

صبحك الله بالخيرات

أخونا ابو حنين

عملية حذف سجل لا تزال بها مشكلة حيث يتم الآتى عند حذف أحد السجلات

1. الخلية A1 المفروض هى راس عمود وبها كلمة مسلسل ولكنها تتغير تلقائياً إلى رقم 1 عند حذف أحد السجلات

2. يقوم كود الحذف بحذف الإدخال الذى يقع فوق الإدخال المراد حذفه فمثلاً عند حذف الإدخال العاشر قام بحذف الإدخال التاسع بدلاً منه

3. تم تكرار مسلسل 10 فى الإدخالات 10 و 11

عشمى ألا أكون قد اثقلت عليك أخى الغالى

[أبو ردينة]

ماشاء الله تبارك الرحمن

الإخوة الكرام

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

أخي الحبيب / أبو حنين

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

1- إخفاء ورقة العمل و الإبقاء فقط على فورم البحث مع وجود زر أو دبل كليك على الفورم يعكس هذة العميلة عند الحاجة ( أي يخفي الفورم و يظهر ورقة العمل )

2- مربع أو ليبل يظهر إجمالي عدد السجلات الحالي بورقة العمل

3- محو الرقم في مربع" البحث بأسم " عند أستعمال حركة الأسكرول بار ( بمعنى أني لو كتبت مثلا في البحث " إسم 20 " ثم حركت الأسكرول بار تقديما أو تأخيرا يمحى الرقم بمربع البحث )

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

5- منع التكرار عند إضافة أسم جديد أو تعديل أسم موجود مع رسالة تفيد بوجود هذا الأسم في النظام.

6- إضافة زر لطباعة نتيجة البحث فقط و ليس كل المسجل بورقة العمل مع إمكانية تحديد إتجاه ورقة الطباعة ( أفقي / رأسي ) من خلال التأشير على مربع أختيار قبل ضغط زر الطباعة.

7 - إضافة زر لنسخ نتيجة البحث في ورقة عمل جديدة بترتيب أفقي أو رأسي ( يتم تحديده بالتأشير على مربع أختيار قبل ضغط الزر )

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

[alfahad]

اخي واستاذي ابو حنين تعجز الكلمات عن شكرك

ولكن ذاك طبع الكرم يتفانون في تقديم المساعدة للغير

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

وان يجزيك بكرمه ومنه انه اهلٌ لذلك

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

هلا جعلت الحذف اكثر دقة دون حذف اسماء الاعمدة

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

اشكر جميع الاساتذه الذي قاموا بإثراء الموضوع الاستاذ/ دغيدى. الاستاذ/ يوسف عطا. الاستاذ/ ابو ردينة. الاستاذ/ سعد عابد

[عبدالله باقشير]

السلام عليكم

احسنت اخي الحبيب ابو حنين

وبعد اذنك انا لدي فورم في ملفاتي الخاصة

فيه من المطلوب الكثير

المرفق 2003

فورم معاينة وتعديل و إضافة.rar

[عبد الفتاح كيرة]

بارك الله فيك أخى عبد الله و نفع بك