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

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

و عليكم السلام و رحمة الله و بركاته اخي العزيز بو عبد الله غير الكود للزر المطلوب الى الكود التالي If Me.NewRecord Then DoCmd.GoToRecord , , acFirst MsgBox "انت الآن في السجل الأول" Else With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "انت الآن في السجل الأول" Else Me.Bookmark = .Bookmark End If End With End If ارجو ان يكون هو ما تقصده بالتوفيق

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

عدلها الى نفس اعدادات الاجهزة الاخرى

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

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

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

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود VBA لمنع المستخدمين من الدخول على sheet معين فى ملف اكسل تم ارفاق كود الحل من الفاضل ا / إبراهيم ابوليله _ سليم حاصبيا و لا تنسونا من صالح الدعاء تحياتى PASS123 (IBRAHIM).rar SELIMاخفاء ورقة.rar

كل عاااااااااااااام وانتم بخير جميعا .. عيد مبارك عليكم ومثل الايام العام القادم كلكم تزوروا الرسول الحبيب ( صلى الله عليه وسلم ) وانا معكم

الملف يعمل عندي كما طلبت المرفق 22.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ارجو من الأخوة الأفاضل ان يقوموا بشرح وافى عن استخدام like فى المعايير وكيفية تركيب المعايير وربط الاستعلامات عن طريق نماذج للبحث عن طريق الـ TextBox أو بقية الأدوات الممكن استخدامها فى البحث

مرحبا جرب هذا الكود Sub AAAAAA() Dim sh As Worksheet, v As Double, x As Integer Set sh = Sheets("a") With sh v = Val(.Range("D10").Value) / Val(.Range("G10").Value) For x = 1 To Val(.Range("G10").Value) .Cells(x + 12, 5) = v Next End With End Sub

اليك ما يجب القيام به 1-File>>>Option>>>advanced>>>Display for this workbook 2-Show sheet tabs تزيل علامة الصح من جانب 3- Ok

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

لا شكر على واجب اخي العزيز بو عبد الله شكراً لك على التوضيح تفضل الكود بعد التعديل Dim rs As DAO.Recordset Set rs = Me.Recordset If Me.NewRecord Then rs.FindLast "[Opérateur] =" & [txtSave] Else rs.FindPrevious "[Opérateur] =" & [txtSave] If rs.NoMatch Then MsgBox "انت الآن في السجل الأول" Else Me.Bookmark = rs.Bookmark End If End If ارجو ان يكون هو المطلوب هذه المرة بالتوفيق

الكود يعمل 100 % بارك الله فيك أستاذنا القدير رمهان

مشاركة مع الاستاذ القدير يوسف ابو احمد ضع السطر التالي في اول كود الزر الى الوراء If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub ليصبح الكود كاملا Private Sub Previous_Click() If Me.NewRecord Then Me.RecordsetClone.FindLast "[Opérateur] =" & [txtSave]: Me.Bookmark = Me.RecordsetClone.Bookmark: Exit Sub With Me.RecordsetClone .FindPrevious "[Opérateur] =" & [txtSave] If .NoMatch Then MsgBox "ÃäÊ ÇáÂä Ýí ÇáÓÌá ÇáÃæá" Else Me.Bookmark = .Bookmark End If End With End Sub بالتوفيق طبعا باعتبار ان الرقم المراد البحث عنه موجود !

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

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

اذا كان هذا الرقم يجب ان يبقى عندك ولو بعد اغلاق البرنامج وفتحه مرة اخرى فانت بحاجة لوضعه في جدول أما ان كنت تريده ان يبقى عندك الى حين اغلاق البرنامج ثم يبدأ من جديد يمكن لك ان تضعه في تعريفه Public

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

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

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

