[asto]

باستعمال اداة داتا يمكنك عمل findfirst و findnext

ان كنت مهتما فسوف اضعها لك

---

كود :

Data1.Recordset.OpenRecordset
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif

Data1.Recordset.OpenRecordset
Data1.Recordset.FindNext "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif