نجوم المشاركات

السلام عليكم ورحمة الله وبركاته بدايةً أحب أن أنوه أنني لا أكتم علماً أعطاه الله لي والجميع يعرف ويعلم ذلك تمام العلم .. ولكن آن الأوان أن يكون هناك ثمرة ولو بسيطة لما تعلمته نظراً لتفرغي لهذا العلم سأطرح على المهتمين بالأمر في مجال التربية والتعليم برنامج للسجلات المدرسية (عوضاً عن السجلات الورقية) لمن يهمه الأمر ...أقدم لكم برنامج السجلات المدرسية (والبرنامج ليس للبيع وليس مجاني أيضاً ) .. والبرنامج يشمل المدارس الابتدائية والإعدادية ..أي أن هناك مرونة في التعامل مع البرنامج بشكل كبير بما يتناسب مع كلا المرحلتين الخدمة المقدمة هي أن المدرسة التي ترغب في عمل السجلات تراسلني على الخاص أو يكون التواصل معي عبر حسابي على الفيس بوك (يمكنك معرفته عن طريق رسالة خاصة) .. ويتم الاتفاق على إنجاز العمل بالكامل ثم أقوم بإرسال الملفات جاهزة للطباعة مقابل أجر رمزي (وأكرر أجر رمزي عشان محدش يتخض ) ..إذ أنني أمضيت أكثر من شهرين في تصميم البرنامج والبرنامج متعوب عليه .. يتم التعامل مع المدرسة بالشكل التالي .. تعطيني المدرسة بيانات الدخول للموقع الالكتروني لنسخ بيانات الطلاب والرقم القومي وحالة القيد من الموقع (على أن تكون البيانات منضبطة على الموقع الالكتروني للمدرسة) .. أما بالنسبة لبعض الإدخالات اليدوية كصناعة ولي الأمر أو آخر مدرسة كان بها ، وبيانات المحولين من المدرسة والمحولين إليها ... فيتم إرسالها لي عبر الفيس بوك .. في خلال ساعة واحدة فقط (مهما كان عدد الطلاب) يمكن للمدرسة بعدها الحصول على الملفات جاهزة للطباعة إن شاء الله المخرجات في البرنامج بالشكل التالي : أولاً غلاف السجل وستكون به بيانات اسم المحافظة والإدارة والمدرسة ثانياً : الإحصاء الاستقراري لكل صف على حدا ولكل الصفوف مجمعة ثالثاً : أوراق السجل التي بها بيانات الطلاب من اسمه واسم الأب وحالة القيد والديانة والجنسية وتاريخ ميلاده وحساب تاريخ ميلاده وتاريخ دخول المدرسة ومحافظة الميلاد والرقم القومي (وتكون البيانات كما في السجل الورقي على صفحتين ..مكملتين) وهذا نموذج للتوضيح رابعاً : كشوف 41 مستجدين خامساً: كشوف بأسماء المحولين من المدرسة (لكل صف على حدا أو كشف مجمع لكل الصفوف) سادساً: كشوف بأسماء المحولين إلى المدرسة (لكل صف على حدا أو كشف مجمع لكل الصفوف) نموذج مقارب للنموذج السابق سابعاً : كشوف بأسماء البافين للإعادة (لكل صف على حدا أو كشف مجمع لكل الصفوف) نموذج مقارب للنموذج السابق ثامناً : كشوف بأسماء الوافدين (لكل صف على حدا أو كشف مجمع لكل الصفوف) نموذج مقارب للنموذج السابق تاسعاً : قوائم الفصول ... وأخيراً أتمنى ألا ينزعج أحد من طرحي لموضوع فيه منفعة شخصية لي .. لمن يريد التواصل أو معرفة رقم موبايلي للتواصل أن يرسل رسالة خاصة رابط الموضوع على منتدى إكسيل فور أس ExcelForUs من هنا يوجد بالمرفقات نموذج كامل لما يتم طباعته من أوراق السجل لمدرسة تقرب من الألف طالب دمتم على طاعة الله .. أخوكم في الله ياسر خليل أبو البراء Files.rar

أستاذنا الحبيب "صقر المنتدى " الذي لا يزال يجود بوقته كما هم بقية الأخوة ليعلمنا طرق العمل بالنماذج "الفورم": السلام عليكم ورحمة الله وبركاته هدية متواضعة أقدمها بين يديكم تعبيراً عن مدى سعادتنا بكم وبدروسكم عبارة عن ملف Word و PDF لآخر عمل قدمته منذ لحظات راجياً أن تنال إعجابكم والسلام عليكم هدية للصقر2.rar هدية للصقر1.rar

