• 0
خربوط

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

سؤال

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

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

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

4 إجابة على هذا السؤال .

  • 0

اخي الفاضل

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

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

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

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

تم تعديل بواسطه zahrah
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .