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

أخي الحبيب أحمد الفلاحجي خذ وقتك وجرب وتلاعب بالكود كما تشاء لتتعلم ، ولا تخش التجربة والمحاولة أخي الغالي أبو يوسف ما أروع التفاعل الذي شاركت به ، وشرح ولا أروع ، أسلوب مميز جداً في الشرح والتحليل .. هكذا أريد التفاعل .. بارك الله فيك وجزاك الله كل خير أخي العزيز توكل يبدو أن وضع المتغير في غير محله .. المتغير من النوع 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

اعرض الملف شرح فيجوال بيزك دوت نت 2012 شرح فيجوال بيزك دوت نت 2012 صاحب الملف أحمد الفلاحجى تمت الاضافه 28 مار, 2016 الاقسام معلومات مفيدة

السلام عليكم ارجو المساعدة في خطوات اضافة خانة في التقرير على الآكسس لتفقيط الارقام بالعربي علما بان كود التفقيط غير متوفر لدي لكم خالص تحياتي 4444.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

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

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

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

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

كأنه كان اختبار لنا ، ونجحت فيه ، هيييييه حياك الله

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

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

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

هذا احد الحلول Rifi_Salim.rar

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

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

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام في منتدى أوفيسنا رغم قلة التفاعل في الموضوعات التي تقدم ، ولا أقصد بالتفاعل الردود العادية ، إنما أقصد المشاركة بالبحث والنقد والتفنيد والتفحيص والتدقيق والتمحيص والإضافة ...رغم قلة التفاعل أقدم كل يوم موضوع جديد لعل وعسى أن يأتي أناس من بعدنا ليستفيدوا مما نقدم ويكون المنتدى لهم نبراساً يستنيرون به في هذا المجال أقدم لكم موضوع حول إدراج أسماء الشهور بكل اللغات .. إليكم الكود التالي ، قم بوضع الكود في موديول عادي ... ثم نفذ الكود ولاحظ النتائج بنفسك Sub ListMonthsInAllLanguages() 'يقوم الكود بإدراج أسماء شهور السنة بكل اللغات '--------------------------------------------- Dim R As Long, C As Long Dim strDate As Date Dim S, bFind As Boolean Application.ScreenUpdating = False For R = 1 To 12 For C = 1 To 99 strDate = CDate("01/" & Format(R, "00") & "/2015") S = "[$-4" & Format(C, "00") & "]MMMM" Cells(R, C).NumberFormat = S Cells(R, C).Value = strDate Next C Next R Columns.AutoFit Application.ScreenUpdating = True End Sub أرجو أن ينال الملف والموضوع إعجابكم وتستفيدوا منه إن شاء الله حمل الملف من هنا تقبلوا تحياتي كان معكم أخوكم أبو البراء

جزيت خيرا

اخى الكريم فى شيت البحث وفى الخليه B3 ضع هذه المعادله =VLOOKUP(A3;السجل!A3:B14;2;0) تقبل تحياتى

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

وجدت الحل و لله الحمد بعدما أجريت مقارنات 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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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