الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في فلترة المعلومات

مغلق
بدأه kwitown في 28 ديسمبر 2002 · 7 رد · 768 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اخواني الكرام

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

ولنفرض ان بالحقل المعلومات التالية (( احمد-ناصر-عماد))ثم ادخلت بالخطاء اسم ((احمر))

اريد ان اعمل نموذج يحتوي على ازرار وكل زر يعمل فلترة على معلومة معينة

مثل:

الزر رقم 1 يعمل فلترة لإي اسم ((احمد))

الزر رقم 2عمل فلترة لإي اسم ((ناصر))

الزر رقم 3عمل فلترة لإي اسم (( عماد))

الزر رقم 4عمل فلترة لإي اسم ((لايشمل الاسماء المذكورة اعلاة))

ويرتبط هذا النموذج والازرار بماكرو وذلك لعمل الفلترةارجو ان يكون سئوالي واضحا

ولكم تقدير واحترامي

#2

يمكنك استعمال '*الاسم المطلوب*'

#3

اخ a_beshari

اشكرك على تواصلك ولكن قصدي من السؤال هو انني نسيت كتابة الاسم بالشكل الصحيح عندما يكون التركيز على مربع السرد والتحرير ولااعرف الاسم الذي كتبتة هل هو ((احمد)) او ((احمر)) او ((احمم)) .... الخ

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

ارجو ان تكون الفكرة واضحة

واكرر شكري وتقديري

#4

لعل هذا يفيدك

search.zip

وما نيل المطالب بالتمني

ولكن تؤخذ الدنيا غلابا

#5

اخي الهيثم اشكر على الملف الذي ارسلتة

ان اقصد ان يفلتر جميع المعلومات التى غير موجودة في

قائمة الحقول او بمعنى اصح اظهار الاسماء التى ادخلتها بالخطاء

#6

لماذا لا تجعل الخاصية Limit To List=True ومن ثم لن تستطيع ادخال قيمة مخالفة لما هو موجود في القائمة

احمد

#7

أخي الكريم

السلام عليكم

ما جعلنى أتأخر في الرد هو أنني لم أفهم السؤال جيدا

الآن أعتقد أنني فهمت من السؤال ما يشجعنى على أن أجيب حسب فهمي

هناك خاصية كما تعلم لمربعات التحرير والسرد هي " عند عدم الوجود في القائمة " أي NotInList ومن المتغيرات التي يمكن استخدامها داخل هذا الحدث المتغير NewData أي القيمة التي تم إدخالها والمتغير Response الذي يحدد طبيعة الاستجابة في حالة عدم وجود القيمة المدخلة في القائمة

يمكنك استخدام هاتين الخاصيتين لتخزين القيم المدخلة غير الموجودة في القائمة عن طريق استعلام إلحاق داخل جدول ومن ثم يمكنك الرجوع إليها

المثال التالي يوضح جزءاً مما يمكن القيام به حيث يسألك عند إضافة قيمة غير موجودة في القائمة إن كنت ترغب في إضافتها إلى الجدول tbl1 أم لا

بالطبع يمكنك إجراء أي تغييرات في الكود ليتناسب مع حاجتك

Dim strsql As String, x As Integer

x = MsgBox("هل ترغب في إضافة القيمة الجديدة إلى الجدول ؟", vbYesNo)

If x = vbYes Then

    strsql = "Insert Into tbl1 ([fld1]) values ('" & NewData & "')"

   

 CurrentDb.Execute strsql, dbFailOnError

    Response = acDataErrAdded

Else

    Response = acDataErrContinue

End If

آمل أن يكون هذا ما تريده ولك تحياتي

أخوك / أبو هاجر

#8

(f)اخواني الاعزاء اشكركم على هذا التجاوب

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

ولتوضيح المشكلة ارسل لكم المثال

واشكركم على حسن تجاوبكم

kwitown32.zip

هذا الموضوع مغلق.

مواضيع مشابهة