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

السلام عليكم ,, ومشاركة مع استاذنا وحبيبنا شفان استبدل علامتي الاقتباس "" بـــ صفر لان نوع الحقل الذي ستجري عليه التحديث رقمي

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

مشاركة مع اخينا الغالي ابا جودي اولا تصحيح الجمله Case 1 Me.RecordSource = "SELECT Tbl_Result.*, Tbl_Result.Sub FROM Tbl_Result WHERE (((Tbl_Result.Sub) Like '*عربية*'));" وهكذا للمواد الاخرى ثانيا ليس من المنطقي ان تتغير الجمل البرمجيه خصوصا لو هناك عميل سيستلم البرنامج وهنا يمكنك 1. ضع حقل اضافي في الجدول المواد باسم كلمة البحث او البحث وسيكون به الكلمات التي تريد الفلترة بها 2. تشير لمربع النص الذي بالتقرير والذي سيحتوي اسم الماده والتي هي بمربع السرد بالنموذج هكذ =[Forms]![Frm_PrintComm]![Cmb_SelectSubject].[column](1) هنا لم يعد حاجة للكود سواء للبحث او للاشاره لاسم الماده فقط استعلام بالتوفيق

لا يمكن أن تعيد Enum قيما نصية للأسف.. لكن لها شقيقة تدعى Type تقوم بتعريف البيانات التي تستقبلها وتعيدها ولكي نطوعها للعمل كسابقتها نحتاج إلى عدة خطوات.. إليكم الخطة سوف نقوم أولا بتعريف البيانات كما يلي Type T_MonthNames Jan As String Feb As String Mar As String Apr As String May As String Jun As String Jul As String Aug As String Sep As String Oct As String Nov As String Dec As String End Type كما أشرت سابقا يمكن تعريف المطليات ونوع البيانات حسب متطلباتكم.. نحن هنا بحاجة إلى معطيات تحمل قيم نصية هي أسماء الشهور فقط. إذا بعد تعريف المعطيات نحن بحاجة إلى إسناد البانات لهذه المطيات.. ولهذا الغرض سوف نقوم بإنشاء وظيفة ونعرف بياناتها من نوع T_MonthNames التي أنشأنها للتو كما يلي Function MonthName() As T_MonthNames '-- هذه البيانات كمثال '-- أكمل إسناد البيانات إذا أردت MonthName.Jan = "يناير" MonthName.Feb = "فيبراير" MonthName.Mar = "مارس" MonthName.Apr = "أبريل" End Function في نافذة التنفيذ السريعة يمكنكم تجربة الوظيفة كمايلي ? MonthName.Apr 'سوف تعيد شهر أبريل إليكم المثال T004.zip

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar

