[حلا ابوحامضة]

(12-05-16, 09:16 PM)سعود كتب : الجواب مبني على الاستفسار التالي:
لماذا تستخدم الترقيم؟
هل لشيء جوهري ام ظاهري؟
ان كان لشيء جوهري فلا يهمك عدم تسلسل الارقام حال الحذف فهو هنا لحفظ بيانات الاشخاص .
اما لو اردته كظاهر فقط فيمكنك استخدام اكواد الضغط والاصلاح واعادة الترقيم بالكود.
ارفع مثال بسيط(بسيط) للتعديل عليه [مع حذف كافة الملفات التنفيذية قبل الرفع]

بالحقيقة يهمني ان اعرف الطريقة التي يمكنني بها تعديل عمود ببيانات مختلفة و لا سيما الأرقام .. و الأمر جوهري و يهمني ان تكون الأرقام بدون قطع .. إن كان يمكن المساعدة . ... و أنا أشكرك على جميع الأحول للإهتمام

---

(12-05-16, 09:16 PM)سعود كتب : الجواب مبني على الاستفسار التالي:
لماذا تستخدم الترقيم؟
هل لشيء جوهري ام ظاهري؟
ان كان لشيء جوهري فلا يهمك عدم تسلسل الارقام حال الحذف فهو هنا لحفظ بيانات الاشخاص .
اما لو اردته كظاهر فقط فيمكنك استخدام اكواد الضغط والاصلاح واعادة الترقيم بالكود.
ارفع مثال بسيط(بسيط) للتعديل عليه [مع حذف كافة الملفات التنفيذية قبل الرفع]

هذا الكود كنت استخدمه في فيجول6 و لكنه لم يعد يصلح في فيجول نت :

Dim i 
i = 0
Set DB = Nothing
DB.Provider = "Microsoft.JET.OLEDB.4.0;"
DB.Open DBName$
Set Rs = Nothing
Rs.Open "select * from Tab_ar order by id ", DB, adOpenStatic, adLockPessimistic
If Rs.BOF = False And Rs.EOF = False Then
    Do Until Rs.EOF
        i = i + 1
        Rs!mob = i
        Rs!ID = i
        Rs.Update
        Rs.MoveNext
    Loop
End If
Rs.Close
Set Rs = Nothing
Lwait.Caption = ""
MsgBox "تمت عملية التعديل بنجاح .."