تعديل على كود بحث

[moho58]

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

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

مع عدم تغيير الأكواد   (الإبقاء عليها كما هي )  و الموجودة في نموذج frm_evaluationAdd      

 

الرجاء المساعدة والتوجيه وبارك الله فيكم

BASEL.accdb

[ابوخليل]

عليكم السلام

هل هذه حزورة ؟؟

كيف تريد التعديل على الكود .. مع عدم التغيير ؟

اذا انت تقصد الابقاء على استخدام Me.Filter في التصفية .. يمكن السؤال يكون على النحو التالي :

اريد تصفية البيانات بناء على الاختيار من مربعي التحرير  باستخدام Me.Filter

[moho58]

1 ساعه مضت, ابوخليل said:

عليكم السلام

هل هذه حزورة ؟؟

كيف تريد التعديل على الكود .. مع عدم التغيير ؟

اذا انت تقصد الابقاء على استخدام Me.Filter في التصفية .. يمكن السؤال يكون على النحو التالي :

اريد تصفية البيانات بناء على الاختيار من مربعي التحرير  باستخدام Me.Filter

أهلا استاذنا 

أنا اقصد التعديل فقط على كود البحث الموجود في الزر المسمى -فلترة-

وفي النموذج توجد أكواد عديدة لعمليات اخرى .

لا اريد التعديل عليها والابقاء عليها كما هي 

حتى تشتغل بدون مشاكل.

وبارك الله فيك 

[ابوخليل]

مشكلتك من الذي تحذر منه

كود الفترة شغال 100%

مشكلتك في الكود عند تحميل النموذج

BASEL2.rar

[moho58]

تحية طيبة أستاذنا @ابوخليل

و شكرا كثيرا على المتابعة

  (لقد أضفت حقل  في النموذج  للتجربة أكثر فقط)

أستاذنا بعد التجربة اتضح مايلي:

عند الضغط على زر حفظ  لحفظ البيانات تظهر الرسالة الموضحة في الصورة المرفقة

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

 

وبارك الله فيك

 

BASEL3.accdb

[Foksh]

تم طرح نفس المشكلة تقريباً في موضوع قديم هنا :-

 

 

وللأسف كانت فكرتك مبنية على أنك لا تريد أن يتم الغاء التنشيط أو الرول باك .. صحيح !!

[moho58]

11 دقائق مضت, Foksh said:

تم طرح نفس المشكلة تقريباً في موضوع قديم هنا :-

 

 

وللأسف كانت فكرتك مبنية على أنك لا تريد أن يتم الغاء التنشيط أو الرول باك .. صحيح !!

تحية طيبة أستاذنا @Foksh

ما شاء الله عليك - معك حق نعم نفس السؤال ونفس الطرح

هذه الأكواد أستعملها في حالة النماذج المستمرة في حالة الحفظ إو إلغاء الحفظ (وهو تقريبا) يقوم بنفس عمل excel

واستعمله مثلا في حالة حجز علامات الطلاب  وتقييم الموظفين....

وقد حصلت عليه بناء على طلب سابق لي  هنا . من استاذنا @Moosak  وفيه تعديل بسيط لأستاذنا @ابوخليل  -بناءا على طلبي -

بما أنني وظفت هذا الكود كثيرا - أريد أن أقوم بعملية التعديل على كود البحث فقط- دون المساس بباقي الأكواد - إن أمكن طبعا- حتى لايتأثر المبدأ العام.

 

[ابوخليل]

اخي 

عند تحميل النموذج يتم حجز السجلات المصدر .. وليس كل عملية بحث تتنفذ

مثل الفلتر ومثل المعايير في الاستعلام

لذا يجب ان تبحث عن طرق اخرى للبحث وهي كثيرة

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

  Dim rst As Recordset
    Dim strSearchName As String

    Set rst = Me.RecordsetClone
    strSearchName = tx1
    rst.FindFirst "nomarabe = '" & strSearchName & "'"
        If rst.NoMatch Then
            MsgBox "Record not found"
        Else
            Me.Bookmark = rst.Bookmark
        End If
    rst.Close

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

BASEL4.rar

[moho58]

تحية طيبة أستاذنا @ابوخليل  

معذرة على التأخر في الرد

بعد تجربة الكود شغال و يؤدي المطلوب - طريقة جيدة-

ربما أنا فقط تعودت كثيرا على استعمال الفلترة بواسطة هذا الكود الجميل لأستاذنا @Foksh

في هذا الموضوع أفهم من كلامك أستاذنا  أن الفلترة غير ممكنة (إظهار سجل المعني بالبحث لوحده)

جزاك الله كل الخير أستاذنا  @ابوخليل وجعلها في ميزان حساناتك

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

 

كما اشكر كثيرا كذلك أستاذنا @Foksh

 

و ربي يبارك في هذا المنتدى الجميل