بحث عن قيمة في الليست بوكس

[نايف - م]

أخوتي

عندي  يوسرفورم فيه :

1- ليست بوكس فيه عدة أعمدة

2- تكست بوكس

3 - زر أمر

البيانات في الليست بوكس كثيرة

هل يمكن البحث ضمن الليست بوكس بحثا عن قيمة أحددها في التكست بوكس

بحيث يتم الأنتقال لهذا السطر الذي يحتوي القيمة المبحوث عنها

بحثت في المنتدى عن مشاركات بهذا الخصوص فلم أجد

شكرا

[ibn_egypt]

اخى الفاضل

 

الموضوع بسيط وبدون اى زر أمر .. شاهد المرفق

 

تحياتي  

SelectRow-ListBox.rar

[نايف - م]

تمام يا أخي الكريم

لكن المطلوب و بما أن عدد الأعمدة كثير - البحث عن قيمة بعمود آخر و ليكن عمود الأسم  ليس الرقم

[نايف - م]

أخي الكريم :

يبدو أني غلبتك بطلباتي

المهم

حصلت على أجابة من موقع أجنبي و كان الكود فاعل :

s = TextBox7.Text

If TextBox7.Text = "" Then 'nothing typed
    Exit Sub
End If

For i = 0 To ListBox1.ListCount - 1
    'use the LIKE operator to compare
    'convert both to Uppercase as well so case does not matter

    'set the Selected(i) property for each row in the list

    ListBox1.Selected(i)=(UCase(ListBox1.List(i, 0)) Like UCase(s) & "*")
    flg = flg Or ListBox1.Selected(i)
Next i
If Not flg Then MsgBox "Not in the list"

لكن بقيت خطوة إن أمكن حلها

الكود في حال وجود أكثر من نتيجة يختار آخر نتيجة

أنا أريد عند الضغط مرة أخرى على الزر أن ينتقل للنتيجة التالية و هكذا

شكرا

[ياسر خليل أبو البراء]

ممكن ترفق الملف الذي تعمل أخي الفاضل

حيث لاحطت أن الموضوع بدون ملف مرفق ..

[نايف - م]

أخي الكريم

طلبي لا يمكن تضمينه في ملف لكن شرحته بالتقصيل

شكرا

[ياسر خليل أبو البراء]

AS YOU LIKE