موضوعي جدبد قديم الا وهو الترقيم في نموذج اكسس
في هذا المنتدى الرائع هناك الكثير من الامثلة عن كيفية الترقيم في نماذج الاكسس لا الاصدرات قبل 2007
حاولت ان اطبقها على 2007 لكن هناك مشاكل اولا الا كسس يرفض اضافة Dao3.6 وبعد البحث اتضح انها مضمنة في اكسس 2007
مالعمل انا استخدم الكود القديم المتمثل في
Function RcNum(frm As Form, fldName As String, mID As Variant) As Variant
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
لكن الخطأ يكون في السطر (( Set RstClone = frm.RecordsetClone))
مع عبارة Type mismatch
هل من حل جزاكم الله خير