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

أخي الحبيب أبو عبد الرحمن أنا اللي مطنش ولا إنت اللي مشغول عننا .. لو إنت متابع كنت عرفت إني عملت مدونة جديدة خاصة بي ، وفيها حوالي 58 موضوع للآن .. وفيها موضوعات دسمة ومفيدة بس إنت اللي مش متابع رابط المدونة في التوقيع الخاص بي .. عموماً في انتظارك طلتك البهية على المدونة (بس مقلتش بهية مين دي !! تعرفها .. ولا أنا) تقبل تحياتي

السلام عليكم ورحمة الله وبركاته وبعد احبتي اليكم طريقة لاستخراج ارصدة الاصناف المتوفرة في المستودع وهي دالة تخرج لنا رصيد الصنف بمجرد تمرير رقم الصنف عليها اليكم الدالة مع الشرح Public Function alRaseed(ByVal vsenf As String) ' vsenf هو متغير نصي ويمكن ان يكون رقمي وهو يمثل رقم الصنف Dim shra, bai As Integer 'متغيرات رقمية shra = Nz(DSum("kmyahB", "tbl_buy", "N_mad=" & vsenf), 0) ' مجموع عدد الاصناف المشتراه من الصنف المحدد bai = Nz(DSum("kmyahS", "tbl_sales", "N_Mda=" & vsenf), 0) ' مجموع عدد الاصناف المبيعة من الصنف نفسه alRaseed = shra - bai ' الرصيد المتبقي End Function 'وفي النموذج ا Private Sub Cmd1_Click() text1 = alRaseed("0000121") 'الرقم بين القوسين يمثل معرف الصنف 'ويمكن ان نضع داخله اسم حقل الصنف End Sub اذا الشرح غير كافي يمكنني زيادة الايضاح

السلام عليكم بعد اذن اساتذة المنتدى الكرام هذه اول مشاركة لى بملف على هذا المنتدى العظيم .قمت يالتعديل والأضافة على بعض الشيتات الخاصة بالكنترول للصف الثانى الثانوى لما وجدت من بعض القصور فقمت ببعض الأضافات وأهمها ( ضم القسم العلمى والأدبى بكل فروعهم فى شيت واحد - كما ضميت كذلك طلبه المنازل ) ( تقريب الكسور فى المجموع الكلى للدرجة ) واتوجة بالشكر الى كل الأساتذة الموجودين بالمنتدى الذين تعلمت منهم الكثير وأخص بالذكر الأستاذ رجب جاويش على افكارة الرائعة فى الشيت كنترول الخاص بالثانوى العام التى اخذت منها الكثير واضفته للبرنامج وكذلك الأستاذ سامى الهادى وكذلك الأستاذ العلامة عبدالله باقشير الذى افادنى كثيرا فى تفقيط مجموع الطالب وهذه نسخة اولية ارجو التفضل بابداء ملاحظاتكم عليها. كلمة السر 123 ونظرا لكبر حجم الملف قمت بوضعه على هذا الرابط http://www.mediafire.com/download/l4lg47ckt7zobb8/%D8%A7%D9%84%D8%AB%D8%A7%D9%86%D9%89.rar

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

برنامج قاعدة شئون العاملين مميزة وبشكل جديد وتحتوى على: 1 - الاستعلام بلاسم على الموظف 2 - ادخال بيانات الموظف وتحديد رقم لكل ادارة 3 - القوائم ومنها نختار الموظفين لكل ادارة 4 - الإدارة وبها عدد الموظفين 5 - المؤهلات الدراسية عدد كلا منها 6 - التقارير + صورة الموظف 7 - حساب مكافأة نهاية الخدمة 8 - المجموعة النوعية التخصصية للدرجة 9 - الصور http://www.mediafire.com/download/wrcnxp72tc8dy9y/%D9%82%D8%A7%D8%B9%D8%AF%D8%A9_%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA_%D8%B4%D8%A6%D9%88%D9%86_%D8%A7%D9%84%D8%B9%D8%A7%D9%85%D9%84%D9%8A%D9%86.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، جرب الملف المرفق التالي بعد تعديل بسيط على كود PDF_SALAM... تم إضافة كود Printing إلى الملف مع تعديله الجديد... أخوك بن علية Manafist Tarek 2016.rar

فرنسية وانجليزية الدوال.rar

