لوسمحتوا ممكن أكواد فيجوال بيسك ضروري

الاكواد

كود الاضافة :

Data1.Recordset.AddNew

كود الحفظ :

Data1.Recordset.Update

كود البحث :

Dim y As String

y = InputBox("من فضلك أدخل الاسم")

y = "'" & y & "'"

Data1.Recordset.FindLast "TELL =" & y

If Data1.Recordset.NoMatch Then

MsgBox "هذا الاسم غير موجود"

End If

هنا TELLهوا اسم الحقل المراد البحث فية

اما اكواد التنقل

كود السجل الاول :

Data1.Recordset.MoveFirst

كود السجل الاخير :

Data1.Recordset.MoveLast

كود التالى :

Data1.Recordset.MoveNext

كود السابق

Data1.Recordset.MovePrevious

بالتوفيق

أعتقد أن الكود اللي وضعلك اياة الاخ عبدو يفي بالغرض

ولا انت شو رأيك؟

شكرا اجرب الاكواد واذا ما ظبطت لي عودة >.......

ما قصرت ....

أسف اخوانى ولكن عندى خطأ فى كود البحث

Data1.Recordset.FindLast "TELL =" & y

FindLast

If Data1.Recordset.NoMatch Then

NoMatch

هنا الخطأ أرجو التوضيح وشكرا لكم اخوتى