بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
ahmed252011
-
Posts
3 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه ahmed252011
-
-
lبارك الله فيكم
-
ما الخطأ في هذه الدالة لعمل ترقيم تلقائي داخل تقرير
Public Function rownom(rep As Report) As Variant
On Error GoTo Err_rownom
'Purpose: Numbering the rows on a report.
'Usage: Text box with ControlSource of: =rownom([reports]![theNameofthereport])With rep.RecordsetClone
.Bookmark = rep.Bookmark
rownom = .AbsolutePosition + 1
End WithExit_rownom:
Exit FunctionErr_rownom:
If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row.
Debug.Print "rownom() error " & Err.Number & " - " & Err.Description
End If
rownom = Null
Resume Exit_rownom
End Function
(تمت الاجابة) إدراج رقم السجل في النموذج -- تسلسل السجل
في قسم الأكسيس Access
قام بنشر
ممتاز