السلام عليكم ورحمة الله وبركاتة
عملة برنامج صغير كعينة وهو مرفق مع الموضوع
المشكلة هي ان البرنامج يرفض التنقل بين السجلات بذات في السابق و التالي اما الاول و الاخر فهية تعمل بصورة جيدة وايضأً التالي يعمل لمرة واحدة فقط او انة يعود الى الاول ثم ينتقل الى السجل الثاني فقط فارجو من الله ثم منكم ممن لدية الحل ارشادي إلية وجزة الله وإياكم الف خير :) :) :)
AFALQI@HOTMAIL.COM
أخي الحبيب :
هذا حل سريع لمشكلتك , طبعا أنا تعاملت مع قاعدة بيانات Northwind ... أرجو أن ينال إعجابك
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
شكراً جزيلاً اخي الكريم على المساعدة السريعة
لكن مانجحت الفكرة اعتقد ان تكرار الامر ماهو حل للمشكلة حتى انها ما مشت في قاعدة البيانات المرفقة test و ما نجحت بفعالية في Northwind
أخي الكريم :
الكود شغال عندي تمام , و فكرته هو أن نخزن رقم السجل الذي نقف عليه في متغير رقمي ,و في حالة التقدم للأمام نقوم بعمل لووب حتى نصل للرقم المخزن في المتغير و نقوم من خلالها ( اللووب) بالتقدم سجل للأمام , و بذلك نصل للسجل المطلوب ثم نقوم بإضافة 1 إلى قيمة المتغير و إن رجعنا للوراء نقوم بنفس العملية لكن بالعكس و طبعا ننقص 1 من قيمة المتغير ...
طبعا أنا نسيت إضافة الكود الخاص بتغيير قيمة المتغير في حالة الـ MoveLast و الـ MoveFirst , و هي طبعا سهلة .. في حالة الـ MoveLast نكتب الكود التالي :
RS.Open "select count(*) from Customers", Cn, adOpenKeyset, adLockPessimistic currunt_rec = RS(0) RS.Close
أما في حالة الـ MoveFirst فنجعل قيمة المتغير = 1
التعديل مرفق في الملف ...
____________________________________________________________________________
{ اقْتَرَبَ لِلنَّاسِ حِسَابُهُمْ وَهُمْ فِي غَفْلَةٍ مَّعْرِضُونَ } سورة الأنبياء (1)
____________________________________________________________________________
In a world without walls and fences, who needs Windows and Gates
هذا الموضوع مغلق.