تماما اخى العزيز طبعا كل الفضل يرجع لهذا المنتدى وكل فريق الموقع الذين لا يبخلون بأى معلومة لآى شخص مختاجها وانا كنت من الناس دى الى اتعلموا بالمنتدى البرنامج عبارة عن كم معلومات عن الموظف المفروض تكون في شئون العاملين لتقديمها لمتخذ القرار عن اى شيء تخص المصلحة او الإدارة او الموظف شرح البرنامج 1 - ادخال البيانات وهى اهم صفحة لآنها تجمع بها البيانات وهو مبنى عليه البرنامج كله والصفحات الأخرى بتأخذ البيانات منها وهى عبارة عن استكمال البيانات بدقة 2 - حانة القايمة بها قائمة منسدلة لآختيار رقم يمثل ادرة من الادارات 3 - صفحة القوائم من اعلي الصفحة يوجد قائمة منسدلة نختار رقم منها وهو يمثل إدارة من الإدارات وسوف يظهر العاملين الذين يشغلون الادارة 4 - صفحة الادارات وهى عبارة عن اسم كل الإدارات وعدد العاملين بكل ادارة 5 - المؤهلات الدراسية وهى حصر بكل الشهادات الدراسية الموجودة بالنوع والعدد 6 - المجموعة التخصصية للدرجة وهى توضيح بالمسمى الوظيفى للموظف نوع الوظيفة المعين عليها حصر اسم الوظيفة وعدعها 7 - التقرير وهو بيان حالة الموظف وكل مايخصه من معلومات ( بطاقة وصف للموظف + صورتة ) وهذا بأختيار اسم الموظف من القائمة المنسدلة ملحوظة البرنامج مبني علي معادلات بحث وهي التي تم الاستعانة بها مثل : للبحث VLOOKUP للقوائم INDEX للاعداد CONTIF للصور INDIRECT وشكرا لعل وعسي ان أكون وفيت المطلوب

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

استاذنا الفاضل ياسر اعتقد ان كلامك صحيح .. المشكلة ليست في الاندر سكور .. المشكلة ان اسم الموديول نفس اسم الفنكشن تحياتي

السلام عليكم قد يكون الموضوع مش جديد وعلى المبتدئين ! ولكن يمكن ان يكون من نوع السهل الممتنع ! الموضوع : عند اضافة بيانات لحقل معين اريد ان يشيك اولا هل هو موجود فيذهب لذلك السجل او يستمر في الاضافة عند عدم وجود المكرر ان ما جعلني اكتب هذا الموضوع هو ان احد الاخوة طرح هذا السؤال وهو شخص اعرف ان مستواه جيدا فقمت بالبحث في اماكن عدة فلم اجد جوابا شافيا ! ويكثر الطلب عليه دائما ! وضعت هنا طريقتين وعند الحدث قبل التحديث للحقل: 1. وهي المطبقة في المرفق: Private Sub Id_BeforeUpdate(Cancel As Integer) Set rs = Me.RecordsetClone rs.FindFirst "id=" & Me.Id If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود هنا") End If End Sub 2. Private Sub Id_BeforeUpdate(Cancel As Integer) idx = Me.Id If DCount("*", "persons", "id=" & idx) Then Undo DoCmd.FindRecord idx MsgBox ("مكرر هنا") End If End Sub تحياتي متمنيا الفائدة ومستقبلا التعقيب وراغبا في المشاركة بافكار اخرى check_before_ins_upd.rar

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

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

وعليكم السلام ورحمة الله وبركاته أخي الكريم عبد الرحمن يرجى تغيير اسم الظهور للغة العربية هل تقصد إظهار رسالة للمستخدم أم عمل فورم يقوم مقام الرسالة ؟ الأمر مختلف يرجى التوضيح وإرفاق ملف للتوضيح تقبل تحياتي

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

اخي ابوحمادة لا افضل استخدام الرسائل الا في عند الضرورة ولكي تبين شئ مهم .. مارائك بان يتم اخفاء الاوبشن بوتن كما في الكود الاتي Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Visible = False OptionButton2.Visible = False OptionButton3.Visible = False OptionButton4.Visible = False OptionButton5.Visible = False Else OptionButton1.Visible = True OptionButton2.Visible = True OptionButton3.Visible = True OptionButton4.Visible = True OptionButton5.Visible = True End If End Sub

أحسنت وبارك الله فيك ...

اسف اخي .. قمت بالتعديل الان .. جرب تعديل كود_4.rar

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

جرب التعديل التالي أخي العزيز Sub Test() Application.Calculation = xlManual With Sheets("اللجان") .Calculate For J = [am3] To [an3] Step 20 [I2] = IIf(J <= [an3], J, ""): [R2] = IIf(J + 1 <= [an3], J + 1, ""): [aa2] = IIf(J + 2 <= [an3], J + 2, ""): [aj2] = IIf(J + 3 <= [an3], J + 3, "") [I7] = IIf(J + 4 <= [an3], J + 4, ""): [R7] = IIf(J + 5 <= [an3], J + 5, ""): [aa7] = IIf(J + 6 <= [an3], J + 6, ""): [aj7] = IIf(J + 7 <= [an3], J + 7, "") [I12] = IIf(J + 8 <= [an3], J + 8, ""): [R12] = IIf(J + 9 <= [an3], J + 9, ""): [aa12] = IIf(J + 10 <= [an3], J + 10, ""): [aj12] = IIf(J + 11 <= [an3], J + 11, "") [I17] = IIf(J + 12 <= [an3], J + 12, ""): [R17] = IIf(J + 13 <= [an3], J + 13, ""): [aa17] = IIf(J + 14 <= [an3], J + 14, ""): [aj17] = IIf(J + 15 <= [an3], J + 15, "") [I22] = IIf(J + 16 <= [an3], J + 16, ""): [R22] = IIf(J + 17 <= [an3], J + 17, ""): [aa22] = IIf(J + 18 <= [an3], J + 18, ""): [aj22] = IIf(J + 19 <= [an3], J + 19, "") With .PageSetup .LeftHeader = "اللجنة " & Sheet2.Range("Q5").Value & vbCrLf & "القاعة " & Sheet2.Range("Q6").Value .CenterHeader = "امتحانات الطلبة" & vbCrLf & "للعام " & Sheet2.Range("Q7").Value .RightHeader = Sheet2.Range("Q3").Value & vbCrLf & Sheet2.Range("Q4").Value End With .Calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next J End With Application.Calculation = xlAutomatic End Sub تقبل تحياتي

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

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

