مشكلة الترقيم في نموذج اكسس 2007

[kahaled]

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

في هذا المنتدى الرائع هناك الكثير من الامثلة عن كيفية الترقيم في نماذج الاكسس لا الاصدرات قبل 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

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

[ابوخليل]

هل جربت هذا ؟

Private Sub Form_Current()

Me.ID.Value = CurrentRecord

End Sub

أو هذا ؟

=DMax("id";"table1")+1

يوضع في القيمة الافتراضية للحقل