[asto]

[HTML]On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text7.Text = Data1.Recordset.RecordCount
zzr = Text7.Text - 1
zzra = zzr
For v = 0 To zzra
vv = v + 1
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (v)
Text15.Text = Data1.Recordset.Fields!word
Text16.Text = Data1.Recordset.Fields!mean
Text17.Text = Data1.Recordset.Fields!no
If Text1.Text = Text15.Text Then
Text2.Visible = True
Text2.Text = Text16.Text
Label2.Caption = Text16.Text
Command5.Visible = True
Command6.Visible = True
End If[/HTML]

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

فاذا وجده تظهر النتيجة في تكست 2 مثلا