كيف نضيف ترقيم في النماذج المستمرة؟

[عبدالعزيز محمد]

هل من الممكن إضافة ترقيم-للعرض فقط- للسجلات في النماذج المستمرة بعد إنشائها وأصبح في النموذج المستمر  عشرات السجلات ؟

مع العلم بأن النموذج المستمر يعتمد على استعلام 

أي أن الترقيم يأتي بعد اعداد وإدخال السجلات الكثيرة في النموذج المستمر

وجزاكم الله كل الخير 

بحث في المنتدى عن ذلك ولم أجد شيء 

[Moosak]

كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم

شرح الكود:
يوضع في موديول منفصل ..
ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form])

الكود: 

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    'Purpose:   Numbering the rows on a form.
    'Usage:     Text box with ControlSource of:  =RowNum([Form])
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

طريقة الاستدعاء (الاستخدام):

=RowNum([Form])

 

[عبدالعزيز محمد]

جزاك الله كل خير وبارك فيك

هذا هو المطلوب

[jjafferr]

وعليكم السلام 🙂

 

ومشاركة مع اخي موسى 🙂

 

وتجد اكثر من طريقة هنا 

 

[عبدالعزيز محمد]

شكرا أخي جعفر على مرورك 

دائما تكون مشاركتك ذات قيمة ومفيدة 

[عبدالعزيز محمد]

وهل يمكننا أن نضع الترقيم في استعلام كما في النماذج المستمرة 

 

تم تعديل أغسطس 7, 2023 بواسطه عبدالعزيز محمد

[ابوخليل]

امامك اربع طرق للترقيم داخل الاستعلام

myoutonum: (Select Count(1) FROM tbl1 A
WHERE A.Code1 <=tbl1.Code1)  ' sql

myoutonum: DCount("ID";"tbl1";"ID <='" & [ID] & "'") ' نصي

myoutonum: DCount("ID";"tbl1";"ID <=" & [ID]) '  رقمي

myoutonum: DCount("ID";"tbl1";"ID <=#" & [ID] & "#") ' تاريخ

 

[عبدالعزيز محمد]

هل من الممكن توضيح أكثر خاصة للسطرين الأولين أين مكانهما 

وحبذا مثال لكل نوع لأانني جربت تلك الطرق ولم أصل لنتيجة

ومشكور على المرور على المشاركة

[ابوخليل]

بارك الله فيك :

صاحب الحاجة هو من يضع المثال

ضع مثالك في موضوع وعنوان جديد .. لان هذا الموضوع يتكلم عن الترقيم في النموذج