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

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

بعد إذن أستاذنا محمد نجار أ/ محمد 7172 : العلاقات مهمة جدا طبعا ولا خلاف على ذلك إلا عندنا في القرية فشباب القرية من المبرمجين ذوي الخبرات الواسعة التي تتعدى ثلاثة أو أربعة أشهر في البرمجة اللحظية دايماً بيعملوا برامجهم بدون أي علاقات بين الجداول وفشلنا في اقناعهم ، وكل ما نحفظهم ازاي يعملوا علاقة : One to many ويرسموا نموذج ERD نلاقيهم يكتبوها ( ون تو ميني ) لكن بدون ما يعملوها بالفعل زي المثال ده واللي ترجم بياناتك لمطلوب يشبه مطلوبك persony.rar

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

وعليكم السلام أخي محمد عفوا ما فهمت القصد من الموضوع!! رجاء التوضيح جعفر

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

اتفضل اليك هذا فانكشن Public Function ClearAllData() As Boolean Dim tdf As DAO.TableDef Dim dbs as DAO.Database Set dbs = CurrentDB For Each tdf in dbs.TableDefs If Left(tdf.Name, 4) <> "MSys" Then dbs.Execute "DELETE * FROM " & tdf.Name End IF Next tdf Set dbs = Nothing End Function وفي خلف الزر الحذف اكتب Call ClearAllData راح يحذف كل البيانات من كل الجداول عدا جداول السيستم تقبل تحياتي

وعليكم السلام لم يكن ممكنا ان نحل الموضوع بدون المرفق ، والمرفق لم يكن موجودا ، واذا به موجود جعفر تفضلي هذا التغيير في كود زر البحث: Private Sub amr4_Click() انت هنا تطلبين طلب البيانات الجديدة للنموذج الرئيسي ، وهذا ليس المطلوب 'DoCmd.Requery الحقل Research_ID هو حقل تسمية label فالمعادلة ليس لها معنى 'If [Research_ID] = [A] Then يجب ان نتحقق من وجود كلمة في الحقل A If Len(Me.A & "") <> 0 Then Q2.Visible = True وهنا نطلب بيانات جديدة للنموذج الفرعي Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If End Sub جعفر

السلام عليكم اهدي هذا البرنامج مفتوح السورس الي المنتدى واعضاءه الاعزاء كلمة المرور في كل البرنامج 1234 - البرنامج به كل ما يطلبه المحاسب بداية من ادخال الحسابات كما يحب المحاسب وايضا ادخالها كما هي في دفتر اليومية الخاصة به اي بنفس الترقيم المستخدم بشركته او مؤسسته وذلك من مميزات البرنامج لان كل البرامج التي في السوق تجد انها تفرض على المحاسب حسابات البرنامج والتي تكون ارقامها و ترتيبها مخالف لما هو معمول به عند المحاسب . - سند قيد يوميه - سند قبض - سند صرف - ترحيل تلقائي الى الاستاذ العام و الاستاذ المساعد و اليومية العامة و ميزان المراجعة و الحسابات الختامية - طباعة جميع التقارير التي يحتاجها المحاسب - عرض شجرة الحسابات وبه مميزات كثيرة ومفيدة للمحاسب الملف المرفق على اكسيس 2003 وان شاء الله سوف اقوم بتطويره على Vb.Net لي طلب وانا سوف اعتبره امانه لمن يعمل على البرنامج انه لا يلغي صورة ابني فهد من البرنامج تحت اي ظرف الرجاء من الادارة تثبيت الموضوع لاهميته ارجو ان يفيدكم ولا تنسونا بالدعاء اخوكم ابو فهد Acc2003.zip

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

