تعديل على كود تنسيق ارقام

[كريمو2]

السلام عليكم اساتذتي الكرام

المطلوب التعديل على كود تنسيق ارقام بهذه الصيغة "C1/2021" بحيث c1 اول مستفيد  و 2021 السنة الحالية

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

وشكرا

Private Sub ok_Click()
       On Error Resume Next
Dim xLast, xNext As Integer
Dim prtyr, prtTxt As Integer
prtyr = DatePart("yyyy", Date)
prtTxt = CLng(Left(DMax("S", "Cridi"), 4))
xLast = CLng(Right(DMax("S", "Cridi", prtTxt = prtyr), 3))
If IsNull(xLast) Then
xNext = 1
Else
xNext = xLast + 1
End If
Me!Loan_ID = "C" & Format(xNext, "0") & "/" & prtyr
Me![Année] = Year(Date)

End Sub

 

[محمد أبوعبدالله]

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

جرب التعديل التالي

        On Error Resume Next
        Dim xLast, xNext As Integer
        Dim prtyr, prtTxt As Integer
        
        prtyr = DatePart("yyyy", Date)
        prtTxt = CLng(Left(DMax("S", "Cridi"), 4))
        xLast = CLng(Right(DMax("S", "Cridi", prtTxt = prtyr), 3))
        
            If IsNull(xLast) Then
                xNext = 1
            Else
                xNext = xLast + 1
            End If
            
        Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr
        Me![Année] = YEAR(Date)

مع مراعاة حقل التاريخ XDate

تحياتي

[كريمو2]

شكرا لك استاذ محمد أبو عبد الله

الكود لم يفي بالغرض المطلوب

حيب عند الضغط على خانة الاختيار  OK لم يظهر شيء

وعند تتبع الكود خطوة بخطوة ظهرت لي ان قيمة

        Me!Loan_ID = DFirst("c1", "[Cridi]", "Right(XDate, 4) =" & Right(Date, 4)) & Format(xNext, "0") & "/" & prtyr

 

 

 تساوي Null

تم تعديل سبتمبر 29, 2021 بواسطه كريمو2