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

أخي الحبيب أبو عبد الرحمن أنا اللي مطنش ولا إنت اللي مشغول عننا .. لو إنت متابع كنت عرفت إني عملت مدونة جديدة خاصة بي ، وفيها حوالي 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

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

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

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

اسف اخي .. قمت بالتعديل الان .. جرب تعديل كود_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 ستجد ظهور سطر باللون الأصفر لديك قم بنسخه ووضعه في المشاركة مع صورة للخطأ (قم بنسخ الكود مرة أخرى من المشاركة السابقة فقد تمت إضافة سطر واحد) تقبل تحياتي

أخي الكريم رشراش احتمال وجود نسخة الأوفيس لديك باللغة الفرنسية تستلزم منك أن تقوم عند نسخ المعادلة بتغيير اسماء الدوال ..فمثلاً الدالة Sumproduct يقابلها بالفرنسية sommeprod والدالة Row يقابلها بالفرنسية ligne والدالة Mid يقابلها بالفرنسية stxt ومن ثم أعتقد لنسخ المعادلة التي تفضل بها أخونا العزيز عبد السلام ، يجب استبدالها بالفرنسية بهذا الشكل =sommeprod(--(stxt(A2,ligne(A1:A101),1)=$B$2)) لاحظت في التوقيع الخاص بك تحيا الأمة الإسلامية - الشيعة (رجاء إزالة التوقيع منعاً لأي جدال أو نقاش حول الأمر .. المنتدى تعليمي وكلنا هنا يجمعنا المصلحة العامة للجميع بصرف النظر عن الانتماءات أو التحزبات أو خلافه ، وبرجاء عدم الدخول في نقاش أو جدال في هذا الأمر - أردت فقط التنويه) تقبل تحياتي

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

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

تعديل كود.rar

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 عمل هذا الكود .. اذا لم يتم اختيار اي من التشك بوكسس .. لايمكن اختيار الاوبش بوتنز

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

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

اول خطا كان في البداية 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

يا لطيف 7 شهور .. الحق انك مناضل تفضل : باعتبار اسم الحقل والذي نوعه رقمي في الجدول والذي تبحث عن طريقه اسمه id اعمل مربع نص غير منضم في النموذج واجعل اسمه text1 افتح على التصميم وفي حدث بعد التحديث لمربع النص المذكور الصق هذا الكود Private Sub text1_AfterUpdate() Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[id] = " & Me![text1] If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub ان كان نوع الحقل في الجدول نصيا ستحتاج الى تغيير بسيط في الكود

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

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