السلام عليكم الاخ الحبيب سعد عابد اسعد الله مساك شاهد المرفق هل هكذا تقصد جديد_111.rar

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

السلام عليكم الاخ الفاضل صالح احمد ابو يوسف افتح موضوع جديد لطلبك ولن يقصر معك الجميع كلن حسب وقته اخي ياسر خليل شاهد المرفق تقويم خاص لاادري لمن هو من ضمن الارشيف عدلنا عليه ان شاء الله يعمل معك عمل معي مع 64 بت اوفيس 2013 البحث بين تاريخين_A3.rar

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

بل أنتم تاج على رؤوس الجميع حيث لا تطور ولا حضارة إن لم يرتبطا بهذا العلم الذي أصبح ضرورة كالماء والخبز ألم يقل يوسف عليه الصلاة والسلام (اجعلني على خزائن الأرض إني حفيظ عليم) فعلمه جعل له مكانة خاصة وحظوة لم يرتق لها غيره. تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته أعجبني جداً الاهتمام بالعملية التربوية لديكم وما قاله الأخ سعد عابد صحيح فلا ضير أن يكسب الإنسان من علمه الحقيقة كنت أرى لك مساهماتك البناءة في مساعدة الآخرين بالإكسل ...ولكن ما سررت له أن أسمع أو أرى أن لديك عمل متكامل لشريحة من المجتمع ...فهو بنظري له أهمية قصوى ...حيث أنك تساعد مجتمعاً أو شريحة كبيرة بينما كنت تساعد أفراداً وأنا أرجو أن ننال حظاً من هذا الخير العميم ولكن بعد عودتنا من هجرتنا القسرية والسلام عليكم.

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

بالامكان على مااضن بهذي الطريقه Private Const Dat_On As String = "2015/12/28" '' التاريخ الاولي الذي يبداء العد من بعده Private Function Pass_My() As String Dim Vl1 As Date Dim Vl2 As Date Dim Vl3 As Date Dim Ch_Date As Date Dim Dt_on As Date '********************************* Dt_on = Dat_On Vl1 = VBA.DateAdd("d", 3, Dt_on) Vl2 = VBA.DateAdd("d", 6, Dt_on) Vl3 = VBA.DateAdd("d", 9, Dt_on) Ch_Date = DateSerial(Year(Date), Month(Date), Day(Date)) If Ch_Date = Vl1 Then Pass_My = "الحمد لله" ElseIf Ch_Date = Vl2 Then Pass_My = "الله اكبر" ElseIf Ch_Date = Vl3 Then Pass_My = "سبحان الله" End If '********************************* End Function وتستدعي الدالة من السطر التالي If TextBox1.Text = "123" Then ليكون بالشكل التالي If TextBox1.Text = Pass_My Then ارجو ان يفي بالغرض تحياتي

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

عزززززززززز فلوووووووووووووس

أخي وحبيبي في الله حسام عيسى الإكسيلجي المتميز بارك الله فيك وجزيت خيراً على مشاركتك المميزة .. مركز تدريب ودورات وبرنامج محاسبي على أعلى قدر وشغل ومش لاقي وقت (بقر بس) ربنا يزيدك من فضله وبعدين اللي معندكش وقت ليه باصيه لأخوك ..اللعبة خد وهات (ربنا يصلح أمورنا جميعاً) وبالنسبة للـ 10% لا تقلق ممكن خليهم 30% بس اعملي دعاية وليك على كل راس 30% ..نسبة عمولتك تقبل وافر تقديري واحترامي

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

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

بارك الله بكم جميعاً ...فما تقدمونه أنتم هو الخير العميم وما أنا إلا نقطة في بحركم ...وما هذا إلا جزء يسير من فيء ظلكم...أما أخي ياسر العربي فمهمة قفشاته وتعليقاته لأنه يضع إصبعه في كأس الشاي ليحليه ...فليس ضرورياً أن نبقى هكذا بل نحتاج إلى هذا وذاك حتى أن الرسول صلى الله عليه وسلم كان يمزح ولا يقول إلا حقاً. والسلام عليكم. السلام عليكم ورحمة الله وبركاته قال الله تعالى :( ولن يتركم أعمالكم). وقال تعالى:( أحصاه الله ونسوه) وقال تعالى:( هل جزاء الإحسان إلا الإحسان) أدعو الله أن يجعل أعمالك لنفع الناس في ميزان حسناتك.. نحن البشر قد ننسى وقد نخطئ وقد نقصر مع من يسدي لنا معروفاً ولكن هذه الآيات التي ذكرتها لك آنفاً تدفعك لتعمل قُدماً وبشكل حثيث دون أن تفكر باستجابة البشرأو برضاهم أو عدمه ... هذه الآيات فيها الخوف والرجاء...فالمحسن يرى فيها الرجاء والمسيء يرى فيها خلاف ذلك ... والسلام عليكم

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

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

