اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

البحث في الموقع

Showing results for tags 'بحث'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
  • قسم تطبيقات و لغات مايكروسوفت
    • قنوات تعليمية شخصية و دورات تدريبية مجانية و مدفوعة
    • إعلانات شخصية بأجر للاعضاء
    • المنتدى المفتوح
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • دعم أنظمة الويندوز المختلفة
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • منتدى الفيزيو Visio
    • منتدي مايكروسوفت بروجكت Ms Project
    • منتدى الفرنت بيج العام Frontpage
    • تطبيقات Power Apps
    • وان نوت One Note
    • الناشر بابليشر Publisher
    • Communicator
    • Expression Web
    • SQL Server
    • VB.net
    • C#.net
    • Asp.net
  • الغات و أدوات البرمجة الأخرى
    • حوارات الويب العامة
    • Delphi
    • PHP
    • برمجة الاندرويد
  • أقسام الإدارة و إدارة المشاريع و تطبيقاتها
    • الاستراتيجية وإدارة محافظ المشاريع
    • إدارة المشاريع
    • Scaled Agile SAFe
    • إدارة الجودة
    • القيادة و تنمية المهارات
    • Primavera Enterprise
    • Primavera 3.1
  • البحث العلمي و علوم البيانات
    • مناهج البحث العلمي
    • علم الإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
    • Orange
    • R
    • SPSS
    • Python
  • القسم العام
    • مشاركات المدونات
    • نرحب بزوار الموقع
    • قسم الاقتراحات و الملاحظات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • EFQM & DGEP
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

