ضاحي الغريب

أخي الكريم // المصباحي بارك الله فيك وجزاك خيرا وادعوا الله لنا ولكم بالتوفيق ان شاء الله مع تحياتي

أخي الكريم // زمزم الامر يسير باذن الله اهم شيء الارادة ورغبتك في التعلم والتحصيل مع تحياتي

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

أخواني الأعزاء .. أ/ محمد عبدالله العبد أ/ مصطفي كامل أ/ محمد عبدالصمد بارك الله فيكم وجزاكم خيرا علي مروركم العطر وكلماتكم ودعائكم الطيب تقبل الله منا ومنكم الصالحات مع تحياتي

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

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

استكمالا لموضوع الصفحات المتعددة MultiPage control الأداة السحرية في اليوزرفورم وما يدور حوله من تساؤلات كثيرة من البعض وتلبية لطلب اخي الحبيب ابو عبدالرحمن أ/ سعد عابد في تساؤله حول ادارة الخصائص المتقدمة للصفحات المتعددة داخل اليوزفورم والذي طرح تساؤله في موضوع (كنترول زاد - المرحلة الابتدائية ) المشاركة رقم 33 من هنا أخترت ان تكون الاجابة منفصلة بشيء من التفصيل لتعميم الفائدة وسهولة البحث في موضوعنا هذا (( أمثلة عن كيفية استخدام أدوات الفورم )) سبق وقمت بشرح أداة الصفحات المتعددة MultiPage control في المشاركة رقم (84) للاطلاع اضغط هنا وتعرفنا من خلالها علي أداة الصفحات المتعددة كالتالي يتألف عنصر تحكم الصفحات المتعددة من واحد أو أكثر من الصفحات، تحتوي كل منها على مجموعتها الخاصة من الضوابط والأدوات المختلفة . يتم استخدام عنصر الصفحات المتعددة عندما كنت ترغب في التعامل مع كمية كبيرة من البيانات التي يمكن تصنيفها إلى فئات متعددة، حيث يمكن إنشاء صفحة منفصلة لكل فئة. ويمكنك وضــع الضوابط التي تمكنك من ادارة العناصر والادوات في كل صفحة في عنصر تحكم متعدد الصفحات بكل يسر وسهولة ، على خلاف ذلك جزء من في UserForm. عنصر تحكم الصفحات المتعددة لديها العديد من الصفحات، حيث اختيار صفحة يجعلها واحدة الحالية (مما يجعلها مرئية) في الوقت الذي يختبئ الآخرين. كل صفحة من عنصر تحكم المتعدد الصفحات لديها ترتيب الجدولة الخاصة. يتم ترقيم الصفحات من صفر، ولتحديد الصفحة الأولى في عنصر تحكم متعدد الصفحات، استخدم التعليمات البرمجية: MultiPage1.Value = 0. افتراضيا. عنصر تحكم المتعدد الصفحات يقوم باضافة صفحتان ،ولإضافة صفحات انقر بزر الماوس الأيمن على علامة التبويب واختر صفحة جديدة ((حدد حذف الصفحة لحذف صفحة) . ملاحظة: كل صفحة من عنصر التحكم المتعدد MultiPage سوف يكون منفصل ويمكن استخدام مجموعة او اكثرمن عناصر وادوات التحكم الأخري خلالها ، بغض النظر عن ما إذا كانت جميع الأدوات (عبر كل الصفحات ) لها نفس اسم مجموعة ولشيء من التفصيل مع الامثلة العملية يمكن الرجوع للموضوع مشاركة رقم 84 (من هنا) ومراجعة موضوع شرح التعرف الخصائص المختلفة لادوات الفورم والتحكم فيها فيها عن طريق التعديل بخواصها المشاركة رقم 205 (من هنا) وتعرفنا ايضا الفرق بين اداة الصفحات المتعددة وأداة TabStrip Control كالتالي عرفنا ان عنصر تحكم متعددةالصفحات MultiPage هو وعاء لعناصر التحكم ، كل صفحة تحتوي على مجموعة منفصلة من الضوابط واختيار صفحة (أي جعلها مرئية) يخفي الصفحات الأخرى منها . أما عنصر تحكم TabStrip يحتوي على مجموعة متسقة من الضوابط عبر كافة علامات التبويب (في شريط علامات التبويب). مضمون الضوابط يتغير عندما يتم تحديد علامة تبويب مختلفة ولكن وضوح أو تخطيط عناصر التحكم تبقى نفسها." ويمكن الرجوع للمشاركة رقم (105) من هنا لشيء من التفصيل . لكن درسنا اليوم تطبيقات عملية للخصائص المتقدمة لأداة التحكم (الصفحات المتعددة - MultiPage control ) وكيفية التحكم فيها بأكثر من طريقة مثـال (1) سنقوم بانشاء يوزر فورم بسيط واضافة عنصر الصفحات المتعددة MultiPage وسوف نتعرف معا علي كيفية اعطاء اسم لكل صفحة عن طريق الكود والانتقال بين الصفحات عن طريق اداة الــ ( SpinButton ) وكذلك اضافة عنوان يتغير مع تغيير الصفحة . اولا :- في حدث التغيير Change لاداة الصفحات المتعددة MultiPage1 نضيف الكود التالي لتحديد اسماء الصفحات وكذلك لتغير العنوان مع كل صفحة بالضافة لعرض اسم الصفحة اعلي الفورم Private Sub MultiPage1_Change() 'لتغير بيانات العنوان وعنوان الفورم مع تغيير الصفحة Select Case MultiPage1.Value Case 0 Lb_Information.Caption = "شاشة أدخال البيانات" Me.Caption = MultiPage1.Pages(0).Caption Case 1 Lb_Information.Caption = "شاشة البحث" Me.Caption = MultiPage1.Pages(1).Caption Case 2 Lb_Information.Caption = "شاشة التقارير والطباعة" Me.Caption = MultiPage1.Pages(2).Caption End Select End Sub ثانيا :- في حدث تشغيل الفورم UserForm_Activate نحدد الحد الادني والاعلي لاداة التحكم SpinButton Private Sub UserForm_Activate() 'في حدث تشغيل الفورم 'تعين الحد الادني والاقصي لمفتاح التنقل With SpinButton1 .Min = 0 .Max = MultiPage1.Pages.Count End With End Sub ثالثا:- في حدث الـChange لاداة التحكم SpinButton1 Private Sub SpinButton1_Change() 'في حدث التغير لمفتاح الانتقال MultiPage1.Value = SpinButton1.Value - 1 End Sub رابعا :- في حدث انطلاق الفورم نحدد صفحة البداية ولتكن مثلا الصفحة الاولي - للصفحات المتعددة Private Sub UserForm_Initialize() 'في حدث انطلاق الفورم 'لتحديد صفحة البداية الصفحة الاولي MultiPage1.Value = 0 End Sub التطبيق العملي بالمرفقات انظر Example1 مثال (2) سوف نتعرف من خلاله علي كيفية التحكم في عرض الصفحات عن طريق زر (التالي والسابق) اولا: - نضيف زرأمر CommandButton ونخصصه لوظيفة (التالي) وأخر نخصصه لزر (السابق) ثانيا:- حدث الضغط علي زر امر (التالي) نضيف مايلي Private Sub cmdNext_Click() 'في حدث الضفط علي زر التالي Dim idxPage As Integer idxPage = Me.MultiPage1.Value + 1 If idxPage = 3 Then Exit Sub Me.MultiPage1.Value = idxPage End Sub ثالثا:- في حدث الضغط علي زر أمر (السابق) Private Sub cmdPrevious_Click() 'في حدث الضغط علي زر السابق If Me.MultiPage1.Value = 0 Then Exit Sub Else Me.MultiPage1.Value = Me.MultiPage1.Value - 1 End If End Sub التطبيق بالمرفقات انظر Example2 مثال(3) استخدام زر امر واحد للتنقل بين الصفحات Private Sub Cmb_Move_Click() 'في حدث الضغط علي زر التحرك بين الصفحات Dim idxPage As Integer idxPage = Me.MultiPage1.Value + 1 If idxPage = 3 Then idxPage = 0 Me.MultiPage1.Value = idxPage End Sub التطبيق بالمرفقات انظر Example3 مثال (4) الانتقال بين الصفحات باستخدام الـVBA مع اخفاء جميع الصفحات واظهار صفحة محددة وربطها بزر امر اولا :- نضيف كود اخفاء الصفحات خلال تشغيل الفورم Sub CtrlPages() 'لاخفاء جميع الصفحات With Me For Each pPage In .MultiPage1.Pages pPage.Visible = 0 Next pPage 'لتحديد استايل عرض الصفحات بدون عنواين .MultiPage1.Style = fmTabStyleNone End With: End Sub ثانيا:- نقوم باضافة عدد 3 زر امر 1- زر امر مثلا لشاشة الادخال وفي حدث الكليك نضيف الكود التالي Private Sub Cmb_Entry_Click() With Me 'استدعاء كود الاخفاء CtrlPages 'اظهار الصفحة الأولي .MultiPage1.Pages(0).Visible = True .MultiPage1.Value = 0 End With: End Sub 2- زرامر للصفحة الثانية مثلا لشاشة البحث Private Sub Cmb_Search_Click() With Me CtrlPages 'اظهار الصفحة الثالثة .MultiPage1.Pages(1).Visible = True .MultiPage1.Value = 1 End With: End Sub 3- زر امر للصفحة الثالثة مثلا التقارير Private Sub Cmb_Repors_Click() With Me CtrlPages 'اظهار الصفحة الثانية .MultiPage1.Pages(2).Visible = True .MultiPage1.Value = 2 End With: End Sub ثالثا:- تعين الصفحة الاولي كصفحة البداية عند تشغيل الفورم Private Sub UserForm_Activate() 'جعل صفحة بداية الفتح الصفحة الاولي Cmb_Entry_Click End Sub التطبيق بالمرفقات انظر Example4 مثال عملي أخر - المشاركة رقم 332 (اضغط هنا ) لمزيد من الأمثلة العملية يمكن مراجعة (برنامج أوفيسنا للتحاليل الطبية) او (برنامج كنترول زاد - المرحلة الابتدائية ) .. وغيرها من خلال الضغط علي رابط مواضيعي بالمنتدي من هنا فاللهم تقبل منا عملنا هذا خالصا لوجهك الكريم اسأل الله العلي القدير أن يوفقني وإياكم لما فيه الخير اداة التحكم الصفحات المتعددة.rar

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

أخي // اسلام تم تعديل الملف يمكنك السداد بطريقتين الطريقة الاولي:- 1- من خلال شاشة الدفعات يمكنك اختيار المستأجر المستحق عليه ايجار قم اضغط خيار(سداد) بجوار اسم المستأجر 2- سيحولك البرنامج تلقائيا الي شاشة الايرادات لتحرير ايصال استلام الايجار 3- اكمل بقية بيانات الايصال (رقم السند - البيان ) ثم اضغط (حفظ) 4- تظهر لك تاكيد حفظ السند والترحيل. تلاحظ عند طلب طلب كشف تم ظهور العميلة الطريقة الثانية مباشرة من شاشة الايرادات والمصروفات 1- اختار (ايراد) 2-ثم من نوع السند اختار ( تحصيل ايجار) 3- سوف يظهر لك كمبوبوكس لاختيار اسم المستأجر 4- اكمل بقية البيانات ثم حفظ الملف بالمرفقات برنامج الايجارات الاصدار الثاني 2- ضاحي الغريب.rar

أخواني .... (الجزيرة - محمد السيد الشاطر - ro58) السلام عليكم ورحمة الله وبركاته بارك الله فيكم علي مروركم الطيب مع تحياتي

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

أخواني أبو أنــس kimosoft بـارك الله فيكم علي مروركم الطيب

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

أخي الفاضل الخلوق أ/ إســلام الشيمي السلام عليكم ورحمة الله وبركاته مرورك شرفني واسعدني بارك الله فيكم وجزاكم خيرا وادعوا الله ان اكون عند حسن ظنكم في وجمعنا واياك في الخير دائما تقبل تحياتي

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

أخي الفاضل أ/ أحمد فـؤاد بارك الله فيك وجزاك خيرا علي مرورك العطر وكلماتك ودعائك الطيب واللهم يتقبل منا ومنكم صالح الأعمال مع تحياتي

أخي الفاضل أ// محمد الحازمي مرورك شرفني بارك الله فيك وجزاك خيرا تقبل تحياتي

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

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

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

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

أخي الكريم // خزاني بارك الله فيك علي مرورك وكلماتك ودعائك الطيب واللهم يتقبل منا ومنكم صالح الاعمال مع تحياتي

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

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

البرنامج مفتوح ضيف كما يحلو لك حسب احتياجاتك