if date = #12/06/2016# then DoCmd.RunSQL "DELETE bill.id FROM bill;" end if هذا كود التأكد من تاريخ معين تفضل اخي الكريم مرفق فيه نموذجين 1- flash يعطيك الرقم التسلسلي للفلاشة قم بنسخ الرقم ووضعه في الشرط الموجود في النموذج الثاني 2-hi تستخدم هذا النموذج كنموذج ترحيب في برنامجك يفتح تلقائيا عند تشغيل البرنامج يقوم هو بفتح بمقارنة الرقم التسلسلي للفلاشة فاذا كان صحيحا تم الدخول الى البرنامج او يقوم باغلاق البرنامج قاعدة البيانات1.rar

السلام عليكم كما تريد اخي لكن هذا الكود خطير جدا اذا كان هناك خلل في شرط الكود وقام بالحذف فلن تستطيع استرجاع المعلومات التي حذفت اليك الكود DoCmd.RunSQL "DELETE bill.id FROM bill;" فقط استبدل كلمة bill باسم الجدول المراد حذف البيانات منه

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

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

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

برنامج قوائم الفصول للاستاذ الفاضل / محمدى عبد السميع برنامج قوائم الفصول.rar

السلام عليكم الاخ محمد الالفى تم تجريه حل استاذنا ياسر خليل ابو البراء وهو يعمل معى بنجاح وعندك ملحوظه هى الفاصله =IF(OR(SUMIF($E$3:$E$456;E3;$F$3:$F$23)>=2;SUMIF($E$3:$E$456;E3;$G$3:$G$456)>=2);SUMPRODUCT(--($E$3:$E$456=E3));1) تم اضافه حل اخر =IF(OR(SUMPRODUCT(($F$3:$F$9121=F3)*(H$3:$H$9121)^1)>1;SUMPRODUCT(($F$3:$F$9121=F3)*($G$3:$G$9121)^1)>1);"مكرر"&SUMPRODUCT(($F$3:$F$9121=F3)^1);1) التحويلات1.rar

اخي الكريم ما الفكرة من حذف البيانات او الجداول ؟؟ عوضا عن ذلك قم بوضع مدة تجريبية للبرنامج و حمايته بهذه المدة

السلام عليكم تم عمل المطلوب من وجهه نظرى ان لم يكن هناك رأى اخر =IF(AND(COUNTIF($F$3:$F$9121;F3);OR(SUMIF($F$3:$F$9121;F3;$H$3:$H$9121)>1;SUMIF($F$3:$F$9121;F3;$G$3:$G$9121)>1));"مكرر"&COUNTIF($F$3:$F$9121;F3);1) التحويلات.rar

الأخ العزيز عبدالسلام علي السلام عليكم جرب هذا الكود بعد دمجة لعلة يكون المطلويب باذن الله نسألكم الدعاء Sub abo_abary() Sheets("ÇáäÇÌÍæä").Range("a6:aq100") = "" Sheets("ÇáäÇÌÍæä").Range("a6:aq100").Interior.ColorIndex = 0 Sheets("ÑÇÓÈ").Range("a6:aq100") = "" Sheets("ÑÇÓÈ").Range("a6:aq100").Interior.ColorIndex = 0 Application.ScreenUpdating = False X = Sheets("ÊÌãíÚí").[e1000].End(xlUp).Row For T = 11 To X Step 3 Y = Sheets("ÇáäÇÌÍæä").[A1000].End(xlUp).Row + 1 If Sheets("ÊÌãíÚí").Range("au" & T).Value = "äÇÌÍ" Then Sheets("ÇáäÇÌÍæä").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÇáäÇÌÍæä").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÇáäÇÌÍæä").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÇáäÇÌÍæä").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value ElseIf Sheets("ÊÌãíÚí").Range("au" & T).Value = "áå ÏæÑ ËÇä Ýì" Then Sheets("ÑÇÓÈ").Range("a" & Y) = Sheets("ÊÌãíÚí").Range("E" & T).Value Sheets("ÑÇÓÈ").Range("d" & Y) = Sheets("ÊÌãíÚí").Range("g" & T).Value Sheets("ÑÇÓÈ").Range("c" & Y) = Sheets("ÊÌãíÚí").Range("f" & T).Value Sheets("ÑÇÓÈ").Range("e" & Y & ":aq" & Y) = Sheets("ÊÌãíÚí").Range("j" & T + 2 & ":av" & T + 2).Value End If Next Clear_and_Highlight Application.ScreenUpdating = True End Sub

