منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - المساعدة في زر امر التالي والسابق

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

كود زر السابق

كود :

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

وادي العوضي

administrator

وادي العوضي