الاقسام

  • New Features
  • Other

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

  1. السلام عليكم رداً على السؤال التالي: سؤال عن كود البحث في جدولين قمت بعمل محاولة بناء على ما تبين لي من مقصد السائل، وبناء على ملاحظة الأستاذ @د.كاف يار عن كون الفكرة مبتكرة، أعيد رفع المرفقات مع شرح مختزل للفكرة عارٍ من الصور، مع إضافة طريقة أخرى. الفكرة قد تحتاج إلى تهذيب بحكم أنها كانت استجابة عفوية للسائل، أضعها بين أيديكم الغالية، عسى أن يُستفاد منها: أللهم صلِ على سيدنا محمد وعلى آله وصحبه وسلم. تنقسم الطريقة إلى جزئين رئيسيين، الأول منهما ثابت والثاني اقترحت طريقتين له: الجزء الأول: عمل استعلام توحيد بين الجدول الرئيسي والفرعي، يكون فيه من الجدول الفرعي Figlio : 1- الحقل الذي نرغب بالبحث ضمنه. 2- حقل المتسلسل. 3- حقل الربط. ومن الجدول الرئيسي Padre: 1- الحقل الذي نرغب بالبحث ضمنه 2- حقل المتسلسل 3- حقل محسوب قيمته صفر (نستحصل عليها بضرب حقل المتسلسل بالقيمة صفر). بالنسبة لي، قد اخترت أن يكون في نموذج البحث مربع قائمة -على مبدأ (البحث عن الكل) في الإكسل- يكون مصدره الاستعلام الذي سميته في الأنموذج المرفق (SearchQ)، وربطته بفلاتر تُستدعى بناء على معيار حقل البحث (طريقة العرض يمكن تغييرها والتفنن بها وهذه الجزئية ليست موضوع المنشور)، بعد ذلك يتم الانتقال من نموذج البحث إلى نموذج الإدخال (بقسمين الرئيسي والفرعي) بتمرير قيمة حقل الربط وحقل المتسلسل. إلى مربعين غير مرتبطين في نموذج البحث ومن ثم إلى نموذج هدف البحث. (ويمكن ذلك باستخدام المتغيرات). ملحوظة: يوجد في النموذج الفرعي حقل خفي مصدره المتسلسل في الجدول الفرعي. الجزئية الثانية: كيفية تحديد الحقل والسجل الذي يتضمن الهدف! هنا لدينا طريقتان: الأولى: بنقل التركيز إلى الحقل المطلوب : Dim Padre As Integer ' متغير باسم (الأب) لحفظ قيمة معرف السجل في الجدول الرئيسي Dim Figli As Integer ' متغير باسم (الابناء) لحفظ قيمة معر السجل في الجدول الفرعي Padre = Me.id ' حقل خفي في نموذج البحث Figli = Me.ID2 ' حقل خفي في نموذج البحث If Me.ID2 = 0 Then ' هذا الشرط لجعل الكود يتحقق بالانتقال ووقوف في النموذج الرئيسي أو الانتقال ومتابعة البحث في النموذج الفرعي DoCmd.OpenForm "form1" ' إعادة فتح النموذج الهدف لنقل التركيز إليه DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre ' فتح النموذج على السجل المنشود DoCmd.GoToControl "[اسم رب العائلة]" ' التركيز على حقل فيه Else DoCmd.OpenForm "form1" DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre 'Me.id DoCmd.GoToControl "SubForm" ' نقل التركيز إلى النموذج الفرعي DoCmd.GoToControl "[الاسم]" ' نقل التركيز إلى حقل في النموذج الفرعي ' هذا الجزء لنقل التركيز في النموذج الفرعي إلى السجل المطلوب Dim rstt As dao.recordset Dim rstrng As String rstrng = "[id0]=" & Figli 'Forms!search!Figli Set rstt = Forms!form1!Subform.Form.RecordsetClone rstt.FindFirst rstrng Forms!form1!Subform.Form.Bookmark = rstt.Bookmark Set rstt = Nothing End If الثانية: باستخدام التنسيق الشرطي وهي الطريقة الأفضل برأيي. ويزاد فيها وجود معادلة للتنسيق الشرطي لحقل الهدف في النموذج الرئيسي وأخرى لحقل الهدف في النموذج الفرعي ، ووجود حقلين خفيين في النموذج الرئيسي يأخذان قيمتها من المتغيرين (الأب) و(الأبناء)، ستكون قيمتهما هي محددات معادلتي التنسيق الشرطي. ' سيبدو الكود بهذه الطريقة Dim Padre As Integer Dim Figli As Integer Padre = Me.id Figli = Me.ID2 Forms!form1!CondScnd.Value = Figli ' هنا نجعل حقل المعيار للتنسيق الشرطي يأخذ قيمته من المتغيرات المبين معناها في الكود السابق Forms!form1!CondFrst.Value = Padre DoCmd.GoToRecord acDataForm, "Form1", acGoTo, Padre Forms!form1.Refresh ' مع اختصار المراحل ' وتوفير ضرورة إعادة التركيز إلى نموذج البحث مع كل انتقال إلى الهدف أرجو ممن يعرج على الموضوع التفضل بوضع ملاحظاته أو اقتراحاته أو إضافته. والحمد لله رب العالمين أخيراً المثال من وضع السائل في الرابط المذكور أعلاه (مشكوراً مأجوراً إن شاء الله تعالى) Search in Main form and Sub Form Simultaneously Search_MaiForm_SubFormConditionl.accdb Search_MainF=SubFormSetFocus.accdb
  2. السلام عليكم اريد البحث في العمود c بتحقق شرطين وكذلك البحث في العمود d بحسب التاريخ لدي هذا الكود لكن لايعمل لشرطين Sub erad() Dim ib As Boolean Dim tst As Integer, tst1 As Integer, tst2 As Integer Dim LastRow As Long, i As Long, ii As Long Dim SText As String Dim SText1 As String Dim StDate As Double, EndDate As Double With Sheets("واردات") .Range("A4:f1500").ClearContents SText = .Range("F1") SText1 = .Range("E1") If IsDate(.Range("C1")) And IsDate(.Range("C2")) Then StDate = .Range("C1") EndDate = .Range("C2") Else: ib = True End If End With ii = 4 With Sheets("data") LastRow = .Cells(Rows.Count, 4).End(xlUp).Row For i = 4 To LastRow '=============================== If Len(Trim(SText)) = 0 Then tst = 1 Else tst = Abs(CStr(.Cells(i, "c")) = SText) If Len(Trim(SText1)) = 0 Then tst1 = 1 Else tst1 = Abs(CStr(.Cells(i, "C")) = SText1) If ib Then tst2 = 1 Else tst2 = Abs(.Cells(i, "D").Value2 >= StDate) * Abs(.Cells(i, "D").Value2 <= EndDate) '=============================== If tst * tst1 * tst2 Then Sheets("واردات").Cells(ii, "A").Value = .Cells(i, "B").Value Sheets("واردات").Cells(ii, "B").Value = .Cells(i, "D").Value Sheets("واردات").Cells(ii, "C").Value = .Cells(i, "m").Value Sheets("واردات").Cells(ii, "D").Value = .Cells(i, "H").Value Sheets("واردات").Cells(ii, "E").Value = .Cells(i, "K").Value Sheets("واردات").Cells(ii, "F").Value = .Cells(i, "L").Value ii = ii + 1 End If Next End With End Sub
  3. اذا أردت البحث في جملة طويلة فشاهد هذا الدرس من الحلقات البسيطة الممتعة ---------------------------------------------------------------------------------------- اذا عجبك الفيديو اضغط اعجاب واترك تعليق واشترك في القناة وشارك مع أصحابك لأفادة الجميع ------------------------------------------------------------------------------------------------ اذا كان لديك استفسار أو فكرة ولو بسيطة شاركنا بها لنحولها الي واقع في فيديو + مرفق ------------------------------------------------------------------------------------------------ "اللهم علمنا ما ينفعنا وانفعنا بما علمتنا" "اللهم اغفر لأبي وارحمه كما رباني صغيرا"
  4. السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر
  5. لو سمحتوا انا عايز اعمل دالة بحث في الصف الاول من الشيت دا بحيث اني لما اكتب اسم العميل هوا بس اللي يظهر لي تحت بكل بياناته وباقي العملاء يختفو ان لم يكن هناك ملف بالمشاركة ... عذرا سوف تحذف المشاركة بناءا على قوانين وقواعد المنتدى فلا يمكن لأحد اضاعة الوقت فى تصميم الملف لك
  6. السلام عليكم مثال يحتوي نموذج فرعي ورئيسي يوجد في النموذج الرئيسي قائمة منسدلة للبحث عن أسماء الاشخاص المشكلة اذا تكرر نفس الاسم البحث يكون للاسم الأول فقط واغلب الأسماء لا تكتب كاملة كيف يمكن معالجة هذه الحالة؟ او هل هناك طريقة للبحث افضل؟ Example.accdb
  7. السلام عليكم خواتم مباركة نموذج بسيط للترحيل والبحث والتعديل هو طلب لاحدهم جعلته هنا للعموم الفائدة تم تعديل النسخة السابقة بهذه بعد ان حملت 80 مرة المرفق 2010-2003 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع البحث في جميع الاعمدة وطباعة الفورم المرفق 2003-2010 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع زيادة زر حذف سجل المرفق 2003 نموذج بحث وترحيل وتعديل.rar
  8. أرفق اليكم نموذج بحث متعدد النتائج .. به وحدة نمطية بسيطة لتوحديد الأحرف المتشابهة وإزالة المسافات وتجاهل الهمزات والتشكيل ..عسى يجد من ينتفع به.وتجدر الإشارة أن أغلبه من أفكار رواد هذا المنتدى العزيز. أعزكم الله .. تحياتى Officna.rar
  9. waledms

    بحث

    السلام عليكم ورحمة الله وبركاته المرفق سجل به أسماء طلاب المدرسة وبه تكست بوكس يبحث عن اسم طالب ..... المطلوب أن يتم البحث عن طريق كتابه رقم المسلسل وليس الإسم...... أى بمجرد كتابه رقم ما فى التكست بوكس.. يظهر إسم الطالب جزاكم الله خيرا سجل المدرسة.xlsm
  10. السلام عليكم بعد عملية البحث تظهر عدة سجلات . بعد اختيار سجل والدخول اليه هل يمكن العودة الى شاشة النتائج مرة اخرى بدل من البحث من جديد مثلا هنا نتيجة البحث محمود دخلت على السجل الاول . هل ممكن بعد هذا الدخول الرجوع الى الشاشة التي ظهرت فيها السجلين-نتيجة البحث الاول- بارك الله فيكم database1 (1).accdb
  11. السلام عليكم ورحمة الله وبركاتة اسعد الله اوقاتكم بكل خير يارب عندي نموذج بحث بين تاريخين وعرض النتائج بتقرير ولكن اريد ان يكون الناتج للتاريخين ان يكون على ماتم اختياره من القائمة المنسلدلة للاسم ياليت تفيدوني ولكم خالص الشكر اعزائي بحث بين تاريخين بالاسم.accdb
  12. السلام عليكم يوجد لدي مشكلة في عدم اظهار نتيجة البحث في النموذج الثاني بارك الله فيكم database1.accdb
  13. السلام عليكم لن اتكلم كثيرا ولكن يجب ان اذكر التالي: كلمات القاموس الحالية منقول من المنتدى وباستطاعتكم اضافة ما تريدونه من كلمات بالنسخ واللصق في الملف وتغيير مدى النطاق المسمى (البيانات) هنا يتواجد معنا الاستاذ القدير /ابو اسامة العينبوسي في كود تغيير اللغة فكرة الاضافة والتعديل والحذف والاستماع الاستاذ القدير / محمدي عبد السميع فكرة فورم الخروج (منتديات اهلا عرب) تفضلوا _____________.rar
  14. السلام عليكم فورم ادخال و تعديل وبحث باستخدام اسم نطاق للقائمة المنسدلة هو تفس الفورم السابق ولكن تم تغيير طريقة ادخال القائمة المنسدلة لاي عمود في الفورم تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة وايضا تم تجاوز بعض الاخطاء في الفورم السابق شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في الورقة الواحدة او في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" المرفق 2003 [فورم ادخال و تعديل مرن باستخدام اسم نطاق للقائمة.rar الاصدار الثالث: http://www.officena.net/ib/index.php?showtopic=51955
  15. السلام عليكم أعضاء أوفيسنا الكرام أقدم لكم الفيديو السابع من فديوهات شرح أكسيس و يشرح هذا الفيديو طريقة البحث باستخدام شرطين وقتا ممتعا ملف الشرح مرفق أرجو من الإخوة الضغط على السهم الأبيض أعلى الفيديو و عمل مشاركة كما أكرر طلبى المعتاد من الأخ أبى خليل بضم الفيديو إلى الموضوع المثبت كالعادة وفقكم الله كيف تبحث بشرطين فى حقل قاعدة بيانات أكسيس.rar
  16. السلام عليكم و رحمة الله و بركاته عندي بيانات زبائن و اسماءهم تكون باللغة العربية او الانكليزية.. في ال continuous form عملت خاصية انه من تكتب حروف اسم الزبون يصبح بحث على هذا الاسم المشكلة انه لا استطيع البحث باللغة الانكليزية و العربية سوية( الكود اما كله يدعم بحث بالعربي او يدعم بحث بالانكليزي) مثلا كلمة Layla اول حرف L يقابله حرف الميم بالكيبورد,, والكود يفهم فقط اما keycode=76 واللي هو حرف ال L او يفهم فقط كود keycode=227 واللي هو حرف الميم هذا مثال على البيانات سؤالي هو ماهو الكود المناسب لهذه الطريقة للبحث لتغيير اللغتين؟؟؟ ادناه الكود اللي عملته_يرجى ملاحظة الكود باللون الاحمر (ملاحظة : حاليا فقط حرف الميم و الصاد مفعلهم في الكود) وهذا رابط كود الاحرف الباقيةللغة العربية من مايكروسوف https://msdn.microsoft.com/en-us/library/cc195058.aspx: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim ctl As Control Dim fldName As String Dim rst As Recordset On Error GoTo ErrHandler 'MsgBox ("the keycode is " & KeyCode) Select Case KeyCode Case 122 If Shift <> 4 Then KeyCode = 0 End If Case vbKeyEnd KeyCode = 0 DoCmd.RunCommand acCmdRecordsGoToLast Case vbKeyHome KeyCode = 0 DoCmd.RunCommand acCmdRecordsGoToFirst Case vbKeyUp KeyCode = 0 DoCmd.RunCommand acCmdRecordsGoToPrevious Case vbKeyDown KeyCode = 0 DoCmd.RunCommand acCmdRecordsGoToNext Case vbKeyRight, vbKeyLeft Case 48 To 57, 65 To 90, 645 هذا حرف الميمIf KeyCode = 76 Then KeyCode = 227 هذا حرف الصاد If KeyCode = 87 Then KeyCode = 213 Set ctl = Screen.ActiveControl fldName = ctl.Name If fldName <> LastFld Then srchval = "" End If LastFld = fldName srchval = srchval & Chr(KeyCode) KeyCode = 0 If fldName = "Address" Then srchcrit = "[" & fldName & "] Like '*" & srchval & "*'" Else srchcrit = "[" & fldName & "] Like '" & srchval & "*'" End If Set rst = Me.RecordsetClone rst.FindFirst srchcrit If rst.NoMatch Then MsgBox (" Record not found! ") Else Me.Bookmark = rst.Bookmark End If rst.Close Case 107, 187 If srchval = "" Then KeyCode = 0 Exit Sub End If Set ctl = Screen.ActiveControl fldName = ctl.Name KeyCode = 0 Set rst = Me.RecordsetClone rst.Bookmark = Me.Bookmark rst.FindNext srchcrit If rst.NoMatch Then MsgBox (" Record not found! ") Else Me.Bookmark = rst.Bookmark End If rst.Close Case 109, 189 If srchval = "" Then KeyCode = 0 Exit Sub End If Set ctl = Screen.ActiveControl fldName = ctl.Name KeyCode = 0 Set rst = Me.RecordsetClone rst.Bookmark = Me.Bookmark rst.FindPrevious srchcrit If rst.NoMatch Then MsgBox (" Record not found! ") Else Me.Bookmark = rst.Bookmark End If rst.Close Case 27 KeyCode = 0 srchval = "" Case Else KeyCode = 0 End Select Exit Sub ErrHandler: Select Case Err.Number Case 2046 Case Else MsgBox Err.Number & " " & Err.Description End Select Resume Next End Sub
  17. السلام عليكم اساتذتي الكرام ممكن الكود الخاص بأظهار واخفاء نتائج البحث يعني عندا اقوم بالبحث تظهر النتائج بالاسفل واذا لا توجد بيانات تظهر رسالة (لا توجد نتائج) وجزاكم الله الف خير
  18. السلام عليكم ورحمة الله اخواني الاعزاء لو تساعدوني بحاجتين لي اسبوع احول ازبطهم ما زبطت اولا : اريد في نموذج doctor عند كتابة رقم المريض في خانة البحث يجب لي بيانات المريض ويضعها بالفورم ثانيا اريد عند اضافة البيانات الى فورم doctor يقوم بتحديث نفس حقل المريض المدخلة بيانتة بالفورم pharmacy system.rar
  19. مرحبا اريد ان يتم البحث المخصص حسب مربع الاختيار من المكتبة اي اريد البحث فقط في مكتبة اطلس ومكتبة فرات او في مكتبة واحدة مثلا ارسطو او الاسكندرية او في عدة مكتبات او الكل حسب مربع الاختيار اضافة الى متطلبات البحث الموجودة في الفورم سابقا وكما هو موضح في المثال المرفق وشكرا جزيلا Database.rar
  20. إخوتي الفضلاء التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض. حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة . حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق . هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي : · نص البحث يكتب ضمن مربع النص txtSearch · البحث و الفلترة تتم في نفس النموذج و هو نموذج مستمر و ليس من خلال نموذج فرعي او مربع قائمة · البحث سيتم ضمن ثلاثة حقول من الجدول tblCustomer ، وهي CompanyName و City و Address يمكن زيادتها حسب الحاجة و مستلزمات التطبيق · مربعات النص في النموذج التي تظهر محتويات الحقول هي غير منضمة unbound · مصدر عنصر التحكم control source للحقول يثبت لكل مربع نص ضمن قائمة الخيارات مثلا (=[CompanyName]) · مربعات النص الثلاثة يجب ان يكون تنسيق النص فيها text format هو (Rich Text) ، وهذه نقطة مهمة حتى يقبل مربع النص كود تغيير خصائص أجزاء النص من حيث اللون و الخط العريض . · كود البحث و الفلترة يكون خلف حدث on change – عند التغيير لمربع النص txtSearch · البحث و الفلترة يفترض في فكرتنا ان تتم عند كل حرف ، وبعد انتهاء الفلترة يعود مؤشر النص ليكتب نص ( حرف ) الفلترة الجديد ، فيصبح مربع النص يتعامل من حرف واحد فقط ، وبالتالي سنضطر لاستخدام خاصية SelStart لتحدد نقطة البداية للنص أو موضع نقطة الإدراج لنتمكن من كتابة اكثر من حرف . · بعد التطبيق اعترضتني مشكلة عدم قبول مربع النص للمسافة بين الاحرف spacebar ، نتيجة استخدام خاصية SelStart و بالتالي كان لا بد من إجبار مربع النص على قبول المسافة بين الاحرف ، و تم ذلك و الحمد لله باستخدام كود في حدث on Key up . · ضمن الكود تم تحديد خاصيتين للخط و هما اللون الاحمر و الخط العريض وذلك لتمييز مكانها ضمن نتائج البحث و الفلترة . · كل حرف يتم كتابته في مربع النص txtSearch تتم بموجبه و مباشرة فلترة النتائج ضمن مربعات النص الثلاثة و تمييز الحرف باللون الاحمر العريض. · بعد الفلترة يتم تغيير مصدر عنصر التحكم عبر الكود باسناد القيم لمربعات النص الثلاثة في النموذج محملة بكود تغيير خصائص الخط لكل حرف تمت كتابته في مربع النص txtSearch · بالضغط على مربع النص txtSearch يتم افراغ مربع النص مما كتب به سابقا لبداية بحث جديد ، كما تظهر كافة سجلات الجدول في مربعات نص النموذج. راجيا من الله عز و جل ان يكون التطبيق وافيا و محققا لحاجات الاخوة ، و ان يكون فيه النفع لهم في تطبيقاتهم . و الله من وراء القصد ... NA_Highlight_Search_results_while_typing.accdb
  21. ارجو من الاخوان الاكارم مساعدتي في تصميم مربع بحث في النموذج مع العلم اني بحث ولم اصل لنتيجة ووجدت شروحات وامثلة ولم استطع التطبيق في برنامجي ارجو التكرم والاطلاع على المثال المرفق( وفي النموذج AA شرح للمطلوب ) واضافة مربع البحث في المثال المرفق ولكم اجمل تحية وسلام ابو ريماس Database3.rar
  22. السلام عليكم اساتذتي الكرام...لدي قاعدة بيانات لمواد مخزنية ...خطرت في بالي فكرة ان اقوم بتشغيل صفارة انذار عند البحث عن مادة غير متوفرة بالمخزن هل ممكن ذلك... وجزاكم الله خيرا
  23. مساء الخير عليكم جميعا هل يمكن عمل أداه بحث لملف معين اسمه مدروج فى الاكسس بمجرد الضغط على الزار تبدا الاأكسس فى البحث دخل الكمبيوتر فى فولدر معين بذاته على أى معلمومه قريبه أو بعيده مثل هذا ألاسم وشكرا
  24. ارجو المساعدة اريد اعمل بحث من الجدولين لاسم الشركة بحيث تظهر اجمالى المبيعات والمرتجعات لكل شركة فى جدول واحد 1.xls
×
×
  • اضف...

Important Information