في بعض الاحيان يتطلب الامر ان يكون التسلسل الرقمي غير عادي أو علي خلاف التسلسل الرقمي المعروف فإذا كان الحقل فريدا فلا يقبل التكرار وبالتالي لابد من تمييز هذا الرقم بطريقة معينة بحرف مثلا ولكن هذة الطريقة تمكنك من بدء التسلسل الرقمي من الرقم 1 مع بداية كل سنة جديدة والمثال المرفق يوضح كيفية عمل ذلك فكل ما عليك هو تفحص الحقول الموضوعة علي النموذج
ثم تتبع قيمة كل حقل " مصدر عنصر التحكم لكل حقل " من الحقول
ثم في حقل الاسم في حدث بعد التحديت أكتب الكود التالي
Private Sub الاسم_AfterUpdate()
Me![السنة] = f
Me![r] = Me![sh] + 1
Me![q] = x & "/" & Format(r, "00")
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ولاخفاء الحقول المستخدمة عند فتح النموذج في حدث عند الفتح أكتب الكود
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec f = DatePart("yyyy", d) ' عند فتح النموذجf قيمة الحقل
x = Right(f, 2) ' عند فتح النموذجx قيمة الحقل
f.Visible = False
x.Visible = False
sh.Visible = False
r.Visible = False
d.Visible = False
L.Visible = False
End Sub
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
dcount() لتحديد قيمة مصدر عنصر التحكم إستخدمنا الدالة d الحقل =DCount("";"serial by year";"[السنة]=f")
والمثال المرفق يوضح ذلك رقم مسلسل لكل سنة.rar