الترقيم التلقائي في حقل غير منضم في نموذج

[Hamdi Edlbi-khalf]

السلام عليكم

متابعة لموضوع الأستاذ @احمد الفلاحجي

أضع بين أيديكم هذه الوحدة النمطية لترقيم النموذج في حقل غير منضم، وتعتمد الدالة AbsolutePosition

'Aspen201173@yahoo.com
' نقلاً عن الأستاذ أزهر  2013

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

ويتم استدعاء الدالة بجعل مصدر الحقل الغير منضم

=RowNum([Form])

الشكر للأستاذ الغائب  AZHAR الذي نقلت عنه  هذا الكود

AUTONUM.accdb

 

[أبوبسمله]

جزاك الله خيرا اخى خلف @Khalf انت والاستاذ ازهر وجميع اخواننا واساتذتنا الذين تعمنا ونتعلمن منهم كل يوم

وازيدك بمثال لاختنا الغاليه زهره جزاها الله خيرا

وتم استدعاء الوحده النمطيه بمصدر عنصر التحكم لحقل الترقيم

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

ترقيم تلقائى بدون مصدر تحكم.rar

[Hamdi Edlbi-khalf]

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