اتفضل استخدمت هذا الكود Dim Sql As String Sql = "UPDATE ItemsT SET ItemsT.item_available = 0;" If MsgBox("هل تريد ان تفريغ البيانات حقل الكمية المتوفرة", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End If اي اضفت رسالة نعم ولا لكي لا يتم التفريغ بدون رسالة الحذر و بدلت علامة "" الى صفر كما قال استاذنا @ابو خليل لان الحقل هو رقمي وتكدر تستخدم علامة ايضا لكن من الاحسن ان يكون صفر اتفضل قاعدة بياناتك بعد اضافة الكود الاعلاه Items.rar

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

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

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

اتفضل اخي اليك هذا الاستعلام SELECT Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No, Max(Egoor_assassia.Agr_Date) AS MaxOfAgr_Date, Nz(DLookUp("[Agr_amount]","egoor_assassia","[Agr_Date]=#" & [MaxOfAgr_Date] & "#" & "and [Emp_No] = [Emp_No]"),0) AS dd FROM Egoor_assassia INNER JOIN Basic ON Egoor_assassia.Emp_No = Basic.Emp_No GROUP BY Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No; لكن هناك ملاحظة كان في خطأ في ادخال تاريخ استاذ اشرف اللي في 01\07\2017 انا مسحته و اضفت من جديد حتى لا يظهر معي الخطأ وفي الاخير النتيجة سيكون كالتالي اتفضل مع القاعدة بياناتك last agr.rar تقبل تحياتي

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

الكود بهذا الشكل سليم إن شاء الله ولكن طالما أننا سنتعامل مع أكثر من ورقة عمل فلابد من الإشارة لورقة العمل التي فيها قيمة الخلية (القائمة المنسدلة) قم بالإشارة إلى ورقة العمل قبل كلمة Range في هذا السطر strClass = Sheets(StudentData).Range("W2").Value

وصلت الفكرة وبارك الله فيكم اشكرك اخى n_elmasry

يعنى أنا باستخدم الدبل زى المثال المرفق مع النصوص فى الاستعلام عادى ...

أخى هذه الرسالة لكون مرفق أ/ حمادة مصمم باصدار 2010 وحضرتك بتحاول تفتحه على اصدار 2007 وعلى كل قمت بحويل المرفق الى اصدار 2003 لتستطيع فتحه ومساعدة أخيك وأعتذر لعدم المتابعة لانشغالى قليلا تفضل هذا المرفق New.rar

تفرق بين الارقام والنصوص

أولا - جزاك الله خيرا أستاذ محمد على الاهتمام ثانيا - كما تعلم حضرتك أن ال inputbox وسيلة لطلب ادخال بيان من المستخدم والكائن الموجود ب vba والذى يتم استدعائة ب InputBox("Prombt","Title","Default",Xpos,ypos) وهنا لا يتم ادخال الا شىء واحد فقط ولكنى قد وجد ببعض البرامج input box يمكن ادخال اكثر من بيان من خلاله ولكنى بحثت ولم اتوصل الى طريقة استدعاء أو انشاء مثل هذا الـ input box ولعل الصورة تقرب المقصود

ممكن مرفق من القاعدة لو تكرمت

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

السلام عليكم @حسين العربى سامحني لانني مشغول جدا وشكرا للأستاذ @sandanet علي الكود الخاص بالاسكنر وجاري تجربته علي الاسكنر.. بس ليه تعليق بسيط لو يوفر الكود بعد السحب تحويل او الحفظ بصيغة pdf لكن افضل واحسن نظرا لان يوجد بعض المرفقات تحتاج ان تكون في ملف واحد وهل اذا سحبنا مثلا 5 صور يقوم بإدراج رابط كل صورة في سجل جديد داخل النموذج الفرعي؟؟

بالنسبة للنجمة يتم كتابتها فى Label اسم العنصر عن طريق الضغط على Shift+8 من الكى بورد، فمثلاً الحقل الخاص بالاسم سيكون تسميته: اسم الموظف: * وهكذا أما بالنسبة لموضوع أزرار الفورم ، إن كنت تستخدم الأكسيس فالأمر سهل ... اقرأ عن إنشاء النماذج فى الأكسيس

إذا كان المجلد يحتوي صور فقط .. فهذه الشفرة بعد التعديل Function GetImage(imageName As String) Dim ImagePath As String ImagePath = CurrentProject.Path & "\img\img\" GetImage = ImagePath & Dir(ImagePath & imageName & "*") End Function اكتب اسم الملف بدون اللاحقة.. أو اكتب جزء من اسم الملف.. أو لا تكتب شيء! سوف يعيد اسم أول ملف!

والله انت مبدع استاذي الفاضل sandanet والله لن انساك من دعائي في كل صلاه انت ولاستاذ محمد سلامه ولاستاذ شيفان يارب يارب يسعد ايامكم مثلما اسعدتموني الف الف شكر اخي الفاضل الحين ظهر عندي مربع حوار اختيار اسكان غدا باذن الله سوف اجربه علي الاسنكر الحديث وابلغك بالنتيجه وباذن الله بعد التجربه سوف ابدأ في العمل النهائي للبرنامج وارفقه مفتوح المصدر لكل من يريد هديه مني لهذا المنتدي العظيم

طيب جرب السكانر بدون برنامجك هل تعمل من داخل الويندوز ام لا؟

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

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

اخي @Shivan Rekany ما شاء الله عليك دوما وانت في الابداع تسلم يديك حفظك الله من أي مكروه ونفع الله بك الإسلام والمسلمين شاكرين لك اخي

اتفضل استخدمت هذا الكود عند الضغط على زر انتر If KeyCode = 13 Then Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close End If واستخدمت هذا عند دبل كليك Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close اتفضل مع القاعدة بعد اضافة كود الاعلاه الاضافه على الفاتوره.rar

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

ليس هناك استعلامات العمل هنا داخل محرر الأكواد alt+f11 من نافذة view اختر immediate ctrl+g و بالنسبة لاستخدام مثل هذه القيم فأنا قصدت بالطريقة العادية يعنى ننشئ جدولا به حقلان رقم و اسم الشهر و نعبئه بالقيم ثم نجعله مصدرا للصف فى مربع السرد و سألت عما يميز طريقتكم عن الطريقة المعتادة و مع ذلك فقد حاولت ملء مربع سرد بقيم هذه الطريقة كما بالمرفق افتح نموذج 2 بالمرفق و تفحص مربع السرد و اختر الشهر أبريل بالتوفيق تطبيق على type و معرفة رقم الصف للمختار فى كمبوبوكس.rar

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

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

@ابا جودى هل رايت ذلك التعليق

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

اخي / sandanet تابعت المشاركة التي قلت لي عليها ولكن ظهر رسالة خطأ كما في الصورة : كيف يمكن معالجته

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

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

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

جزاك الله خير

إليك رابط القناة حاول تتابعها وتستفيد منها بأكبر قدر وإن شاء الله مع الوقت تقدر تكتب أكواد بنفسك .. الموضوع ما هو إلا ممارسة وتدريب وتطبيق (ما ولدنا من بطون أمهاتنا وكنا نعرف كتابة الأكواد بل تعلمناها بمرور الوقت مع التدريب والممارسة) YasserKhalil ExcelLover

طبعا يمكن وخلينا نبدا بهذا المرفق الموجود بهذا الرابط

نعم بالمثال يتضح المقال.. دعني أقوم بشرح بعض النقاط من خلال الصورة التالية.. بحسب تسلسل الأرقم: 1- إنشاء حاوية معاملات عددية تسلسلية بأسماء الأشهر الميلادية.. اسم هذه الحاوية: T4ManthNames

السلام عليكم أخي الكريم ناصر ابحث عن الإجراء الفرعي المسمى Sub Kh_JJJ(Nd As String) وعدل السطر التالي If .Cells(R, 1) = Nd Then ليكون بالشكل التالي If .Cells(R, 1) Like "*" & Nd & "*" Then

عند تغير التاريخ للعميل !! لماذا تتغير التاريخ للعميل المنتهي العقد ؟ عند انتهاء العقد راح تكتب اليوم اللي فيه المنتهي العقد معه وحينئذ راح يكون هو اكبر تاريخ على ذلك الرقم وعلى هذا الاساس انا جربت مثلا عند انتهينا العقد مع شخص و نقلنا اسمه الى جدول المنتهي العقود اي تم انتهاء العقد للسيد ( محمد السيد ) وكتبنا اي عملنا تعاقد مع شخص اخر اي عملنا عقد مع السيد ( ياسين انور ) وفتحنا استعلام من جديد شفت ان الصور سيكمل الحكي ما اعرف عدا هذا ما تريد

لي الشرف في ذلك ايضاً تحياتي

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

مرحبا استاذ مارد ولو اردنا ان يكون الترقيم لليوم الحالي فكيف يكون عمل ذلك؟؟؟؟؟؟؟؟؟؟؟؟ يكون هكذا اخى الكريم واعزرنى لتاخرى فلم ارى المشاركة ال الان Dim f, k As Date Dim j As String Dim s As Long If DCount("id", "mytable") > 0 Then f = DMax("mydate", "mytable") If Day(MyDate) > Day(f) Then ID = 1 Else j = "Day(MyDate) = " & Day(Me.MyDate) ID = DMax("id", "mytable", j) + 1 End If Else ID = 1 End If

الحل يتم بأكثر من طريقة اسهل وأقوى طريقة هو ان تجعل الحقلين مفتاحين جرب ووافنا بالنتيجة تنبيه : لاختيار اكثر من مفتاح : اضغط زر كنترول من لوحة المفاتيح ثم حدد السجلات المطلوبة ثم انقر بالزر الايمن واختر المفتاح No Duplicates.rar

التحكم بوقت التنفيذ في النموذج مع تطبيق ذلك على التنبيه Beep ، إظهار رسالة ، فتح نموذج ، إغلاق التطبيق ............ Timeout.zip

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