جرب المعادلة التالية =IF(OR(SUMIF($E$3:$E$456,E3,$F$3:$F$23)>=2,SUMIF($E$3:$E$456,E3,$G$3:$G$456)>=2),SUMPRODUCT(--($E$3:$E$456=E3)),"")

عفوا خطا بسيط فى البرنامج تم رفعه مجددا الترجمة.rar

اليك المعادلة المطلوبة _(تضغها في الخلية C5 ,و تسحب نزولاً) =IF($B5="","",HLOOKUP($B5,$D$1:$H$2,2,0)+COUNTIF($B$5:B5,B5)-1)

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

قلت لك عيني حتكون عليك وعيني عليك باردة ، ماشاء الله عليك جعفر

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

ولك بالمثل أخي الكريم وهدية لك هذا المثال تطبيقاً للشرح أعلاه SerIn3Way.rar

وعليكم السلام ورحمة الله وبركاته خطوات البحث : 1- تحتاج الى جدول tblinfo و استعلام مرتبط بالجدول qrySer ونموذج غير منضم frmSer 2- ضع في النموذج مربع نص اسمه Ser . 3- من خلال المعالج أنشئ زر أمر تشغيل الاستعلام qrySer 4- ضع السطر التالي في الاستعلام تحديداً في معيار الحقل المراد البحث فيه وليكن حقل الاسم : Like [forms]![frmSer]![Ser] الشرح : 1-عند تشغيل الاستعلام من خلال زر الأمر سيتم أخذ قيمة معيار حقل الاسم من مربع النص Ser (فإن كان فارغاً سيعرض جميع النتائج) 2-ضع أي كلمة للتجربة واضغط زر الأمر سيتم الحصر والفلترة لتقلل من النتائج . 3- forms هي امر عام وتعني أن الأمر مصدره نموذج . 4- frmSer وهو اسم النموذج الذي نأخذ منه كلمة البحث . 5- Ser هو مربع النص الذي أدخلنا كلمة البحث فيه . 6- Like تعني يشبه أو يماثل والمقصود اعرض لي السجل الذي فيه شبيه لهذه الكلمة القادمة من مربع النص Ser والموجود في النموذج frmSer 7- & "*" وهذا الرمز اختياري ولكنه مهم جداً إذ أنه وفي حال اضافته يوسع نطاق البحث فعند اضافته يمكنك ادخال جزء من كلمة البحث وعند ازالته يجب التقيد بما هو موجود داخل الحقل من قيم فيجب أن تكتب كاملة وفيما يلي أمثلة لأماكن وضع هذا الرمز في سطر البحث : السطر التالي .. يبحث عن الكلمة التي تنتهي بكلمة البحث التي أدخلتها مثل (هد) يمكن أن تكون نتائج البحث ( فهد) (ناهد) (زاهد) (شهد) ... وهكذا : Like "*" & [forms]![frmSer]![Ser] السطر التالي .. يبحث الكلمة التي تبدأ بكلمة البحث التي أدخلتها مثل (جم) يمكن أن تكون نتائج البحث ( جمال) (جميله) (جمعان) (جمايل) ... وهكذا : Like [forms]![frmSer]![Ser] & "*" أما السطر التالي .. يبحث عن أي جزء من الكلمة أو القيمة التي داخل الحقل فمثلا عندما نبحث عن (سل) تكون النتائج (سلمان) (مسلم) (باسل) ... وهكذا : Like "*" & [forms]![frmSer]![Ser] & "*" والله أعلى وأعلم