معالجة الخطأ في البحث

مساء الخير منتظر الرد المطلوب واضح

بالرغم من أنك لم تقم بإضافة الوحدة النمطية التي تحتوي على الدالة ()ReStr وهي الدالة التي لايعمل نموذج البحث بدونها, وبالرغم من أنني لا أعرف -بالضبط- كيف يكتسب مربع النص المسمى Ts قيمته, فإن الخلل المذكور في الموضوع أعلاه ستجده في هذه الأسطر:

If Me.Ts = 2 Then
Me.txtSearch = Left$(txtSearch, Len(txtSearch.Text) - 1) & " " & Right$(Text2, 1)
Me.Ts = 0
End If
VarSearch = txtSearch.Text & "*"

راجع الكود السابق جيداً, وخاصة السطر الثاني.

أخى الكريم

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

لذلك يظهر عندك هذا الخطأ

احذف الاكواد الخاصة بمربع البحث ما عدا كود (عند التغيير )

لكن لاحظ

ان عملية البحث لن تتم لان الفلتر يجب ان يكون على النموذج الفرعى و ليس النموذج الرئيسى

Abo_Yossof كتب:

أخى الكريم

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

لذلك يظهر عندك هذا الخطأ

احذف الاكواد الخاصة بمربع البحث ما عدا كود (عند التغيير )

لكن لاحظ

ان عملية البحث لن تتم لان الفلتر يجب ان يكون على النموذج الفرعى و ليس النموذج الرئيسى

Database-sep.rar

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

لكم الشكر والتقدير لقد توصلت لحل المشلكة فقط غيرت في خصائص الحقل