ترقيم السجلات في النموذج ...

عزيزي لقد اضفت الكود لكن لم يعمل معي بشكل جيد يعطيني الخطأ بعدELSE

يمكن ماعرفت اكتبه بطريقة جيده مع انني لسم الحقل واسم الجدول تاكد منها

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

فهل منطريقة لو تكرمت لاني ابحث على هذا الكود

بالنسبة للكود يوضع كما قلت في حدث قبل الأدراج للنموذج .

لنفترض أن لدينا جدول ( DEF ) وفيه الحقول التالية : name+tel+ABC

وأنشانا عليه نموذج ...

نأتي لخصائص النموذج ونضع الكود في أجراء حدث قبل الأدراج ..

IF DCOUNT("[ABC]","[DEF]") = 0 THEN

ME![ABC]=1

ELSE

ME![ABC]=DLAST("[ABC]","[DEF]")+1

END IF

آمل أن يكون الشرح واضح ..

لا بد أن تقوم بتغيير اسم الحقل ABC واسم الجدول DEF بالاسماء التي لديك ..

السلام عليكم ...

لقد وجدت الحل في الكود الذي وضعه الأخ أبو حمود أثابه الله وهو

Dim db As Database

Dim rst As Recordset

Dim num As Long

Set db = Application.CurrentDb

Set rst = db.OpenRecordset("TABL1", dbOpenTable)

num = 1

Do Until rst.EOF

rst.Edit

rst![TXTNUM] = num

rst.Update

num = num + 1

rst.MoveNext

Loop

****

مع ملاحظة أن TXTNUM =حقل الرقم وهو ليس ترقيم عادي

وأن TABL1 = اسم الجدول

يوضع الحدث في حدث عن الفتح للنموذج

وشكراً لأبو حمود وشكراً للجميع .