استخدم الدالة التالية اكتب مصدر الحقل المراد الترقيم فيه كما يلي =RowNum([Forms]![Data]) حيث data هو اسم النموذج ضع الدالة التالية في موديول جديد 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([Forms]![theNameoftheForm]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exi