تعديل المرفق ليتم البحث في جميع حقول النموذج الفرعي

[محمد القدسي]

السلام عليكم

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

ليبحث في جميع الحقول في النموذج الفرعي frmSearch_Sub

ولم جزيل الشكر 

Search&Sort.rar

[محمد القدسي]

up

up

[محمد القدسي]

up

up

[محمد القدسي]

up

[محمد سلطان النبهاني]

ارسل لي الكود 

برجعة لك

انت من فين من قدس

 

[محمد القدسي]

اخي محمد الكود موجود في المرفق

وانا قدسي نبهاني كمان

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[محمد القدسي]

up

[husamwahab]

السلام عليكم استاذ محمد القدسي

تفضل هذه المحاولة ارجو ان تكون موفقة

 

Search&Sort-2.rar

[محمد القدسي]

وعليكم السلام استاذي @husamwahab على تجاوبك

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

[husamwahab]

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

 

Search&Sort-3.rar

[محمد القدسي]

ظهر هذا الخطأ الذي باللون الاحمر

         strFilter = strFilter & " or " & FieldName & " Like '" & SearchText & "'"
       Next i
         Set Cntl = Me.Controls(Me.CmbSubforms).Form.Controls(Me.CmbFields.ItemData(1))
          FieldName = "[" & Cntl.ControlSource & "]"
          Rst.Filter = FieldName & " Like '" & SearchText & "'" & strFilter
          Set Rst = Rst.OpenRecordset
 

[husamwahab]

البرنامج شغال عندي بصورة جيدة واختبرت النتائج وكانت صحيح

وهذه صورة للنتائج

وان شاء الله نجد الحل عند اساتذتنا الاعزاء

 

[محمد القدسي]

عندي بمجرد الضغط على اي زر كيبور تظهر هذه الرسالة

[اشرف]

البرنامج يعمل معي بشكل رائع ولا وجود لمشاكل

[محمد القدسي]

غريب انا بمجرد اضغط مفتاح كيبورد يظهر الخطأ

[محمد القدسي]

up

[husamwahab]

استاذ محمد القدسي

يجب ان تحدد النموذج الفرعي المراد عمل الفرز عليه

[محمد القدسي]

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

انظر الصورة

عفوا هذه للنموذج الفرعي

[محمد القدسي]

up