امکان سرچ (جستجو) در یک لیست باکس

[zzzzzza]

سلام.
دوستان یک سئوال داشتم آیا امکان سرچ در یک لیست باکس وجود دارد
یک فایل نمونه گذاشته ام لطفا راهنمائی کنید

[dadsara]

سلام
دوست عزیز اگر قبلا در این خصوص صحبت شده بود و به نتیجه نیز رسیده بود

[amirzazadeh]

سلام.
دوستان یک سئوال داشتم آیا امکان سرچ در یک لیست باکس وجود دارد
یک فایل نمونه گذاشته ام لطفا راهنمائی کنید
سلام
از اين كد هم در يك دكمه استفاده كنيد:

Private Sub Command2_Click()
Dim strSearch As String
Dim i As Long
Dim iContinueSearch As Integer

strSearch = InputBox("Enter Search String")
strSearch = "*" & strSearch & "*"

With Me.List0
If .ListCount > 0 Then
.Selected(0) = True
For i = 0 To .ListCount - 1
If .Column(0, i) Like strSearch Then
.Selected(i) = True
iContinueSearch = MsgBox("Do you want to continue searching?", vbQuestion + vbYesNo)
If iContinueSearch = vbNo Then
Exit For
End If
End If
Next i
End If
End With
End Subنمونه خودتون رو ببينيد (در InputBox شماره مورد نظر رو وارد كرده و نتيجيه رو ببينيد).
...................................
موفق باشيد

[zzzzzza]

خیلی ممنون همین را میخواستم مرسی :تشویق:
می توانی کاری کنی که اگر چیزی که جستجو کردیم در لیست وجود نداشت پیام بده

[amirzazadeh]

خیلی ممنون همین را میخواستم مرسی :تشویق:
می توانی کاری کنی که اگر چیزی که جستجو کردیم در لیست وجود نداشت پیام بده
نمونه رو اصلاح كردم ببينيد به دردتون ميخوره.

.........................
موفق باشيد

[Honestvip]

سلام
بنده این فایل آخری رو دیدم

فقط یک سوال چطوری میشه با دابل کلیک روی رکورد مورد نظر تو لیست باکس اطلاعات مربوط به اون تو یه فرم دیگه باز بشه برای ویرایش؟