الاخوه الاعزاء اصدقاء المنتدى
هناك كود لاحد الاخوة صديق المنتدى مفرج
Private Function valp()
Dim REC As Recordset
Dim DB As Database
Set DB = CurrentDb()
Set REC = DB.OpenRecordset("اسم الجدول")
REC.AddNew
REC!per_id = 0
REC.Update
End Function[/code2
وقد عدله الاخ العزيز بوحمود بالكود التالى لكى يعيد الترتيب مع اضافة الارقام الناقصة بعد الحذف وظهور مقياس للتقدم بالكود التالي
Dim عدد_السجلات, I
Dim القيمة_المعادة
Dim VarReturn As Variant, str As String
عدد_السجلات = DMax("[م]", "ss")
str = "تقدم عملية الإضافة ....."
VarReturn = SysCmd(acSysCmdInitMeter, str, عدد_السجلات)
Dim REC As Recordset
Dim DB As Database
Set DB = CurrentDb()
Set REC = DB.OpenRecordset("ss")
For I = 1 To عدد_السجلات
القيمة_المعادة = DLookup("[م]", "ss", "[م]=" & I)
If IsNull(القيمة_المعادة) Then
REC.AddNew
REC![م] = I
REC.Update
End If
VarReturn = SysCmd(acSysCmdUpdateMeter, I)
Next I
VarReturn = SysCmd(acSysCmdRemoveMeter)
REC.Close
DB.Close
ولقد نصحنا الاخ بو حمود لاستخدام DAO 3.6
وفعلاً اضفتها ولكن الكود لم يعمل معى واظهر رسالة "13"RUN-TIME ERROR
TYPE MISMATCH
فاين الخلل : على الرغم من ان كل حقول الجدول خاصية مطلوب هى (لا)
وللجميع تحياتى