ترقيم آلي حسب النوع وترقيم حسب السنة والشهر _ معدل

[abouzak]

هل توجد طريقة لترقيم يتجدد كل سنة وكل شهر؟

[ابوخليل]

يعني الاثنين جميعا في ترقيم واحد ؟؟؟؟

هذا الكود الأول 

'لو اردت خانة الرقم تصبح 4 اصفار طبق التعليقات التي امام الاسطر
Dim xLast, xNext As Integer
Dim i, t, tt, x As Integer
t = Format(Date, "yy")
tt = Format(DMax("PatientID", "tblPatients"), "yy")
i = Format(Me.p_Date, "mmyy")
xLast = Right(DMax("PatientID", "tblPatients", tt = t), 3)       ' يصبح الرقم 4 بدلا من 3
If IsNull(xLast) Then
xNext = 1
Else
xNext = xLast + 1
End If
Me.PatientID = i & "/" & Format(xNext, "000")             'وهنا تزود صفر على الثلاث اصفار

غير "yy" الى "mmyy" في الموضعين ليصبح الكود هكذا

Private Sub p_Date_AfterUpdate()
Dim xLast, xNext As Integer
Dim i, t, tt, x As Integer
t = Format(Date, "mmyy")
tt = Format(DMax("PatientID", "tblPatients"), "mmyy")
i = Format(Me.p_Date, "mmyy")
xLast = Right(DMax("PatientID", "tblPatients", tt = t), 3)
If IsNull(xLast) Then
xNext = 1
Else
xNext = xLast + 1
End If
Me.PatientID = i & "/" & Format(xNext, "000")
End Sub

 

[abouzak]

السلام عليكم

شكرا شكرا جزيلا

هذا بالضبط ما كنت بحاجة اليه 

ولكن واجهتني مشكلة الرقم التسلسلي يبقى كما هو و لا يزيد1 في السجل الجديد

تم تعديل فبراير 24, 2023 بواسطه abouzak