عندى List1 , text1
اذا كان الاسم الموجود فى text1 موجود مسبقا فى List1 يعطى رسالة
عندى List1 , Text1
تفضل
Me.List1 = Me.Text1 If Me.List1.ListIndex <> -1 Then MsgBox "Text In line No : " & Me.List1.ListIndex + 1, vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation
كن كالنخيل عن الأحقاد مرتفعا .. يرمى بصخر فيرمى أطيب الثمر
For i = 0 To List1.Listcount - 1
If List1.List(i) = Text1.Text Then
Msgbox "Any thing"
Exit For
End If
Next