السادة الزملاء تم تخديث الفيديوهات على اليوتيوب ورفعها على المنتدى كل فيديو فى مكانه أسئلة كثيرة تتردد على مسامعي منها على سبيل المثال : http://magdiyonis54.blogspot.com.eg/ كيفية تصميم شيت اكسل كيفية عمل جدول تنسيق الجدول كيفية إدخال البيانات إضافة الألوان وضبط النصوص دمج الخلايا أبجدة الأسماء التنسيق الشرطي الجمع ومستوى الطالب ( ممتاز جيد ......) وضع السري عمل التسلسل إظهار الصفوف وإخفائها هذه الأسئلة سأجيب عنها وبطريقة بسيطة وبعيد عن المعادلات للهواة أو لطالبى كيفية عمل شيت للامتحانات عنوان المنتدى http://magdiyonis1.forumegypt.net عنوان المدونة الخطوة الاولى.rar

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

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

شكرا على سرعة ردك

::: اعمل زر Delete Record بواسطة المعالج .

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

جرب .. ضع الحدث زي ماهو ثم ضع زر به امر حفظ وشوف هل تم الحفظ ام ان المشاركة لما تريد بالتمام ... انت جرب اولا ؟ وهذا تعدسيل بسيط وبعد اذن ابو عبدالله Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then cancel=-1 Me.Undo End If DoCmd.SetWarnings True End Sub بالتوفيق

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

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

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

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

ما الفرق بينهما ؟ خليني انا اوضح لماذا قلت على المستوى النموذج حسب فهمي ليس هناك الفرق بينهما كلهما بيعمل بشكل ممتاز لكن هناك من الافضل ان يعطي الحدث في النموذج قبل التحديث 1 / اذا كان لا نريد ان يكرر اكثر من الحقل اي مثلا :- عندك ثلاث حقل واحد هو مخصص للاسم ثاني واحد مخصص لاسم الاب ثالث واحد مخصص لاسم الجد اذا الحدث يكون في نموذج والا راح تظهر رسائل لكل حقل على وحده عند تدخل البيانات والا يجب ان تدخل البيانات على التوالي وبالخير اي عند اسم اجد راح تعطي الحدث لذلك قبل ان يحفظ السجل من الافضل ان نوضع الحدث في نموذج قبل تحديث 2/ واذا نريد ان لا يحفظ السجل بشكل تلقائي او نريد ان ندخل البيانات في جميع الحقول و ... الخ هذا والله يعلم

القيمة الافتراضية للحقل يجب أن تكون بهذا النسق Me.TelID.DefaultValue = DMax("[eqamaid]", "tbleqama") + 1 ثانيا.. يجب أن تكون العبارة السابقة السابقة في حدث السجل الحالي للنموذج Form_Current event مع وضعها ضمن جملة شرطية Private Sub Form_Current() If NewRecord Then Me.eqamaid.DefaultValue = DMax("[eqamaid]", "tbleqama") + 1 End If End Sub ثالثا أن يكون حدث التحقق على مستوى الحقل وليس على مستوى النموذج Private Sub eqama_BeforeUpdate(Cancel As Integer) If DCount("eqama", "[tbleqama]", "[eqama]= '" & Me.eqama & "'") > 0 Then MsgBox "محل إقامة موجود مسبقا....", , "تنبيه" Cancel = True Me.Undo End If End Sub إليكم التطبيق منع التكرار.zip

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

نعم لكن منع حدوث ذلك من البداية لا شك أنه أفضل شكرا

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

الآن نفذت الآتى و أود التأكد من أن هذه أفضل طريقة - الحقلان مطلوبان رقم و اسم المنطقة كل الكود فى حدث قبل التحديث للنموذج - إلغاء أزرار التنقل فلا يبقى أمام المستخدم إلا زر إغلاق أو إغلاق النموذج من أعلى "×" الكود التالى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("eqama", "[tbleqama]", "[eqama]= '" & Me.TelName.Text & "'") > 0 Then MsgBox "محل إقامة موجود مسبقا....", , "تنبيه" Me.Undo Cancel = -1 Else 'الترقيم Me.TelID = DMax("[eqamaid]", "tbleqama") + 1 End If End Sub أخيرا المرفق و شكرا لتوجيهاتكم منع التكرار.rar

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

وانا عملت هذا كذلك في أحد مشاركاتي اعلاه

وعليكم السلام انتي لم تطلبي هذا مسبقا تفضلي الكود وبه هذه الخاصية: If DCount("*", "Q2") <> 0 Then Q2.Visible = True Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If جعفر

