[sendbad100]

اولا :- قم باستبدال السطر التالي 

كود :

RS.Open "Select * From USERS Order By [المجموع] ASC", DB, adOpenStatic, adLockPessimistic

 بالاتي 

كود :

RS.Open "Select * From USERS Order By [المجموع] DESC ", DB, adOpenStatic, adLockPessimistic

ثانياً :-  عدل الحقل   المجموع  الى رقمي  نوع  مزدوج   في قاعدة البيانات 
وانشاء الله    تمام

[amgad525]

كود :

SQL: SELECT * FROM table ORDER BY colTotal DESC


Dim myOrder As Integer
Dim myTotal As Integer


myOrder = 1
myTotal = Rows(0) Field(colTotal)

               
Rows(0) Field(colOrder)  = 1


For i = 1 To Rows.Count - 1

   If Rows(i) Field(colTotal) <> myTotal Then myOrder = myOrder + 1

   myTotal = Rows(i) Field(colTotal)

   Rows(i) Field(colOrder) = myOrder

Next

[عمور2016]

معليش عزوز تم تعديل شي بسيط انظر مره اخر حمل تم تعديل الملف السابق

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

إلهي لا يحرمنا منك أخي الحبيب الغالي SENDBAD100

لا أعرف كيف أشكرك .. ربنا يبارك فيك و في أعمالك و يرزقك من حيث لا تحتسب

قمّة التميّز و الابداع .. و بصراحة ما جاء منك الآن أعتبره تحفة علميّة .. تبارك الله باسم الله ما شاء الله عليك

بهذا الوقت المتأخر من الليل ليس لي سوى الدعاء لك لله أن يرزقك خير الدنيا و آخرتها يارب

هذا هو المطلوب بتمامه و كماله و الكمال لله

الشّكر و الدعاء الطيّب موصول لأخي عمور2016 على مساهماته الحسنة واجتهاده
تحية مني للأخ AMGAD525 على المساهمة الفعالة

خالص محبّتي في الله لكم جميعا

[sendbad100]

وعليكم السلام ورحمة الله وبركاته

الحمد لله رب العالمين

تستاهل كل خير اخي الغالي وجميع الاخوة الكرام

[عبد العزيز البسكري]