توزيع أرقام على السجلات حسب التاريخ ...

تحتاج إلى إنشاء فورم يستمد بياناته من هذا الجدول

أضف Command Button للترتيب

فيحدث عند النقر لهذا Command Button أضف الكود التالي

Dim Rs As Database

Dim X, Rct, I As Integer

Set Rs = Me.RecordsetClone

With Rs

.MoveLast

.MoveFirst

Rct = Rs.RecordCount

X = 1

For I = 0 To Rct - 1

.Edit

.ÇáÑÞã = X

X = X + 1

Next I

جزاك الله خيراً مقدماً ....

اقتباس

.ÇáÑÞã = X

لم يفهم هذه العبارة ؟؟!؟!؟؟!

وهل يحتاج إلى مرجع ؟!

هذا المثال مرفق ....

db2.rar

في البداية ألتمس كل العذر فيما وقع من أخطاء في مشاركتي

ولك التعديل آملا الدعاء

db2.rar

الله يغفر لك ولوالديك .

السلام عليكم ورحمة الله وبركاته - صباح الخير ...

أطلعت على تعديلك ... لكن أردت أن يكون الترتيب كل سنة لها ترتيب يبدأ من 1 وينتهي حيث تنهي سجلاتها ...

ثم السنة التي بعدها تبدأ من رقم 1 وتنهي حيث تنهي سجلاتها ... وهكذا .

رمضان مبارك على الجميع

أخي فتى الوادي

وأنا أراجع اليوم مشاركاتي في المنتدي , اطلعت على ردك الجميل , وأعجبني دعاؤك جعله الله في ميزان حسناتك , فعملت على تعديل المثال ليغي بالعغرض المطلوب أرجو أن أكون قد وفقت فاطلع على التعديل وأرجو الإفادة

db2.rar