مطلوب عمل نموذج للبحث

[jo_2010]

تعلمت منكم الكثير لزلك ارجوكم ان تفيدونى اريد نموزج بحث بمجرد الكتابة ولايكون معة نموزج فرعى اريد نموزج واحد للبحث

[مسفر]

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

ترى انا مو من العمالقة انا قزم  جديد في الاكسس 

تم تعديل مارس 27, 2018 بواسطه مسفر

[REDA.M.A]

مرفق مثال و  شرح فيديو ممكن يفيدك ( منقول )

تحياتى

بحث و استعلام بالاسم وشرح.rar

[محمد التميمي]

تفضل اخي الكريم المرفق فيه ما تبحث عنه

بحث.rar

[طاهر الوليدي]

اخي الكريم  ارسل النموذج باي طريقة تريد

في بحث بواسطة مربع نص

وبحث بوسطة الكومبو

وبحث بوسطة لست بوكس

[jo_2010]

اشكركم على مساعدتى فى نموذج البحث لكن اود ان اتعلم اكثر سامحونى على الاطالة 

اولا تعلمت منكم سابقا عمل نموذج للبحث مع نموذج فرعى وتعلمت ايضا عمل بحث عن طريق الكمبوبوكس

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

 

[sameh 2006]

ممتاز جدا

[أبو آدم]

أخي العزيز

تصورات نماذج البحث لها بداية و ليس لها نهاية

الحاجات تختلف و تتطور و ليس هناك حدود لها الا تحقيق الغاية المحددة لها

اقصر طرق التعلم هو التطبيق ... لماذا لا تحاول ان تطبق ...

ارسل لنا قاعدة تحتوي الجدول هدف البحث و حدد لنا الحقول التي تريد البحث بها

 وسيساهم معك كل الاخوة باذن الله و انا أولهم

سؤالك عام جدا و ليس له حدود للتطبيق الا بضوابط القاعدة التى تعمل عليها .... فساعدنا حتى نساعدك

[jo_2010]

استاذى الفاضل ابو ادم

اشكرك على اهتمامك بالرد على سؤالى ولكن اود اخطار حضرتك بانى عامل

1-نموذج بحث عن طريق فورم رئيسى واخر فرعى

2- تموذج بحث من خلال كمبوبوكس

3- نموذج بحث من خلال نموذج واحد ومربع نص وعند الكتابة والضعط انتر يتم للبحث

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

ولكم خالص الشكر

 

[مسفر]

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

[أبو آدم]

أخي العزيز

أبشر 

جهزت لك مثالا على قاعدة بيانات للعملاء

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

و الله من وراء القصد .......

[أبو آدم]

Option Compare Database
Option Explicit ' >>> By Nart Lebzo For www.officena.net ... 05/04/2018

Private Sub Form_Load()

Me.txtSearch.BackColor = vbYellow
Me.txtSearch.SetFocus

End Sub
Private Sub txtSearch_Change()
    Dim strFilter As String
    Dim sSearch As String
    
    On Error Resume Next

If Me.txtSearch.Text <> "" Then
    
    sSearch = Me.txtSearch.Text
    
    strFilter = "[CompanyName] Like '*" & sSearch & "*'"
    strFilter = strFilter & " OR [ContactName] Like '*" & sSearch & "*'"
    strFilter = strFilter & " OR [City] Like '*" & sSearch & "*'"
    strFilter = strFilter & " OR [Address] Like '*" & sSearch & "*'"
    
    Me.Filter = strFilter
    Me.FilterOn = True
    
    Me.txtCountMatches.Value = DCount("CustomerID", "tblCustomer", strFilter)
    
Else
    Me.Filter = ""
    Me.FilterOn = False
End If

With Me.txtSearch
    .SetFocus
    .SelStart = Len(Me.txtSearch.Text)
End With

End Sub
Private Sub txtSearch_Click()
    Me.txtSearch.SetFocus
    Me.txtSearch.Text = ""
    Me.Requery
With Me.txtSearch
    .SetFocus
End With
End Sub

و الله من وراء القصد .......

أخي العزيز

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

جرب المرفق ، ... فصلته ... تفصيل حسب طلبك ، يفترض ان يكون وافياً بإذن الله

و الله من وراء القصد .... 

NA_FilterWhileTyping.accdb

[النجاشي]

الله يجزيك خير استاذنا@أبو آدم 

ممتاز 

[jo_2010]

استاذى الفاضل ابو ادم

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

اشكرك لانك ارسلت لى نموذج للعمل علية افادنى كثيرا استاذى ومعلمى الجليل الف مليون 

 شكر وتقدير

تلميذك jo

تم تعديل أبريل 7, 2018 بواسطه jo_2010

[أبو آدم]

  حياك الله أخي العزيز ، هذا واجبنا بنقل ما علمنا الله اليكم

لاستخدام الالوان للتنبيهات البصرية للنتائج يمكنك استخدام الكود التالي لتغيير لون النص ( وذلك بعد انتهاء الفلترة ) و اجعله بعد كود إظهار العدد ، لاي مربع نص في النموذج 

    Me.txtCountMatches.Value = DCount("CustomerID", "tblCustomer", strFilter)
    Me.Text5.ForeColor = vbRed

و لتغير لون خلفية النص

Me.Text2.BackColor = vbYellow

ولتغير لون إطار مربع النص

Me.Text5.BorderColor = vbRed

من الالوان المتاحة 

vbBlack
vbRed
vbYellow
vbGreen
vbCyan
vbBlue
vbMagenta
vbWhite

 

[jo_2010]

استاذى الفاضل ابو ادم

كل الحب والاحترام والتقدير على الاهتمام بعضو مبتدئ مثلى

جربت الكود واعطانى لون احمر لكل الصف 

ارجوك ان تحتمل طلباتى الكثيرة لكن لم اجد ما ابحث عنة سوى عندك 

ما اريدة هو 

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

[أبو آدم]

  حياك الله اخي العزيز

كل حاجاتنا قضاؤها باذن الله و ما نحن الا مسخرون

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

و لكنه متاح باذن الله و ساعمل عليه

و الله من وراء القصد

[أبو آدم]

https://www.officena.net/ib/topic/83261-البحث-و-الفلترة-عند-الكتابة-ضمن-نموذج-مستمر-و-تمييز-نتائج-البحث-باللون-أو-خصائص-الخط-مثل-الخط-العريض/

[رمهان]

عزيزي

انصح بالحث دائما قبل طرح موضوع وهنا شبيه لما تريد وتقبل تحياتي

 

[jo_2010]

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

[jo_2010]

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

https://www.officena.net/ib/topic/83261-البحث-و-الفلترة-عند-الكتابة-ضمن-نموذج-مستمر-و-تمييز-نتائج-البحث-باللون-أو-خصائص-الخط-مثل-الخط-العريض/