[asto]

عندي كود افضل لكن عليك تحديد العدد الأقصى للنتائج

و لفعل ذلك اعمل تكست بوكس جديد ليكن تكست 3 مثلا

كود :

Data1.Recordset.FindFirst "[word]='" & Trim$(Text3.Text) & "'"
If Not Data1.Recordset.NoMatch Then
نفذ اذا تم الايجاد
endif
for s=0 to العدد الأقصى -2
Data1.Recordset.FindNext "[word]='" & Trim$(Text3.Text) & "'"
If Not Data1.Recordset.NoMatch Then
نفذ اذا تم الايجاد
endif
next s

حيث word هو اسم العمود في الجدول المستخدم في قاعدة البيانات (يعني بدلها باسم العمود لديك)