متشكر جدا اخ/ ياسر خليل هذا من فضل الله اولا وافضلكم علينا ثانيا وهذة ثمرة مجهودكم معانا

بارك الله فيك استاذ ياسر .. لكني قمت بتعديل بيسط في الكود كالاتي =SUMPRODUCT(--(MID(A2;ROW($A$1:$A$100);1)=B2)) اي ان الكود سيكون حسب تعديلك =sommeprod(--(stxt(A2;ligne($A$1:$A$100);1)=B2))

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

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

السلام عليكم ورحمة الله وبركاته اشكر لك مداخلتك اخي كرار كلام صحيح

تم التعديل اخي .. جرب ان تختار احد الاوبشن بدون ماتختار التشك بوكس

Private Sub CheckBox1_Change() VisUnVis End Sub Private Sub CheckBox2_Change() VisUnVis End Sub Private Sub CheckBox3_Change() VisUnVis End Sub Sub VisUnVis() OptionButton1 = False OptionButton2 = False OptionButton3 = False OptionButton4 = False OptionButton5 = False If CheckBox1 = False And CheckBox2 = False And CheckBox3 = False Then OptionButton1.Locked = True OptionButton2.Locked = True OptionButton3.Locked = True OptionButton4.Locked = True OptionButton5.Locked = True Else OptionButton1.Locked = False OptionButton2.Locked = False OptionButton3.Locked = False OptionButton4.Locked = False OptionButton5.Locked = False End If End Sub عمل هذا الكود .. اذا لم يتم اختيار اي من التشك بوكسس .. لايمكن اختيار الاوبش بوتنز

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

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

=SUMPRODUCT(--(MID(A2;ROW(A1:A101);1)=$B$2))

اول خطا كان في البداية If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value And .CheckBox2.Value And .CheckBox3.Value = True Then عدله الي If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = False Then MsgBox "ÇÎÊÇÑ ãÇÈíä ÇáÞíãÉ ÇáäÞÏíÉ Çæ äÓÈÉ ãÆæíÉ" If .CheckBox1.Value= False And .CheckBox2.Value= False And .CheckBox3.Value = True Then لم اراجع الكود بالكامل .. ربما بعد هذا التصحيح ستنحل المشكلة

بعد اذن الاستاذ ياسر جرب salary finished.rar

هذه الروابط لعموم الفائدة هذا من عام &nbsp;2001 وهذا من عام &nbsp;2007 هنا الكود من عام 2008 وهذا من عام &nbsp;2010 وهذا من عام &nbsp;2012 وهذا من ميكروسوفت حديث

اخ مومن عندما كتبت الموضوع التالي كنت اعرف اهميته وهو اعتقد لطلبك بالتمام واعتقد ان عنوان الموضوع يختلف عن المضمون ! بالتوفيق

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

جرب الكود التالي بعد التعديل .. Sub Print_Task() Application.ScreenUpdating = False Rows("8:32").Hidden = False For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintPreview ActiveSheet.PrintOut For I = Range("E5").Value + 1 To Range("F5").Value For I = 8 To 32 If Cells(I, 3).Value = "" Then Cells(I, 3).EntireRow.Hidden = True End If Next I Range("E5") = I If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Rows.Hidden = False Next I Range("E5").Select Rows.Hidden = False Else MsgBox "Cancelled", vbExclamation End If Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

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

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

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

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

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

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

سؤال عدد ايام السنة الهجرية 354 ؟ لو كانت الاجابة نعم فهذا البرنامج يفيدك تاريخ التقاعد.rar

الاخ اسامة اهلا بك بقسم البوربوينت انا كنت مسافر 10 ايام شكرا للرد

السلام عليكم يا اعضاء المنتدى الرائع عندي سؤال ربما يكون بسيط بالنسبة لذوي الخبرة وبالنسبة لي صعب جدا ؟! عملت جدول ( للولايات ) وعملت جدول ( للمناطق ) لكي يتسنى لي اضافت ولايات او مناطق في المستقبل .... بس المشكلة عندم ادرج الولاية او احب ان اضيف ضيف لها منطقة يكون الفرز باعطائي جميع المناطق التي تندرج في جدول المناطق سؤالي كيف اعمل فرز للمناطق تحت الولاية المطلوبة فقط ؟؟؟ المثال مرفق WLAYYAT.rar