الله يرحم والديك ويفرج همك والله اسعدتني الله يسعدك يوم الحشر انت والديك واحب الناس اليك اللهم امين شكراً أستاذ خالد الرشيدي على الانجاز الكبير ملاحظة هامة / هذا العمل تصفية حقوق الموظفين لنظام مكتب العمل السعودي ارجو الفائدة للجميع تحياتي،،،

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

تفضل اخي الكريم المثال يبين الفكرة حاول ان يزيد مجموع الارقام في الفرعي عن الرقم الموجود في النموذج الرئيسي 2003UP.rar

حبث انك حملت صورة ولا احد بتعامل مع الصور بالمعادلات ارفق لك مثالاً كيف تجد ما تريده Salim_Search.rar

السلام عليكم Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then Me.Undo End If DoCmd.SetWarnings True End Sub تحياتي

السلام عليكم ورحمة الله اخى الكريم الاستاذ سليم تعليقك رائع وفعلا فى محله بارك الله فيك

تفضل أخي الكريم الكود في ملف مرفق .. Test.rar

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

استأذن من الاستاذنا @jjafferr , @أمير2008 رغم من كثرة الاجابات اليك هذا Private Sub Form_Load() Dim sql As String sql = "UPDATE tbTable SET tbTable.[check] = True WHERE (((tbTable.dateend)<Date()));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub

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

السلام عليكم أ / خالد التعامل مع اتمام الموظف ل 5 سنوات او 10 سنوات بالتمام يختلف بين الحالات الثلاثة ( aa,bb.cc ) تم المطلوب .. وقم بمراجعة كافة الحالات ( aa bb cc ) بأمثلة مختلفة ..اقل من سنتين - سنتين - اكثر من سنتين - خمس سنوات - اكثر من خمس سنوات - عشر سنوات - اكثر من عشر سنوات .. وعند التأكد من كافة النتائج يمكنك الاعتماد على المعادلة هي طويلة لكثرة الشروط والحالات وربما سأجد طريقة لجعلها ابسط من ذلك وعندها سأضعها هنا لحضرتك =CHOOSE(MATCH(L14,{10000,3599,1799,719},-1),IF(AND(G15=10,E15=0,C15=0),(((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*2/3),(5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365))),IF(L13<>"bb",(5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)),IF(AND(E15=0,C15=0,G15=5),((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*1/3,((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*2/3)),IF(L13<>"bb",(O14*G15*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5),((O14*G15*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5))*1/3),IF(L13<>"bb",(O14*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5),"لا يستحق العامل مكافأة نهاية خدمة" )) MUHAMMAD SULAIMAN MUJAHID GUL_2_2.rar

السلام عليكم اخي الكريم ابو نظره اذا تريد ان يقبل بوينتات يجب ان تتغير نوع الخصائص الرقم للحقل في الجدول من Long Integer الى Double ابو نظره القي نظرتا الى المنتدى راح تشوف ما تريد واذا ما شفت افتح موضوع جديد وشرح ماتريد بالتفصيل تقبل تحياتي

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

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

::: افضل اقتران للحقول ان تكون ضمن سجل واحد ... وهنا حصل الاقتران بين الشركة والموقع والموظف.. لا اعرف هل لديك عمليات او نشاطات اخرى ؟! ::: جرب ووافني بالنتيجة او اية اضافات او تصفيات ..... بالتوفيق Company_up.rar

استأذن من استاذنا @أبو عبدالله الحلوانى اتفضل خذا هذا Private Sub المبلغ_AfterUpdate() Forms![نموذج1]![الشهر الحالي2].SetFocus Forms![نموذج1]![الشهر الحالي2].Requery End Sub

الحمد لله توصلت الى نتيجة جيدة ومرضيه حتى الان ولكن لو يمكن تبسيط الكود كون افضل حتى يستوعب الجداول جميعها مهما كان عددها Delete.zip

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

ضع نجمه قبل الاسم المراد البحث عنه

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

بارك الله فيك أبا خليل جزاك الله عنا خير الجزاء دمت في رعاية الرحمان