توزيع أرقام على السجلات لكل سنة

[فتى الوادي]

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

لدي جدول t_1 وفيه حقول ( الاسم - الرقم - التاريخ - ملاحظات ) ..... وفيه سجلات كثيرة جداً ...

أريد كود يطبق على كامل السجلات بحيث يتم توزيع أرقام متسلسلة على السجلات بناءً على التاريخ .... ويضع الرقم في حقل الرقم ( txtnum )

مثلاً لدي عشرة سجلات في عام 1425 هـ ... اريد توزيع ارقام على سجلات هذه السنة أبتداءً من أصغر تاريخ وهو 1/1/1425 ويأخذ رقم 1 ... ثم الذي يليه في التاريخ وهكذا ... حتى نهاية سجلات 1425 ... ثم يبدأ السنة التي بعدها ... علماً بأن التاريخ قد يتكرر ....

شاكراً لكم ومقدراً حسن تعاونكم .... غفر الله لي ولكم ...

db2.rar

[Dream_Works]

السلام عليكم

أعتقد إنني أواجه صعوبات في إرفاق الملفات .... دائما تظهر لي هذه الرسالة

فشلت عملية إرفاق الملف , غير مصرح لك بإرفاق هذا النوع من الملفات

أولا أرجو تبديل ال recordsource إلى استعلام عن الجدول كله و مرتب تصاعديا حسب التاريخ

على العموم هذا هو الكود ... أرجو أن تجربه و تبلغني بالنتائج

private sub update_click()
Dim rs As DAO.Recordset
Dim ctr As Integer
Dim previousDate As Date
Set rs = CurrentDb.OpenRecordset(Me.RecordSource)

rs.MoveFirst
previousDate = rs.Fields(3).Value
Do
rs.Edit
ctr = ctr + 1
If Year(previousDate) <> Year(rs.Fields(3)) Then
ctr = 1
previousDate = rs.Fields(3).Value
End If
rs.Fields(2) = ctr
rs.Update
rs.MoveNext
Loop Until rs.EOF
rs.Close
Set rs = Nothing
end sub

أرجو من أي خبير اذا رأي أي تحسينات يمكن اضافتها يبلغني بها ... لأني خبرتي بالأكسيس ليست قوية

تم تعديل سبتمبر 16, 2006 بواسطه Dream_Works

[فتى الوادي]

الكود تمام وشغال .... مع إضافة بسيطة وهو لتحديث النموذج .

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

الله يعطيك العافية ويبارك فيك .

[شاهر]

اخي الكريم Dream_Works

لو تكرمة هل ممكن جعل الترقيم حسب الاسم لاستخدمه في النماذج الفرعيه للموظفين

السجلات التابعه للاسم تكون تسلسليه حسب الاسم اي مثلا

احمد

سجلات النموذج الفرعي التابع للموظف احمد

1 غياب بون عذر

2 اجازاة

3 اجازة مرضيه

ويكون هكذا مع جميع الموظفين

مع خالص شكر وامتناني