[وادي العوضي]

السلام عليكم اساتذتي الافاضل ورحمة الله وبركاته
طلبي منكم اساتذتي الافاضل هو في كتابة كود في زر امر التالي والسابق
لاني لا اعرف زر التالي والسابق من ربط قاعدة البيانات بالكود فقط ارف اذا كانت قاعدة البيانات مربوطة بالاداة ADO
بينما عن طريق الكود البرمجي لم تضبط معي شاكرا تعاونكم معي والله حافظكم وحاميكم

[administrator]

كود زر السابق

كود :

If rs.BOF = False Then
rs.MovePrevious
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اول سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End If

كود التالي

كود :

If rs.EOF = False Then
rs.MoveNext
Text1.Text = rs("ID")
Text2.Text = rs("namee")
Text3.Text = rs("dep")
Text4.Text = rs("sex")
Text5.Text = rs("datee")
Text6.Text = rs("slary")
Else
MsgBox "وصلت الى اخر سجل", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading
End If

[وادي العوضي]

السلام عليكم استاذي الفاضل ورحمة الله وبركاته
بارك الله فيك وفي علمك وجزاء الله خير الجزاء
نعم هذا هو المطلوب الله لايحرمنا من شخصك الكريم يارب