السلام عليكم ورحمة الله وبركاته تحية عطره الى جميع اعضاء اوفيسنا هذا هو اول نشر لهذا الموضوع فى اوفيسنا اتمنى ان ينال اعجابكم الرابط http://excelfinancial1.blogspot.com.eg/p/blog-page_53.html

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

سادساً :- التعامل مع العناصر الموجوده داخل الــ Frame بطرق احترافيه فى البدايه يبدو ان العنوان غريب وغير مفهوم خليك معايا خطوه خطوه هتفم يعنى ايه الكلام ده شاهد الصوره التاليه دا فورم فى مرحلة التصميم وزى ما انتم شايفين يوجد زر اخضر اسمه Test وهو عباره عن Label ويوجد ايضا عدد 2 تكست بوكس وعدد 2 كمبو بوكس المطلوب انا عايز اعمل كود عند الضغط على الزر الاخضر اثناء عمل الفورم يقوم الكود بعمل اختبار للعناصراللى من النوع تكست بوكس هل هى فارغه ام بها بيانات اذا كانت فارغه يعطينى رساله باسم التكست وكمان يجعل لون التكست احمر ازاى ننفذ الكلام ده اولا هو عايز الكود يتم تنفيذه عند الضغط على الزر الاخضر حلو اوى طيب الزر الاخضر ده عباره عن ايه ؟ شوف الصوره هتلاقى ان الخاصيه Name هى Label1 اذن الكود هيكون كالتالى Private Sub Label1_Click() 'مكان وضع الكود المراد تنفيذه End Sub ما هو الكود المراد تنفيذه ؟ هو اختبار العناصر هل هى من النوع تكست بوكس أم لا واذا كانت من النوع تكست بوكس هل هى بها بيانات ام لا واذا تبين ان العنصر من نوع التكست بوكس ولا يوجد به بيانات اظهرلى رساله باسم العنصر وكمان اجعل العنصر لونه احمر أول شئ علشان اختبر كل العناصر اللى على الفورم واشوف نوعها اذن لازم اعرف متغير من نوع Control لان انا هتعامل مع العناصر Dim a As Control هنا سميت المتغير اسم a ( وطبعا يمكن تسمية اى اسم كيفا شئت ) وقلت اى المتغير a ده عباره عن عنصر تحكم ( قد يكون لليبل او تكست بوكس او كمبوبوكس او ليست بوكس او فريم او تشيك بوكس وغيرها من العناصر ) فعلشان الف على كل العناصر اللى موجوده على الفورم يبقى لازم الحلقه التكراريه For Each Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls ' مكان اختبار العنصر اذا كان من النوع تكست بوكس وايضا هل هو فارغ من البيانات Next a End Sub عملت حلقه For Each للمتغير a وقلت ان a ده هو عباره عن عنصر تحكم موجود على الفورم Me.Controls Me هنا عايده على عناصر الفورم ازاى بقى اعمل اختبار للعناصر هل هى من النوع تكست بوكس و هل هى بها بيانات ام لا اذن هستخدم if Then If TypeOf a Is msForms.TextBox And a = "" Then End If if تعنى لو الاختبار الاول هل العنصر من نوع التكست بوكس TypeOf a Is msForms.TextBox TypeOf تعنى نوع الــ a هو عنصر التحكم اللى بيتغير كل مره مع الحلقه For Each is يكون msForms.TextBox تكست بوكس الاختبار الثانى a = "" and تعنى ( و ) لعمل شرط ثانى a = "" عنصر التحكم فارغ Then تعنى نفذ التالى ( وطبعا قفلنا if بــ End if ) طيب لما الكود يختبر نوع العنصر ويلاقيه تكست بوكس وكمان يلاقيه فارغ ماذا ينفذ يجعل التكست بوكس لون الخلفيه احمر ويظهر لى رساله باسم العنصر If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If شاهد الكود بشكله النهائى Private Sub Label1_Click() Dim a As Control For Each a In Me.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 MsgBox "فارغ يرجى تعبئة التكست" & a.Name End If Next a End Sub هعملك مشهد تمثيلى لعمل الكود جوا دراما يعنى جايز الاقى فيكم مخرج يكتشفنى عند عمل الكود فى اول سطر هيخزن فى ذاكرته ان المتغير a هو عنصر تحكم ثم ياتى للسطر الثانى وهو For Each a In Me.Controls الحلقه هتجعل ان a هى Label1 هيروح للسطر اللى بعده يعمل اختبار بالــ if فهيلاقى ان a اللى هى دلوقتى ( Label1) مش من النوع تكست بوكس اذن متحققش الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى TextBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع TextBox1 هيلاقيه بالفعل من النوع TextBox تحقق اول شرط طيب هيشوف الشرط التانى هل التكست فارغ ام به بيانات اذا كان فارغ هيجعل لون خلفيته حمراء ويعطنى رساله باسمه ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية لما يرجع للحلقه سيكون a فى هذه المره هى ComboBox1 ثم ينتقل الى السطر التالى اختبار if طبعا هيختبر نوع ComboBox1 هيلاقيه مش من النوع ComboBox فلم يتحقق الشرط الاول فهينتقل الى End if بدون ما ينفذ اى شئ ثم ينتقل الى Next وتعنى ارجع الى الحلقه For Each مره تانية وهكذا الى ان تنتهى الحلقه بعد ما تجعل a بكل العناصر اللى على الفورم وينتهى الكود شاهد هذه الصوره عند عمل الفورم والضغط على الزر الاخضر دى كانت مقدمه للمثال التالى وهو الاهم واللى اكيد هيقابلك لو انت هتصمم برامج اكيد هيقابلك المثال التالى مثال 2 :- شاهد الصوره التالية طبعا علشان اعمل كود فى حدث الليبل " الحفظ " هيكون الاعلان عن الكود كالتالى Private Sub Label1_Click() 'اولا اختبار صحة الادخالات 'ثانيا ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub انا موضوعى اليوم هو اولا اختبار صحة البيانات المدخله أما الجزء الخاص بترحيل البيانات الى الشيت مش موضوعى اليوم سنتناوله لاحقا باذن الله اولا اختبار صحة البيانات المدخله لو رجعت للصوره السابقه هتلاقى ان المطلوب اختبار كل عناصر التكست بوكس هل تم ملئ الدرجات بها ام لا وزى ما عرفنا قبل كدا ممكن تكون كالتالى Private Sub Label1_Click() If TextBox1 = "" Then TextBox1 .BackColor = 10200 End If If TextBox2 = "" Then TextBox2 .BackColor = 10200 End If End Sub يعنى هختبر كل عنصر بالشكل ده طبعا مستحيل طيب هتعمل ايه لو كان عندك مثلا 100 تكست بوكس او اكتر ؟؟؟؟؟؟ طبعا لو عملت كدا محتاج 100 صفحه علشان تكتب الكود مش منطق طبعا اذن لازم من حل احترافى شاهد الكود بشكل احترافى فى بضعه اسطر وبعدين نشرحه Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub الكود فى المثال السابق كانت حلقة For Each عباره عن For Each a In Me.Controls ( هنا كان المتغير a يمثل كل العناصر على الفورم لذالك استخدمت Me.Controls وقلت ان Me عائده على الفورم النشط لكن فى الكود الحالى انا عايز اتعامل مع العناصر اللى داخل الــ Frame1 فقط فتم كتابة الحلقه كالتالى عباره عن For Each a In Frame1.Controls فهنا a هتكون كل عنصر من العناصر اللى داخل الفريم فقط واحد صاحى معايا هيلاحظ ان لما استخدمت If لاختبار ان العنصر من النوع تكست بوكس تم استخدام شرط التحقق من نوع العنصر انه تكست بوكس وشرط ان العنصر فارغ فى سطر واحد من خلال And شاهد الكود If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If ولكن عند استخدام if لاختبار ان العنصر من النوع كمبوبوكس وان الاختيار تم من القائمه تم استخدام if لاختبار شرط التحقق من نوع العنصر اذا كان كمبوبوكس يتم تنفيذ if اخرى وكتابة الشرط الثانى ان الاختيار تم من القائمه شاهد الكود If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If فى حد عنده تفسير لذالك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليه مكتبناش اختبار ان نوع العنصر كمبوبوكس وان الاختيار تم من القائمة فى سطر واحد من خلال And مثل التكست بوكس يعنى يكون كدا If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If هقولك انا ما هو السبب الحلقه For Each لما تشتغل هيكون اول مره a كل مره تمثل عنصر من عناصر التحكم داخل الفريم فهيكون أما ليبل أو تكست بوكس أو كمبوبوكس كما هو بمثالنا فى الصوره السابقه موضوع الشرح لما تشتغل If الاولى If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label " " = a " " =Label1 فلا يوجد مشكله لان Label ممكن = فارغ -------------------------------------- فعندما يكون a عباره عن TextBox " " = a " " =TextBox1 فلا يوجد مشكله لان TextBoxممكن = فارغ -------------------------------------- فعندما يكون a عباره عن ComboBox " " = a " " =ComboBox1 فلا يوجد مشكله لان ComboBox ممكن = فارغ -------------------------------------- لما تشتغل If الثانيه If TypeOf a Is msForms.ComboBox And a.MatchFound = False Then a.BackColor = 10200 End If فعندما يكون a عباره عن Label a.MatchFound = False Label.MatchFound = False فهنا يوجد مشكله لان Label ليس من خواصه MatchFound وكذالك TextBox لان MatchFound هى من خواص ComboBox فقط وهى لعمل اختبار هل الاختيار تم من القائمه ام لا لذالك مينفعش نعمل الكود بالشكل ده هيحدث Error ولتجنب Error لازم يكون الكود بالشكل التالى If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If يعنى اختبر العنصر هل هو ComboBox أولا أم لا اذا كان من النوع ComboBox اعمل اختبار عليه وهو هل تم الاختيار من القائمه أم لا واذا كان العنصر من النوع Label أو TextBox متعملش اختبار MatchFound ارجوا ان يكون الشرح واضح هو بس محتاج تركيز شويه شاهد الكود مره تانية بشكله النهائى كالتالى Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then a.BackColor = 10200 End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then a.BackColor = 10200 End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ طبعا انت ممكن تغير فى الكود بدل ما ينفذ بجعل الخلفيه لونها احمر a.BackColor = 10200 ممكن تغير اى شئ تريد تنفيذه يعنى مثلا يعطى للمستخدم رساله باسم العنصر اللى فيه خطأ زى كدا Private Sub Label1_Click() Dim a As Control For Each a In Frame1.Controls If TypeOf a Is msForms.TextBox And a = "" Then MsgBox a.Name & " برجاء تعبئة بيانات" End If If TypeOf a Is msForms.ComboBox Then If a.MatchFound = False Then MsgBox a.Name & " برجاء تعبئة بيانات" End If End If Next a 'ثانيا كود ترحيل البيانات التى تم تعبئتها من قبل المستخدم الى الشيت End Sub شاهد الصوره التاليه عند تشغل الفورم والضغط على زر الحفظ ------------------------------------------------------------------------------------------------------------------------------------ الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد انتظرونا تقبلوا تحياتى

السلام عليكم ورحمة الله أولا وقبل كل شي الشكر موصول للإخوان الافاضل / عبدالعزيز البسكري وياسر العربي لسرعة التجاوب والرد لتقديم الخدمة لكن طلب السائل غير واضح100%. اخي أبو عبدالرحمن حسب مافهمت من طلبك انك تريد حقول : الراتب الاساسي مخصصات الشهادة الضريبة مخصصات هندسية وإدارية صافي الراتب هذه لها شقين : أ - ان تكون غير قابلة للكتابة فيها وهي للعرض فقط : ضع المؤشر علي الحقل (مربع النص TextBox ) ثم من نافذة الخصائص انتقل إلي (قفل Locked ) وامامه غيًر الخاصية إلي ( True) وبهذا لن تستطيع عمل أي شي بالحقل حتى لو إنتقل إلية المؤشر يعتبر مجًمد .......إنتهــــــى. ب - ان يتم تجاوز هذا الحقل عند الانتقال من حقل إلي آخر بالضغط علي مفتاح الانتر Enter : ضع المؤشر علي الحقل (مربع النص TextBox ) ثم فذة الخصائص انتقل إلي (إيقاف التبويب TabStop) وامامه غيًر الخاصية إلي ( False ) وبهذا سيتجاوزها الانتقال عند الضغط علي مفتاح الانتر Enter . مرفق صورة توضيحية

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " محمّد الرّيفي " على الأعمال الرّائعة ذات المستوى الفنّي العالي و سلسلة الدّروس و الشّروحات المميّزة التي تقدّمها لمنتدانا " أوفيسنا " جزاك الله خيرًا و زادك من علمه و فضله و نفع بك الاسلام و المسلمين فائق إحتراماتي و إعجاباتي

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

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

السلام عليكم ورحمة الله وبركاته أستاذي الكريم وأخي الحبيب "ياسر أبو البراء": جزاكم الله خيراً على هذا العمل البناء الذي أهنئكم عليه ...فهو إنجاز رائع لأنه يخص شريحة أحبابنا وفلذات أكبادنا وكذلك ليهوّن على إخوتي المعلمين الذين يكفيهم عناء التحضير للدروس وإعطاء باستخدام الوسائل التعليمية والأساليب الذين يسعون جاهدين لإيصال المعلومة الصحيحة لأذهان أبنائنا الذين نرجو خيرهم فهم امتدادٌ لحضارتنا العريقة ورافدٌ للبناء. ولكن هل ينالنا من الحب جانب حيث أن نظام المدارس يختلف من بلد إلى آخر علماً أنه يؤدي الغرض ذاته حيث نرجو أن نحدّث بيانات مدارسنا بعد أن يقضي الله أمراً كان مفعولاً.. تقبل محبتي القلبية وتحياتي العطرة....فقد ظفرت بكل احترام وتقدير والسلام عليكم ورحمة الله وبركاته.

السّلام عليكم و رحمة الله و بركاته يسعدني أن أكون أوّل المهنّئين بهذا العمل القيّم و المجهود الجبّار و الكنز الثّمين .. أستاذنا القدير " ياسر خليل أبو البراء " بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه وفضله دومًا نراك سبّاق للخيرات .. أطال الله بعمرك و أمدّك بتمام الصحّة و العافية فائق إحتراماتي و إعجاباتي

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

وعليكم السلام ورحمة الله.. حل سريع قم بتغيير اتجاه النموذج من خصائصه تنسيق - اتجاه - من اليسار إلى اليمين بدلا من اليمين إلى اليسار او اجعل النموذج منبثق

ابونصار اكوادك رائعه وفقكم الله

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

إخوتي الأفاضل المرفق برمجية ملحقة بنظام متكامل للشركة وهي شركة للتخليص الجمركي و النقل و الشحن الدولي. وهو عبارة عن معالج بحث ( أداة محددة الغاية ) للتنقل بين بنود التعريفة الجمركية وإجراء عملية البحث بوصف المادة أو بند التعريفة المنسق مع خيار لإظهار تأثير الاتفاقات الدولية أو الثنائية المعقودة مع المملكة على بند التعريفة . الجدول المرفق ( طبعا ) جدول تجريبي مختصر. في المرفق نموذج تقديمي ونموذج رئيسي للبحث والتنقل ونموذج ملحق لعرض اقتران الاتفاقيات بالبند ونموذج فرعي لإظهار بنود التعريفة بالتتابع . النموذج التقديمي : تطبيق لاستخدام صورة في النموذج و توقيت الإغلاق و Progress Bar النموذج الرئيسي : تطبيق البحث بجزء من كلمة لحقلين باستخدام مربع نص واحد وأزرار أمر لتحديد حقل البحث ، وزر أمر لإظهار جميع القيود. في النموذج الرئيسي تطبيق لإظهار تلميحات وتوضيحات عن أزرار أمر وحقول وذلك عند تحريك الماوس في النموذج الرئيسي تطبيق للفرز التصاعدي و التنازلي لمحتويات الحقل. في النموذج الرئيسي نموذج فرعي لإظهار البيانات محتويات حقل مختار ( الوصف ) بالتتابع حسب فاصل زمني لعداد الوقت . آملا أن يكون فيه بعض فائدة والله من وراء القصد TarifDemo.rar

السلام عليكم ورحمة الله نقدم لكم كلمة مرور عن طريق توليد رقم عشوائي شرح الطريقة فتح ملف جديد وإضافة التالي 1 - فورم ونسميه Form1 2 - مربع نص ونسميه Txt1 3 - زر امر ونسميه Cmd_LogoIn وقبل ان نتطرق للفورم والكود نذهب اولا إلي الصفحة (الشيت) ونختار الخلية [IV1] تستطيع تغييرها حسب رغبتك ونضع بداخلها المعادلة التالية : =RANDBETWEEN(999999;9999999) وهي تقوم بتوليد رقم عشوائي بتكوًن بين 9,999,999 وبين 9,999,999 وتستطيع التغيير إلي الأكثر او الأقل حسب ماتراة مناسب . ثم نذهب للخلية [IV3] ونضع بها المعادلة التالية : =LEFT(IV2;3)+RIGHT(IV2;2) وهي تأخذ اول ثلاثة ارقام من يسار الرقم بالخلية [IV2] وأول رقمين من يمين الخلية المذكورة. وقيمة الخلية [IV2] يتكون عن طريق الكود في حدث تنشيط الفورم وهو يساوي قيمة الخلية التي يتم توليد الأرقام العشوائية فيها وهو [IV2] = [IV1.Value Private Sub UserForm_Activate() ' لاحظ الخلية [IV2] تساوي الخلية [IV1] وهي التي تقوم بتوليد الرقم العشوائي [IV2] = [IV1].Value 'لاحظ هنا عنوان الفورم هو الرقم العشوائي Form1.Caption = [IV2] End Sub ولاحظ ان الرقم العشوائي يظهر بعنوان الفورم وبتغيًر كل مرة يظهر فيها الفورم ولإستخراج كلمة المرور منه مثال ان الرقم العشوائي 760340 فاول ثلاثة ارقام من اليسار هي 760 وأول رقمين من اليمين 40 نجمعها (760 + 40 = 800 ) إذا كلمة المرور هي 800 . تستطيع ان تأخذ رقمين او ثلاثة ..إلخ من يسار الرقم العشوائي او رقمين او ثلاثة اواكثر من يمينه وبعد ذلك تجمع او تطرح والنتيجة في الخلية [IV3] كل ذلك يتم في في المعادلة ادناه : =LEFT(IV2;3)+RIGHT(IV2;2) وهذا الكود البسيط مع الشرح : Private Sub Cmd_LogoIn_Click() 'إذا كان مربع النص التكست ون يساوي فراغ If Txt1.Text = vbNullString Then 'إذا اخرج من الإجراء الفرعي Exit Sub 'غير ذلك إذا كان مربع النص لايساوي قيمة الخلية[IV3] ElseIf Txt1.Text <> [IV3].Value Then 'إذا رسالة توضح ان كلمة المرور غير صحيحة MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ", vbCritical, "ÇáÊÃßÏ ãä ßáãÉ ÇáãÑæÑ" 'غير ذلك إذا كان مربع النص بيساوي [IV3] ElseIf Txt1.Text = [IV3].Value Then 'إذا رسالة توضيحية احسنت MsgBox "ÇÍÓäÊ" 'اجعل تطبيقات الاكسل مرئية Application.Visible = True 'إخفاء الفورم Unload Me ' End If End Sub اخيكم في الله أبو الحسن والحسين مرفق مثال شاشة دخول - تغيير الباسورد عشوائي.rar

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

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

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

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

سلمت يمينك أخى الحبيب / سليم رائــــــــــــــــــــــــــــع جزاك الله خيرا

أخي الكريم أبو يوسف 9060 أفضل فتح موضوع جديد بطلبك الجديد .. تقبل تحياتي

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Address = "$A$1" Then Dim X, WS As Worksheet X = Target.Value Set WS = Sheets("البيانات") If X + 3 > WS.Cells(Rows.Count, "A").End(xlUp).Row Then MsgBox "لقد أدخلت رقم أكبر من البيانات المتاحة في ورقة البيانات", 64: Exit Sub If X = "" Or X = 0 Then If MsgBox("هل تريد مسح البيانات الموجودة؟", vbYesNo) = vbYes Then Range("A3:G1000").ClearContents: Application.Goto Target: Exit Sub Else Application.Goto Target: Exit Sub End If End If Application.ScreenUpdating = False Range("A3:G1000").ClearContents WS.Range("A4:G" & X + 3).Copy Range("A3").PasteSpecial xlPasteValues Application.Goto Target Application.CutCopyMode = False Application.ScreenUpdating = True End If End Sub بارك الله فيك أخي الحبيب أبو عيد الأخ الكريم أبو أحمد هل المطلوب نسخ المعادلات أم تحقيق الهدف ..لأنني لاحظت أنك تقوم بنسخ البيانات عن طريق المعادلات ثم سحب المعادلات بالكود لتحقق الهدف أليس من الممكن تحقيق الهدف بدون اللجوء إلى المعادلات إليك الكود التالي يوضع في حدث ورقة العمل ..الكود قد يكون أطول من كود الأخ أبو عيد لأنني راعيت أن يراعي جميع الاحتمالات .. ماذا لو وضعت القيمة صفر في الخلية A1 أو مسحت محتوياتها أو وضعت رقم أكبر من الأرقام الموجودة في ورقة البيانات عموماً إليك الكود التالي عله يفي بالغرض

بالطبع اخي مختار حسين لان الاسم خلال الفترة لم يذكر اكثر من رمره لذا لايوجد تكرار ! اما ماذكرته : يوجد خلل بسيط في كود حدث "Calendar1_Click" في الفورم المسمى "Celndr_Ali" Ali_Rep.Controls(A_Se).Value = Calendar1.Value يستبدل بالتالي لعمل عليه فورمات ليأتي بالتاريخ بالشكل الذي نريده "yyyy/mm/dd" Ali_Rep.Controls(A_Se).Value = Format(Calendar1.Value, "yyyy/mm/dd") اذهب الى كود "ListBox1_Click" في السطر الحلقة التكراريه For ii = 1 To .ListCount - 1 الصح بيكون من 0 كأول سطر في الليست بوكس كالتالي For ii = 0 To .ListCount - 1 اذهب الى خصائص فورم "Ali_Rep" وروح الى خاصية "RightToleft" قيمتها False حولها الى True ان شاء الله ستظهر كما تريد او ضيف السطر التالي في حدث "UserForm_Initialize" Me.RightToLeft = True المرفق بعد تعديل ماذكر مسبقاً البحث بين تاريخين_A2.rar

السّلام عليكم و رحمة الله و بركاته أستاذي الفاضل " خالد الشّاعر " هذا الملف به كود للتّرحيل لا يتطلّب منك تحديد رقم الصّف .. فقط قم بتغيير أرقام الأعمدة .. إذا أردت تغيير وضعية الجدول .. قم بتحريكه كاملا بأي صف تريد .. أمّا إذا غيّرت وضعية الأعمدة .. هنا وُجب عليك التغيير بمحرّر الأكواد .. أظن هذا يناسبك .. " أحسنْ من كِدا مفيشْ " فائق إحتراماتي خالد الشّاعر.rar

أخي الكريم ابو راكان لا تدعو على النظام الذي أعمل عليه ...فأنا الآن صرت من عشاق هذا النظام الرائع والسريع جداً في التعامل مع نظام التشغيل والجهاز لأنه يستغل إمكانيات الجهاز بالكامل وكل مشكلة ولها حل إن شاء ربي إليك التعديل التالي ليوافق العمل على نظام 64 بت #If VBA7 Then Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function SetWindowPos Lib "User32" (ByVal hwnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare PtrSafe Function GetWindowRect Lib "User32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long #Else Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowPos Lib "User32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetWindowRect Lib "User32" (ByVal hwnd As Long, lpRect As RECT) As Long #End If Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Enum ESetWindowPosStyles SWP_SHOWWINDOW = &H40 SWP_HIDEWINDOW = &H80 SWP_FRAMECHANGED = &H20 SWP_NOACTIVATE = &H10 SWP_NOCOPYBITS = &H100 SWP_NOMOVE = &H2 SWP_NOOWNERZORDER = &H200 SWP_NOREDRAW = &H8 SWP_NOREPOSITION = SWP_NOOWNERZORDER SWP_NOSIZE = &H1 SWP_NOZORDER = &H4 SWP_DRAWFRAME = SWP_FRAMECHANGED HWND_NOTOPMOST = -2 End Enum Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Sub ShowTitleBar(bShow As Boolean) Dim lStyle As Long Dim tRect As RECT Dim xlHnd As Long xlHnd = Application.hwnd GetWindowRect xlHnd, tRect If Not bShow Then lStyle = GetWindowLong(xlHnd, GWL_STYLE) lStyle = lStyle And Not WS_SYSMENU lStyle = lStyle And Not WS_MAXIMIZEBOX lStyle = lStyle And Not WS_MINIMIZEBOX lStyle = lStyle And Not WS_CAPTION Else lStyle = GetWindowLong(xlHnd, GWL_STYLE) lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_MAXIMIZEBOX lStyle = lStyle Or WS_MINIMIZEBOX lStyle = lStyle Or WS_CAPTION End If SetWindowLong xlHnd, GWL_STYLE, lStyle Application.DisplayFullScreen = Not bShow SetWindowPos xlHnd, 0, tRect.Left, tRect.Top, tRect.Right - tRect.Left, tRect.Bottom - tRect.Top, SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED End Sub Sub Hide_Application_Title() ShowTitleBar False End Sub Sub Show_Application_Title() ShowTitleBar True End Sub

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

دى اقرب فكرة قدرت اوصلها تقدر تعدل بما يتماشى ويتناسب معاك واكيد لو في حلول عملية عند اساتذتنا الكرام لن يبخل عليك احدهم بالرد عليك وتلبية طلبك ابشر بكل الخير Database date.rar

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

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

اخى ابراهيم جزاك الله خيرا بارك الله فيك شروحات ممتازة