كيف ابحث في القائمة في برنامجي المرفق حسب خيار ات البحث ؟؟

الاخ الكريم تفضل الكود :

Private Sub Command1_Click()
If Text1.Text = "" Then Exit Sub
If Trim(Text1.Text) = "" Then Exit Sub
If Option1.Value = True Then
rs.FindFirst "Athen1= '" & Text1.Text & "'"
If rs.EOF Then
MsgBox "لم يتم العثور على الاسم المماثل", vbExclamation + vbMsgBoxRight, "البحث"
Exit Sub
End If
List1.Clear
List1.AddItem rs.Fields!Athen1
End If
If Option2.Value = True Then
rs.Filter = "[Athen1]" & "Like '" & Text1.Text & "*'"
If rs.RecordCount = 0 Then
MsgBox "لم يتم العثور على الاسم المماثل", vbExclamation + vbMsgBoxRight, "البحث"
Exit Sub
End If
List1.Clear
Do While Not rs.EOF
List1.AddItem rs.Fields!Athen1
rs.MoveNext
Loop
End If
End Sub

ومثالك بعد التعديل بالمرفقات

وفقق الله

soft111_Edit.rar

استاذي الكريم

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

احب ان اقدم لكم جزيل الشكر والتقدير الى سعادتكم على تقديم الدعم الفني

والله يحفظكم ويرعاكم

ولكم مني فائق الاحترام

بســم الله الـرحمــن الرحيــم

مشكور وجزاك الله خير :wink: