كيف يتم فلترة محتوى الكومبوبوكس اثناء الكتابة

[abouzak]

السلام عليكم ورحمة الله وبركاته

كيف يتم فلترة محتوى الكومبوبوكس اثناء الكتابة

الملف مرفق
وشكرا

 

test2.rar

[أبو آدم]

هل تقصد بالفلترة - فلترة مصدر المعلومات و الابقاء على المطابق فقط

اذا كان كذلك ... هل يمكن توضيح الغاية 

اذا سمحت

شكرا

[abouzak]

نعم اريد فلترة محتوى الكومبو والإبقاء  على المطابق

وشكرا على سرعة الاجابة

[أبو آدم]

هل يمكن توضيح الغاية  اذا سمحت

شكرا

[abouzak]

السلام عليكم اخي ابو آدم

عندي فورم يحتوي على معلومات المريض

هذا المريض يكون عنده صورة شعاعية او اكثر " انا وضعت 4 صور كحد اقصى"

يتم اختيار الصورة من كومبوبوكس وعندي 4 كومبوبوكس

ما اريد برمجته هو:

ان يكون اول كومبو ظاهر والثلاثة الباقية مخفية

 وعند الوصول الى اول كومبو وبدئ البحث عن اول صورة مطلوبة يتم فلترة محتوى الكومبو اى فلترة الصور ولا يظهر من الكومبو الا الصور التي تحتوي على الاحرف المكتوبة

ويتم الاختيار مما تبقى من الصور بعد الفلترة

واذا كان المطلوب من المريض اكثر من صورة

يتم الضغط على زر + فيظهر الكومبو الثاني ونقوم باختيار صورة اخرى كما في الكومبو الاول

وهكذا بما يخص الكومبو الثالث والرابع

كما انه لفتني اخر موضوع قمتم بطرحه :

"البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض"

حبذا لو تكون الفلترة في الكومبو : تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض

عذرا على الاطالة في الشرح وشكرا جزيلا لكم

الملف مرقف

ComboFilter.rar

[أبو آدم]

أخي العزيز

حاليا لا يخطر ببالي روتين أو كود لفلترة مربع التحرير بذاته ، و قد لا يكون متاحاً بهذه الصورة

و لكنني حسب تحليل المرفق و طلبك

أقترح عليك تحويل مربعات التحرير في النموذج الى مربعات نص

اضافة مربع تحرير و سرد بمصدر معلوماته ، و ليكن اسمه Images و خلف حدث ( بعد التحديث ... AfterUpdate ) ، ضع الكود التالي :

Private Sub Images_AfterUpdate()
If IsNull(Me.Image1) Then
Me.Image1.SetFocus
Me.Image1.Text = Me.Images.Column(0)
End If

If Not IsNull(Me.Image1) And IsNull(Me.Image2) Then
Me.Image2.SetFocus
Me.Image2.Text = Me.Images.Column(0)
End If

If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And IsNull(Me.Image3) Then
Me.Image3.SetFocus
Me.Image3.Text = Me.Images.Column(0)
End If

If Not IsNull(Me.Image1) And Not IsNull(Me.Image2) And Not IsNull(Me.Image3) And IsNull(Me.Image4) Then
Me.Image4.SetFocus
Me.Image4.Text = Me.Images.Column(0)
End If

End Sub

حيث يفحص مربع النص Image1  فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و الا ينتقل لمربع النص Image2  فان كان خاليا يقوم باضافة القيمة المختارة اليه ، و هكذا

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

حاليا .... مجرد اقتراح

شكرا

[abouzak]

شكرا جزيلا

ساحاول فعل ما تفضلت به