تقل وبطء شديد جدا فى عمل بحث عن اسم

[حمدى الظابط]

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

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

مثال عند كتابة اسم ولى الامر فى Text1 الموجود داخل نموذج frm_search3

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

وشكرا لكم

المصروفات.rar

[عبدالله كاظم]

لاحظت انك بتستخدم دالة (GoodPartOfName) 6 مرات حق كل سجل في الاستعلام (استعلام1) حق تستخلص اسم ولي الأمر واتوقع هذا اللي بيعمل البطئ

عملت function في module1 اسمها getFaterFukkName

Function getFaterFukkName(sFullName As String) As String
    Dim newData As Long
    Dim stNameLong
    
    stNameLong = Len(sFullName)
    newData = Len(sFullName) - InStr(1, sFullName, " ")
    
    getFaterFukkName = Right(sFullName, newData)
End Function

واستبدلتها باللي كانت موجودة في مسبقا في الاستعلام

عملت نسخة من النموذج (frm_search3) وسميتها (frmSearchTest) ، حق احافظ على شغلك

في النموذج الجديد شوي خففت الزحمة

في حدث On Change حطيت الكود التالي :

Me.SubSearchMe.Requery

 

وان شاء الله يكون هذا هو الحل حق البطئ

المصروفات2.zip

[حمدى الظابط]

الاستاذ عبد الله كاظم
شكرا لك هذا هو المطلوب وشكرا على الشرح الذى استفد منه كثيرا لك تحياتى مع فائق احترامى وتقديرى