+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : كود امر NEXT او القيد التالي (/showthread.php?tid=13273)
كود امر NEXT او القيد التالي - starwarr2005 - 18-09-15
كود زر (( التالي NEXT)) في الفجول بيسك 6
On Error Resume Next
rs.MoveNext
If rs.EOF = True Then .:. شرط اختبار اذا وصلنا الى نهاية الملف ونعطي تالي يجب ان يتوقف عند اخر قيد ويظهر رسالة اننا .:.
"انت في نهاية الملف"
rs.MoveLast اذا اعطيى تالي ونحن في القيد الاخير يجب ان يتوقف عند اخر قيد بالجدول
Exit Sub
End If
Text1.Text = rs!sno هنا عملية استدعاء القيود من الجدول لعرضها في الفورم من خلال التيكست
Text2.Text = rs!Name