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

[خربوط 0]

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

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

الأخت زهرة عملت إعادة ترقيم لكل سجل رئيسي

حاولت تطبيق المثال الموجود في برامج متعددة لكن للأسف ما عرفت وين السر موجود

=RcNum([Form];"ID";[iD])

[خربوط 0]

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

:mellow:

[zahrah 4,298]

اخي الفاضل

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

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

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

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

تم تعديل 1 Nov 2008 بواسطه zahrah

[خربوط 0]

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

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

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

[zahrah 4,298]

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

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

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