السلام عليكم ورحمة الله
في الحقيقة أريد رأيكم في هدا الكود
اقتباسPrivate Sub List1_Click()
Text1.Text = List1.Text
List1.Visible = False
End Sub
Private Sub Text1_Change()
List1.Clear
n = Len(Text1.Text)
prd.MoveFirst
Do While Not prd.EOF
If Left(Text1.Text, n) = Left(prd!designation, n) Then
List1.Visible = True
List1.AddItem prd!adress
End If
prd.MoveNext
Loop
List1.Height = List1.ListCount * 200
End Sub
ربما لاأحتاج لشرحه , كما أريد أيضا الكود الدي يبقي selection على النص المنقور عليه, وشكرا على تعاونكم.