[ تمت الإجابة ]كيف يتم تطبيق هذه دالة الترقيم لكل سجل م

لا إجابة حتى ألان

:mellow:

اخي الفاضل

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

يوجد مع الأمثله السابقه الخاصة بك التي تم الإجابة عليها في موضوع الترقيم التلقائي لكل سجل ( شهر ) وحده نمطية يجب عليك استيرادها الى اي برنامج تقوم بعمله ثم تقوم بإستدعاءها بواسطة الكود الذي قمت بوضعه في مشاركتك .

والوحدة النمطية هي :

Function RcNum(frm As Form, fldName As String, mID As Variant) As Variant
On Error Resume Next
Dim RstClone As Recordset
Dim Fld As Field
Dim I As Long
RcNum = Null
If IsNull(mID) Then Exit Function
Set RstClone = frm.RecordsetClone
If RstClone.RecordCount = 0 Then Exit Function
Set Fld = RstClone.Fields(fldName)
With RstClone
.MoveFirst
Do Until .EOF
I = I + 1
If Fld = mID Then Exit Do
.MoveNext
Loop
End With
RstClone.Close
RcNum = I
End Function

جزاك الله خيرا أختي أم عهود

الآن فهمت ليش ماهي راضي تزبط معي اعادة الترقيم

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

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة