مشكلة بطئ في نموذج البحث

[mahmoudlabana]

السلام عليكم ورحمة الله تعالى وبركاته اخواني و اخواتي 

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

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

 

adv find test.rar

[REDA.M.A]

وعليكم السلام

البحث شغال 100 فى 100 و بسرعه عالي جدا - تحياتى

 

[mahmoudlabana]

هو فعلا شغال 100 100 بس الجدول كل الي فيه مكملوش 100 اسم و لو حملت لحد 5الاف اسم شغال كويس انا بقا حاطط 100000 اسم 100 الف اسم فالجدول ف خانة البحث بتكتب الاسم  ببطئ عشان البيانات كترت يا ريت حل يسرع عملية الكتابة او البحث في النموذج مع كمية البيانات الكتيرة في الجدول

تم تعديل نوفمبر 6, 2019 بواسطه mahmoudlabana

[ابوخليل]

الحدث الذي اعتمدته هو : عند التغيير

وهذا الحدث غير عملي مع وجود بيانات كثيرة لانه عند كتابة الحرف يبدأ بالبحث والفلترة ولن تتمكن من كتابة الحرف الثاني الا بعد انتهاء البحث

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

   ايضا يمكنك انشاء زر بحث تضع الكود داخله

 

[mahmoudlabana]

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

[ابو ياسين المشولي]

5 ساعات مضت, mahmoudlabana said:

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

اخي نفس الكود احذفه من حدث عند التغير وخليه في حدث بعد الحدث

If Nz(CusName.Text, "") = "" Then
    CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind;"
       Me.CustomerFind_subform.Requery
Else
'    CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind WHERE CusName Like'*" & Me.CusName.Text & "*';"
'    Dim vSearchString As String
'    Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind1;"
'    vSearchString = Me.txtSearch.Text
'    Me.CusName1.Value = vSearchString
'    Me.CustomerFind_subform.Requery
'
''    Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind1;"
''   Me.CustomerFind_subform.Requery
    Me.CustomerFind_subform.Form.RecordSource = "SELECT * FROM CustomerFind WHERE CusName Like '*" & PartOfName(Me.CusName.Text, 1) & "*" & PartOfName(Me.CusName.Text, 2) & "*" & PartOfName(Me.CusName.Text, 3) & "*" & PartOfName(Me.CusName.Text, 4) & "*" & PartOfName(Me.CusName.Text, 5) & "*" & PartOfName(Me.CusName.Text, 6) & "*'" _
    & " Or CusNum Like '*" & Me.CusName.Text & "*'" _
    & " or custel Like '*" & Me.CusName.Text & "*'" _
    & " or cusmob Like '*" & Me.CusName.Text & "*'" _
    & " or cuscity Like '*" & Me.CusName.Text & "*';"
End If

 

adv find test.rar

[mahmoudlabana]

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

[النجاشي]

وعليم السلام 

بعد اذن اساتذتي

ممكن تجربه الكود

لاننا جربته علي 250 الف سجل لحظته لاباس فيه

تحياتي

AdvFind.mdb