18-09-15, 06:15 PM
كود زر (( التالي 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
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