بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 03/31/20 in مشاركات
-
بناء على مقترح الأخ الكريم محمد البرناوي بإمكان المستخدم الآن تحديد عدة صور وتحويلها إلى pdf مع نقل جميع الصور إلى مجلد البرنامج آلياً . PDFv20.2.zip5 points
-
السلام عليكم الوصول الى البيانات سحابيا ليست مشكلة أمام ميكروسوف ، ففي الاصدار 2003 يوجد تبويب خاص بانشاء صفحات الوصول ، وقد تم الغاؤها في الاصدارات الحديثة ، وانا تعاملت معها واذكر عملت برنامجا يجلب بيانات لحظية من السوق المالي . المشكلة الحقيقية تتمثل في الواجهات3 points
-
أقدم لكم هدية متواضعة عبارة عن برنامج لتحويل الصور إلى pdf بطريقة سهلة وبدون برامج خارجية مع الشكر لكل من استفدت من أكوادهم . PDF.zip3 points
-
3 points
-
وعليكم السلام-فقط يمكنك استخدام هذه المعادلة وتم اضافة قائمة منسدلة لسهولة اختيار الإسم بالإنجليزية ولحسن عمل المعادلة لضمان مطابقة الإسم =IFERROR(INDEX(Sheet1!$B:$B,MATCH($B2,Sheet1!$C:$C,0)),"") move arabic name1.xlsx3 points
-
اخواني الكرام بصراحة لاغنى عن الاكسس مهما ابحرتوا في لغات البرمجة الاخرى فهي اسهل واكثر متعة من غيرها كما ان تطبيقاتها مطلوبة الى يومنا هذا خصوصاً لمن يتعامل مع مؤسسات حكومية سيعرف قصدي اما اللغات الأخرى مثل php فهي لمن يبحث عن برنامج يمكن الدخول اليه من اي مكان في العالم يعني باختصار موقع الكتروني او منظومة تسجيل بيانات تتطلب الدخول اليها من عدة جهات موزعة جغرافياً في عدة مدن .. هذا النوع من البرمجة يتطلب مهارات في السيكيورتي عالية وذلك لانك معرض للإختراقات من اي مكان في العالم تحياتي2 points
-
2 points
-
عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb2 points
-
أستاذى الكريم-حاول دائما توضيح المطلوب بكل دقة فهل عمود التاريخ المطلوب الإستعلام من خلاله هو تاريخ Start أى العمود D وان كان الأمر هكذا فكان عليك محاولة عمل هذا بنفسك كما تم بالملف السابق حتى تتمكن من تعلم هذا ,فالهدف الأساسى من المنتدى التعلم دائما وليس تقديم الحل الجاهز تفضل هذه المرة ايضا لك ما طلبت , واتمنى محاولتك تتم بنجاح بالإعتماد على نفسك فى المرات والطلبات القادمة استعلام2.xlsm2 points
-
2 points
-
2 points
-
2 points
-
أخي @ابوآمنة ماشاء الله تبارك الله ...... هدية جميلة .... ولكن اقتراح تطوير البرنامج بحيث يعمل على صور المجلد بالاضافة الى الاختيار ( بعض الصور وليس الجميع )2 points
-
2 points
-
كود ممتاز استاذ حسين لكن اسمح لي بهذه الملاحظة ،اذ لا لزوم للحلقات التكرارية لتعبئة الكومبوبوكس هذا الكود يفي بالغرض Option Explicit Private Sub ComboBox1_Change() End Sub Private Sub CommandButton1_Click() Dim lr, ctr As Object Dim sh As Worksheet Set sh = Sheets("المستفيد") lr = sh.Cells(Rows.Count, "a").End(xlUp).Row + 1 If TextBox1 = "" Or ComboBox1 = "" Or ComboBox2 = "" Or TextBox2 = "" Then _ MsgBox "عفوا يجب تعبئة جميع الحقول", vbInformation: Exit Sub With sh.Range("A" & lr) .Value = TextBox1.Value .Offset(, 1) = ComboBox1.Value .Offset(, 2) = ComboBox2.Value .Offset(, 3) = TextBox2.Value End With 'يجب التوضيح هنا ربما يكون لدينا 50 كومبوبوكس و تكس بوكس فهل نذكرها كلها؟ For Each ctr In Me.Controls If TypeName(ctr) = "TextBox" Or _ TypeName(ctr) = "ComboBox" Then ctr.Value = vbNullString End If Next End Sub '++++++++++++++++++++++++++++++++++++++++++++++++++ Private Sub UserForm_Initialize() Dim sh As Worksheet Dim sh2 As Worksheet Set sh2 = Sheets("الشهر") Set sh = Sheets("المستفيد") ComboBox1.List = sh.Range("H5", sh.Range("H4").End(4)).Value ComboBox2.List = sh2.Range("A2", sh2.Range("A1").End(4)).Value End Sub2 points
-
السلام عليكم اخى @صلاح بلعلا مشاركه مع اخوانى @ابوآمنة و @rey360 جزاهم الله خيرا تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق القائمة والمربع.rar2 points
-
السلام عليكم نزولا عند رغبة احد الاصدقاء برنامج تسجيل الاقساط اوتوماتيك نقوم بتسجيل بيانات العميل كاملة ثم نكبس على الاقساط نفتح لنا شاشة جديدة نكبس على تسجيل الاقساط فتنزل الاقساط اوتوماتيك عند دفع القسط نقوم بتحويل الحالة من لم يتم الدفع الى تم الدفع ثم تكبس على تحديث بعد الدفع نستطيع الحصول على كشف حساب للعميل أتمنى لكم الفائدة واتس أب 00962787787573 اقساط.accdb1 point
-
اخى سليم انت مبدع استاذى اشكرك على الاضافة (ظهور اسماء الشيتات ) جزاك الله خيرا1 point
-
1 point
-
وعليكم السلام اخوي وضاح 🙂 الكود اللي وضعته مافيه شيء غلط ، ويمكن انك تخليه على اي حدث تريد ، ولكن الحدث "عند التغيير" نستعمله في حالات جدا خاصة ، ومن الخطأ الفادح ان نستعمله في البحث ، وخصوصا اذا كان البرنامج على الشبكة ، لأنه على كل كبسة زر ، يضطر الكود انه يجلب البيانات من الجداول مرة بعد اخرى ، وفي معظم الاوقات يجعل البرنامج جدا بطئ . جعفر1 point
-
تعديل بسيط على الماكرو ليظهر اسماء الشيتات Sub Uniq_items_With_Sh_Names() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Dim arr(), ky, t% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet For Each ky In dic.keys ReDim Preserve arr(t) If t = 0 Then arr(t) = dic(ky) & ": Sheet " & Sw.Name Else arr(t) = dic(ky) End If t = t + 1 Next With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(arr) m = m + dic.Count: dic.RemoveAll: Erase arr: t = 0 End With End If Next_Sheet: Next Sw End Sub الملف من جديد Unique_item_1.xlsm1 point
-
- اين مكان هذا المجلد ، في الشبكة ؟ - كيف ترتيبه ، نريد صورة منه علشان نعرف المجلد والمجلدات اللي داخلة وطريقة ترتيبهم ، - اي نموذج نستعمل علشان نوصل للمطلوب ؟ رجاء ، اعمل مثال كامل (سواء بالوورد او الاكسل او بصور) على العمل اللي تريد ، وهذا المثال يجب ان يكون من بيانات برنامجك ، حتى نعرف كيف نعمل مثله 🙂 رجاء اعطنا معلومات اكثر وبالتفصيل الممل ، وإلا ، فانا ممكن اعمل لك مثال من عندي ، وعليك تطبيقه على برنامجك ، ولن اساعدك في تطبيقه 🙂 جعفر1 point
-
وعليكم السلام 🙂 الظاهر المشكلة في المكتبات !! افتح VBE > Tools > References واعمل صورة لشاشة المكتبات وارفقها هنا . الموقعين يخبرانا المكتبات الصحيحة لكل نسخة من الاكسس ، ولكن الظاهر ان نسخة الاوفيس 365 عملت تغيير في الريجستري ، فلهذا السبب يجب عليك تعديل المكتبات يدويا لبرنامجك 🙂 https://www.access-diva.com/d5.html و http://allenbrowne.com/ser-38.html جعفر1 point
-
جزاك الله خيرا اخى صالح @ابوآمنة ماشاء الله رائع كروعتك بارك الله فيكم اخوانى واساتذتى الافاضل تمنياتى لكم وللجميع بالتوفيق1 point
-
جرب هذا الكود لعله المطلوب Sub Auto_Save() Application.DisplayAlerts = False Dim backupfolder As String backupfolder = "f:\Backup Excel Sheets \" ActiveWorkbook.SaveCopyAs Filename:=backupfolder & ActiveWorkbook.Name ActiveWorkbook.Save Application.DisplayAlerts = True MsgBox "Backup Run. Please Check at: " & backupfolder & " !" End Sub1 point
-
1 point
-
السلام عليكم 🙂 مع ان الاكسس ممكن يتساهل مع عرض التاريخ بعدة اشكال ، ولكن يجب ان نضع في بالنا ، ان الاكسس ، وبغض النظر عن طريقة التنسيق التي نستعملها في الجدول/الاستعلام/النموذج/التقرير/الوحدة النمطية/الماكرو لعرض التاريخ ، فإن الاكسس يحتفظ بالتاريخ بالطريقة الامريكية : الشهر / اليوم / السنة . ولتأكيد هذا ، اليك هذه التواريخ في الاستعلام (مع ان الاستعلام يعرض عليك التنسيق الذي طبعته انت ، ولكن الاكسس في عمله يستعمل التاريخ الامريكي) : . ثم قم بتحويل واجهة الاستعلام الى SQL : . والنتيجة : . لهذا السبب ، نجد في بعض البرامج ان الاكسس يعطي نتائج صحيحة لبعض التواريخ (اليوم بين 13-31) لأنه لا توجد شهور بهذه الارقام ، ونتائج غير صحيحة لتواريخ اخرى (اليوم بين 1-12) لأنه توجد شهور بهذه الارقام ، خلينا نشوف جدولك وهو بهذا التنسيق : . وبعد استعمالك استعلام التحديث: . هذه نتائج الجدول : نلاحظ ان التواريخ جميعها صحيحه ، ولكن المستخدم اخطأ في ادخال التاريخ 29/2/01 ، لأن سنة 2001 ليست سنة كبيسة ، فقام الاكسس بتصحيح التاريخ لهذا اليوم ظنا منه انك اخطأت في المعادلة : [d] & "/" & [m] & "/" & [y] لماذا قام الاكسس بهذا التغيير ، لأن البيانات لم تكن صحيحة ، ولأن استعلام التحديث لم يُلزم الاكسس بالتأكد من التاريخ !! وللتغلب على هذه الاشكالية ، يجب علينا ان نخبر الاكسس اسم حقل اليوم والشهر والسنة ، عن طريق الاوامر الخاصة بالتاريخ ، مثل : DateAdd او DateDiiff او DatePart او DateSerial لذا ، فإذا استعملنا : . نرى ان النتيجة صحيحة ، بحيث اضاف يوم ليعطي النتيجة الصحيحة : . الاختيار الآخر هو ، ان تكتب السنة بأربع ارقام (2001) ، فعليه ، سيعطي الاكسس خطأ لحقل التاريخ ، بإستعمال طريقتك 🙂 جعفر1 point
-
1 point
-
حياك الله أخي أحمد دائماً نحن في الخدمة و سعداء بذلك و نعتبره تنفيس كربة عن مسلم . دائماً لا تتردد في السؤال و ثق بنفس وحاول ثم ستخطئ وستتعلم من أخطاءك ، سجل هذه الأكواد وحفظها في برنامج ليسهل عليك استرجاعها . فالعلم بالتعلم وحلم بالتحلم . ولا تنس وضع الإجابة الأفضل .1 point
-
في اي عمود صفحة data تبحث بتاريخ اليوم وفي اي عمود صفحة data تبحت بين تاريخين departure وفي اي عمود صفحة data تبحت بين تاريخين Reservation1 point
-
1 point
-
أخ يوسف ابوسمره عدد الطلاب هو العدد الذي تريده في كل مجموع وليس العدد الاجمالي لطلاب الموجودين عندك1 point
-
1 point
-
1 point
-
المرة هذه دلعناك . تفضل إن شاء الله يكون هو طلبك . القائمة والمربع (2).zip1 point
-
جرب هذا الماكرو Option Explicit Sub Uniq_items() Dim R As Worksheet, Sw As Worksheet Dim Nme$, Rg As Range Dim cop_rg As Range Dim dic As Object, I%, m% Set R = Sheets("report") Set dic = CreateObject("Scripting.Dictionary") Set cop_rg = R.Range("B4").CurrentRegion Nme = R.Range("C2") If cop_rg.Rows.Count > 1 Then cop_rg.Offset(1).ClearContents End If m = 5 For Each Sw In Sheets If Sw.Name <> R.Name Then Set Rg = Sw.Range("G5", Sw.Range("G4").End(4)) For I = 1 To Rg.Rows.Count If Rg.Cells(I).Offset(, 2) = Nme Then dic(Rg.Cells(I).Value) = _ Rg.Cells(I).Offset(, 2).Value End If Next If dic.Count = 0 Then GoTo Next_Sheet With R.Cells(m, 2).Resize(dic.Count) .Value = Application.Transpose(dic.keys) .Offset(, 1) = Application.Transpose(dic.items) m = m + dic.Count: dic.RemoveAll End With End If Next_Sheet: Next Sw End Sub الملف مرفق Unique_item.xlsm1 point
-
1 point
-
1 point
-
اهلا وسهلا بك اخي اشرف في المنتدى 🙂 رجاء قراءة شروط المنتدى قبل تشارك فيه : قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف رجاء طرح موضوع جديد بعنوان مناسب. شكرا يُغلق. جعفر1 point
-
ما شاء الله عليك يا استاذي جعفر طلعنا مثلك في وسط المعمعة1 point
-
صحيح هناك خطأ مطبعي في استعلام القائمة [Formulaires]![show]![maharat] الصحيح [Forms]![show]![maharat]1 point
-
يمكن طريقة عملي هي السبب !! انا عادة اشتغل على مشروع/ملف ، ولما اتملل/اتعب منه ، آخذ استراحة بذهابي الى المنتدى لأرد بسرعة على اكبر عدد من الاسئلة ، وبعض الاوقات اثناء العمل على سؤال ، يجي سؤال آخر سهل ، فأرد عليه ايضا !! يعني يكون عندي 3-4 ملفات مفتوحة في نفس الوقت ، هذا غير اذا ذهبت ابحث عن شيء معين !! وسط هذه المعمعة ، اولوية الرد يكون للأسئلة الواضحة 🙂 1. طلب مبهم !! مادام البرنامج يشتغل صح ، فهو صح ، والسلام 🙂 2. كذلك غير واضح !! رجاء التوضيح اكثر ، والافضل ان تعطينا مثال من برنامجك ، خطوة بخطوة 🙂 الله يعين الجميع ان شاء الله على هذا البلاء 🙂 جعفر1 point
-
تفضل فقط قمت بتغيير مصدر سجلات القائمة إلى الحقل نوع السكون. إن شاء الله يكون هذا ما تريد . القائمة والمربع.rar1 point
-
1 point
-
عندما ضغطت على الزر اول مرة قام البرنامج بترتيب الصفحات واذا ضغطت مرة ثانية انت تطلب منه ان يرتبها ، لكن هي مرتبة فعلا ولذلك لا يفعل شيئاً جرب اعادة خربتتها بشكل عشوائي واضغط الزر وترى ما أقصده1 point
-
هممم في هذه الحالة ، خلينا نجمع جميع العمليات مع بعض ، الحشو ، التنظيف ، الخلع ، .... بحيث لما تنقر مرتين على الضرس ، ويعمل البرنامج سجل جديد ، فيجب ان يكون هناك كومبوبوكس يختار الدكتور العمل الذي يقوم به على الضرس (الحشو ، التنظيف ، الخلع) ، وعلى حسب الاختيار (رقم الضرس ونوع العمل على الضرس) نخفي الضرس ، او نجعل لونه ازرق ، تبدأ من آخر سجل وتنتهي بأول سجل 🙂 مخمخها في دماغك ، بحيث يكون عندك في النموذج الفرعي سجل كامل بأسنان الزبون ، وطبعا لاحقا في المستقبل ، اكيد ستزيد حقول النموذج الفرعي ، حتى تتأقلم وطلبات الدكتور 😁 جعفر1 point
-
همممم ، كنت اعتقد ان شرحي كان واضح ، ولكن مافي مانع من المحاولة مرة خرى : Debug.Print Len("234") = 3 Debug.Print Len("") = 0 Debug.Print Len(Null) = Null Debug.Print Len(Null & "") = 0 في مثالك If Len(Text) < 0 Then Text = "123456" Len(Text) = 6 Text = "انا جعفر" Len(Text) = 7 Text = "" Len(Text) = 0 Text = Null Len(Text) = Null يعني ما نحصل على طول الكلمة ، وانما نحصل على هذه الكلمة ولكن في مثالي If Len(Text & "") < 0 Then Text = "123456" Len(Text & "") = 6 Text = "انا جعفر" Len(Text & "") = 7 Text = "" Len(Text & "") = 0 Text = Null Len(Text & "") = 0 لهذا السبب ، جرب المثال على كمبيوترك ، واحكم بنفسك 🙂 جعفر1 point
-
وهنا توضيح للدالة بمثال : الطريفة اللي اتبعها انا للتعامل مع الحقل ، سواء الفارغ او Null او بدون قيمة : بدل عن if isnull([ABC]) or [ABC]="" then استعمل if len([ABC] & "") = 0 then جعفر 🙂1 point
-
1 point
-
برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar1 point