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

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

السلام عليكم استخدم هذا الكود في الحدث "بعد التحديث" ، لحقل رقم الدليل المحاسبي : Private Sub Daleel_Calc_AfterUpdate() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From TBL2 Where [Daleel_Calc]='" & Me.Daleel_Calc & "'") If rst.RecordCount <> Then Me.Mostnd_Num = rst!Mostnd_Num Me.Mostnd_Date = rst!Mostnd_Date Me.Notes = rst!Notes End If rst.Close: Set rst = Nothing End Sub If rst.RecordCount <> 0 Then جعفر 344.Current_CostProg.mdb.zip

السلام عليكم ورحمة الله وبركاته إخوتي الكرام أستاذنا الجليل أبو البراء: ((((((جزاكم الله خيراً على ما تقدمونه لنا وللأجيال اللاحقة من علم نافع بإذن الله تعالى)))))). مافهمته من الكود هو التالي : راجياً التصحيح والإفادة حتى يتم استيعابه من قبلي: عرض الشهور بلغات العالم حتى 99 لغة.. 1- متغير R على طول الصفوف 2- متغير C على طول الأعمدة 3- متغير Str تاريخ البدء كتاريخ. 4- متغير S بحث كقيمة منطقية. إيقاف تحديث الشاشة..ثم 1- الصفوف حتى 12 لاستيعاب عدة الشهور ((إن عدة الشهور عند الله اثنا عشر شهرا في كتاب الله يوم خلق السماوات والأرض منها أربعة حرم ذلك الدين القيم فلا تظلموا فيهن أنفسكم وقاتلوا المشركين كافة كما يقاتلونكم كافة واعلموا أن الله مع المتقين ( 36 ) . ( إنما النسيء زيادة في الكفر يضل به الذين كفروا يحلونه عاما ويحرمونه عاما ليواطئوا عدة ما حرم الله فيحلوا ما حرم الله زين لهم سوء أعمالهم والله لا يهدي القوم الكافرين ( 37 ) . 2- الأعمدة حتى 99 لاستيعاب اللغات:(( يا أيها الناس إنا خلقناكم من ذكر وأنثى وجعلناكم شعوبا وقبائل لتعارفوا إن أكرمكم عند الله أتقاكم إن الله عليم خبير ( 13 ) ) ....تاريخ البدء=تبديل التاريخ بتنسيق 1 من كل شهر ثم ينفذ حلقة تكرارية ...ثم تفعيل تحديث الشاشة ثم إغلاق الكود. هذا ما فهمته..كتبت ذلك استجابة لطلبكم في التفاعل مع العمل ... والسلام عليكم.

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

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

(بارك الله بك اخي ياسر على هذه المعادلة الرائعة والتي لم تخطر على بالي (و انا بخبط راسي كي ابتدع حلاً مناسبا على كل حال هذا حل اخر بالكود (الصفحة My_sheet) Rifi_Salim 1.rar

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " محمّد حسن المحمد " على التّوضيح و التّحليل باسم الله ما شاء الله .. شرح و لا أروع .. جزاك الله خير الجزاء و زادك من علمه و فضله خالص إحتراماتي

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

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

بارك الله فيكم إخواني وأحبابي في الله أخي العزيز عبد العزيز بلاش الزنقات دي .. هسيبك تبحث في هذه النقطة وهي وضع أسماء اللغات في الصف الأول من النتائج التي تظهر أخي الحبيب حسام يكفينا منك كلمة "جزاكم الله خيراً" فهي أفضل ما في الدنيا وما فيها أخي الغالي أحمد الفلاحجي مشكور على مرورك العطر ، بالنسبة للدالة CDate تستخدم لتحويل النص إلى تاريخ حيث حرف الـ C يرمز لكلمة Convert أي تحويل جرب تغير السنة لـ 2016 وشوف هل سيحدث ذلك فارق أم لا ؟ جرب بنفسك .. أي سنة مش شرط 2015 .. تقبلوا تحياتي

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

برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) office 2010 اليوم وبعد مرور ستة شهور من طرح برنامجى السابق على الرابط التالى http://www.officena....opic=41247&st=0 اقدم لكم برنامج الفواتير و المخزون الشامل المحدث ( الاكسيل بشكل جديد ) برنامج يحتوى على الاتى 1- شاشه ادخال الفواتير بكافه انواعها وفى هذه الصفحه ايضا يكمنك البحث عن اى فاتورة وتعديلها او الغائها او طباعتها كما يوجد اختصار لاخرالفواتير المدخله التى يمكن استدعائها بضغطة زر واحده و العديد من التفاصيل اكتشفها بنفسك 2- شاشه لادخال العملاء و التعديل عليها بها جميع تقاصيل العميل 3- شاشه ادخال الموردين و التعديل عليها بها جميع تقاصيل المورد 4-شاشه ادخال الاصناف و التعديل عليها بها جميع تقاصيل الصنف 5-شاشه ادخال المناديب و التعديل عليها 6- شاشه ادخال مستخدمين بصلاحيات مختلفه 7- شاشات التقرير وتشمل الكثير و الكثير من التقارير كتقارير المبيعات و المشتريات وتقرير على حسب المناديب او المستخدمين و الكثير من التقارير التى يمكن اكتشافها بنفسك 8- شاشه تقرير حسب العميل يوضح مشتراياته ومدفوعاته بالتواريخ وايضا يبين المديونيه المستحقه 9- كما توجد العديد والعديد من الشاشات كادخال السندات و الخصومات و المصاريف وطباعتها 10- الكثير من المزايا الاخرى كحركه صنف وتقرير المخزون وتقرير الموازنه والربح و الخساره... اكتشف المزيد ملاحظات هامه 1- تم عمل البرنامج على اوفيس 2010 و البرنامج لن يعمل بشكل جيد الا على هذا الاصدار لذلك ارجون من يقوم بتجربته ان يكون على هذا الاصدار 2- تم وضع الكثير من الاختصارات التى توصلك لبعض التقارير وتم الشرح داخل البرنامج 3- لاى استفسار خاص بالبرنامج يكون عن طريق هذا الصرح العظيم او عن طريق مراسلتى بالايميل التالى amroomo@gmail.com 4- اتمنى ان يكون هذا البرنامج اضافه لهذا المنتدى العظيم 5- شكر واجب لكل مشرفى و اعضاء منتدى اوفيسنا الذى اصبح مناره الاوفيس فى الوطن العربى 6- الرقم السرى للدخول 123 7- الرقم السرى لمحرر الاكواد هو 85211 8- للبدء باستخدام البرنامج وتجربته قم بادخال الاصناف او حتى صنف واحد وكذلك مع العملاء و الموردين قم بادخال بيان واحد لكل منهما وبعد ذلك قم بعمل الفواتير و السندات بعد ذلك يمكنك استدعاء التقارير المختلفه الخاصه بالبرنامج كما انه لابد من ادخال المناديب او حتى مندوب واحد لكى تستطيع حفظ الفاتوره صورة البرنامج اخيرا ارجو من الجميع عدم التردد فى اى استفسار او ملاحظات تم رفع البرنامج على موقع الميديا فاير حيث ان مساحه البرنامج 1.9 ميجابايت ============================= تم إضافة الملف الى المشاركة بدل الرابط الخارجي الإشراف ============================= البرنامج هو تحديث للبرنامج السابق على الرابط التالى http://www.officena....opic=41247&st=0 برنامج المخزون و الفواتير 2013.rar

السلام عليكم ارجو المساعدة في خطوات اضافة خانة في التقرير على الآكسس لتفقيط الارقام بالعربي علما بان كود التفقيط غير متوفر لدي لكم خالص تحياتي 4444.rar

السلام عليكم ورحمة الله وبركاته معايا موضوع هو أكيد مش جديد بس لو فيه حد احتاجله أو حاجة، ده ملف أكسل بيفتح صورة بامتداد JPG موجودة فى فولدر بنفس امتداد ملف أكسل، يارب الموضوع يعجبكم فتح صورة.rar

بسم الله ماشاء الله ربنا يبارك فيكم ويجزيكم خير حلول رائعه من اساتذه المنتدى سامحنى استاذى ابوالبراء فاننى (احبط ) احيانا نتيجة لعدم التفاعل -------. واليكم فهذه حلول متواضعه بجانب حلولكم والحقيقة كان هذا سؤال من احد الناس فوجدت انه يستاهل التفكير فاحببت ان اطرحه واشاركه معكم حتى نبدع جميعا واتمنى من الجميع تقديم المزيد والمزيد من الحلول الحل الاول =IF(MID(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1)="/", REPLACE(CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1),1,1,""), CONCATENATE(A1,IF(B1<>"","/",""),B1,IF(C1<>"","/",""),C1,IF(D1<>"","/",""),D1,IF(E1<>"","/",""),E1)) الحل الثانى =A1& IF(AND(A1<>"",COUNTA(B1:E1)),"/","")& B1 & IF(AND(B1<>"",COUNTA(C1:E1)),"/","") & C1 & IF(AND(C1<>"",COUNTA(D1:E1)),"/","") & D1 & IF(AND(D1<>"",COUNTA(E1)),"/","") & E1 الحل الثالث دالة UDF وليست من اعدادى بل منقوله =ConcatRange(A1:F1,"/") Option Explicit Function ConcatRange(R As Range, Optional sDelim As String = " ") As String 'If no delimiter specified, delimiter will be a space Dim C As Range Dim V As Variant Dim COL As Collection Dim I As Long Set COL = New Collection For Each C In R If C <> "" Then COL.Add C.Text Next C ReDim V(0 To COL.Count - 1) For I = 0 To UBound(V) V(I) = COL(I + 1) Next I ConcatRange = Join(V, sDelim) End Function Concatenate%20formula.rar

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

اخي ابحث في المنتدى عن التنسيق الشرطي أو افتح موضوع جديد ...

السلام عليكم ورحمة الله وبركاته بارك الله لنا فيكم ونفعنا ونفع الدنيا بعلمكم اعلى الله قدرك ارجو المساعدة في اكمال برنامجي بخصوص متابعة المعاملات 1. عمل فرز وتصفية وتقرير مفصل بالقائمة المنسدلة في العمود (G) المسمى بالحالة. 2. فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين. 3. إضافة ترحيل البيانات محددة إلى sheet2 ارجو ان يوفقكم الله لذلك ولا تبخلوا علينا بعلمكم سجل+متابع...rar

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

حيا الله أخي كرار عملي مبني على: جعفر

السلام عليكم قمت بتغير مصدر النموذج الى الاستعلام بدل الجدول عمر الجهاز.rar

أخي الكريم جرب التالي استبدل الرقم 700 بالشكل التالي sCont = Sheets("بيانات المدرسة").Range("S1").Value

أخي الحبيب محمد الريفي نشتاق لموضوعاتك الجديدة بشكل دائم ولتواجدك فيما بيننا لدي دالة معرفة تقوم بالأمر ولكني سأكتفي بهذه المعادلة البسيطة لتؤدي الغرض =SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1&" "&E1)," ","/") تقبل تحياتي

المشكلة طلعت بسيطة , تم حلها والحمدلله الطريقة : 1 كليك يمين الماوس على الملف 2 نختار (فتح باستخدام) 3 ثم (اختيار البرنامج الافتراضي) 4 ثم نضع علامة الصح كما في الصورة (السهم الأحمر) ثم موافق

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

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

السلام عليكم اخي ياسر انا اول ما ظهر الموضوع في نفس الصفحة هذه رقم ( 2 ) ولم اعرف ان له بدايه في صفحة ثانية علشان كذا لم افهم الموضوع شكرا لك

جزيت خيرا

اخى الكريم فى شيت البحث وفى الخلية A3 َع المعادله التاليه ثم اكتب الاسم فى الخليه B3 =INDEX(السجل!A3:B14;MATCH(B3;السجل!B3:B14;0);1) تقبل تحياتى

وجدت الحل و لله الحمد بعدما أجريت مقارنات Private Sub Main_Notes_3yada_AfterUpdate() Dim Cr1, Cr2 As String Cr1 = " [Main_Notes_3yada]='" & [Forms]![3yada]![kind] = "'" Cr2 = " And [A3yada_date] >=#" & [Forms]![3yada]![Fm] & "#" & " and [A3yada_date] <=#" & [Forms]![3yada]![to] & "#" If DCount("[empcode]", "A3yada_Details", Cr1 & Cr2) > 2 Then MsgBox "No is over than 2" DoCmd.CancelEvent End If End Sub

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

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

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

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

بارك الله فيك أستاذي الكريم " الزباري " على الاقتراح الطيب فائق إحتراماتي

أخي الكريم أبو ذكري ضع الكود التالي في موديول Sub SortData() Dim Ws As Worksheet, LR As Long Set Ws = Sheets("ورقة2") LR = Range("B" & Rows.Count).End(xlUp).Row Range("B8:T" & LR).Sort Key1:=Range("P8:P" & LR), Order1:=xlDescending, Header:=xlNo End Sub ثم في حدث ورقة العمل الثانية ضع الكود التالي Private Sub Worksheet_Activate() Call SortData End Sub تقبل تحياتي

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

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

صديقي العزيز عبد العزيز يسعد مساك - بعد إذن أساتذتنا الكبار إليك الملف بعد تعديل بسيط في المعادلة أرجو أن يلبي الطلب تمنياتي لك بالتوفيق Hide All Blank Rows Except One.rar

و عليكم السلام و رحمة الله و بركاته ... تفضل هذا المثال من المنتدى و شغال عندي 2010 HideWin.rar

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

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

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي " محمّد حسن المحمّد " لا أفهم بمواضيع الحسابات و المخازن .. لكن أردت المشاركة بالموضوع .. فكانت هديّتي بالملف المرفق .. فائق إحتراماتي تصفية متقدمة لعدة معايير بين تاريخين.rar

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

وعليكم السلام كيف الحال ابو سليمان؟ ما هو الشيء الغير مفهوم ..اطلع على الفيديوهات واذكر بالتحديد الشيء الغير مفهوم لنحاول توصيحه لك

تفضل : تم عمل وحدة نمطية عامة تأخذ خيارات النسخة من الجدول ويمكن الآن اخذ النسخة من اي مكان داخل البرنامج ملحوظة : بقي ان تضع قيم افتراضية للحقول فيما لو المستخدم لم يحرك ساكنا x.rar

السلام عليكم ورحمة الله وبركاته ... الأخ ابو خليل قمت بتجربة ماذكرته في المشاركة الأخيرة ويعمل 100% .... . جزاك الله كل خير. كان الخطاء في هذا السطر ... فعند وضع مسار الحفظ لم اضف اليه اسم القاعدة وصيغتها .... CopyFile "D:\saeedbacta\personnel.accdb", "D:\prog\personnel.accdb" الأخ ابو عبدالله الحلواني اعتذر لأني لم اشاهد مشاركتك الا الآن .. وجزاك الله خير الأخ رمهان بارك الله فيك ...شكرا على تعاونك وجزاك الله كل الخير. الأخ جعفر .... جزاك الله كل خير . وبالتوفيق للجميع.

بارك الله لك أخي عبد الله وأود أن أضيف بعض الخلفية النظرية التي ربما يحتاجها الأخ المشترك في الدورة ما هي vba ؟ هي لغة برمجة غير قائمة بذاتها (أي يتم تضمينها داخل أي تطبيق) ولا تستطيع بناء برنامج متكامل وحدها (الذي يقوم بهذا هي لغة vb فيجوال بيسك أو vb.net الإصدار الأحدث من vb ) متى نحتاج لاستخدامها؟ * عند الرغبة في اختزال خطوات كثيرة يجب تنفيذها فمثلا إذا أردنا إضافة نص لخلية وتنسيقه بأكثر من طريقة مثل لون الخط وحجم الخط والإطار وما إلى ذلك * وكذلك نحتاجها عند التكرار وهو تكرار تنفيذ مجموعة من الأوامر بصورة متتالية أو مشروطة * نحتاجها أيضا في التعامل مع المستخدم لجمع بيانات منه في صورة نموذج ومن ثم التعامل مع هذه البيانات وغيرها الكثير من الاستخدامات ما الفرق بين vba و vb ؟ عرفنا سابقاً فيجوال بيسك التطبيقات بأنها لغة برمجة تحتاج لتطبيق آخر يتم تضمينها داخله ولكنها بها كل مميزات الفيجوال بيسك وكل الكائنات التي تستخدم داخل الفيجوال بيسك يمكن استخدامها في vba غير أنها ينقصها وهذا ما تزيد به لغة vb عنها وهو القدرة على بناء برامج تنفيذية قائمة بذاتها وتتفضل vba عن vb بأن لها من القدرة على التعامل مع التطبيق المضمنة داخله بصورة أكثر سهولة من vb فمثلا للتعامل مع المصنف النشط نستعمل الكائن activeworkbook بينما إذا أردنا ذلك من خلال vb نحتاج لكثير من الأكواد ما علاقة vba بالإصدار الأحدث من vb وهو vb.net ؟ بنفس الطريقة يمكن للـ vba استعمال كل مميزات vb.net بشرط وجود ملفات تشغيل vb.net على جهاز المستخدم ما الماكرو؟ الماكرو عبارة عن مجموعة من السطور يبدأ بكلمة sub ثم اسم الماكرو وتنتهي بكلمة end sub وبينهما جميع الأكواد التي يتم تسجيلها أو كتابتها ما أفضل الطرق للتعامل مع الماكرو؟ * يوجد طريقة تسجيل الماكرو وهي الأسهل والتي ينصح بها في البداية * ويوجد طريقة كتابة الأكواد مباشرة بدون الحاجة إلى استعمال مسجل الماكرو وهي للمستوى المتقدم *** بينما الطريقة الفاعلة وهي التي يستخدمها معظم المبرمجين هي (كما علمنا ديننا : خير الأمور الوسط) الجمع بين الطريقتين بمعنى استعمال الماكرو ثم تعديل الكود سواء بإضافة سطور أو حذف سطور أو تعديلها ويجدر الإشارة هنا إلى أهمية التخطيط المسبق لعملية تسجيل الماكرو فيجب أن تكون محددا لكل ما تريد تنفيذه بالماكرو وإلا سيتم كتابة خطوات أنت لست في حاجة إليها وإنما تم تنفيذها أثناء تخطيطك أو ترتيبك لما تريد أن تقوم به وقديما علمونا : التخطيط الجيد سبيل النجاح ..... حتى وإن أخذ وقتا طويلاً فالوقت الذي يستهلك في التخطيط والإعداد لا يتساوى من الوقت المستهلك لتعديل الأخطاء الناتجة عن عدم التخطيط بل ربما يتم إعادة تنفيذ ما لم يتم التخطيط له أكثر من مرة حتى نصل للصواب وأخيرا أقول الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله