[abde6726]

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

[Taha Okla]

أنا عندي في المؤسسة أكثر من 100 موظف 
وكل موظف معاه بطاقة فيها رقمه الوظيفي.
فإذا حصل واستقال الموظف رقم 36  

هل من المنطقي أرجع أجمع الموظفين 
وأعطيهم بطاقات جديدة بأرقام مختلفة عن السابق؟؟
؟؟ !!

[abde6726]

شكرا جزيلا 
و لكن انا في غنا عن البطاقات اريد الترتيب فقط حتى يتسنى لي الاضافة بكل راحة

[Taha Okla]

هذا مش منطقي، ولكن :
استبدل الكود عندك بالكود التالي :

كود :

Private Sub cmdDelete_Click()
   If rs.State = 1 Then rs.Close
   SQL = "Delete * from Tabel2 where Num =" & Text9.Text & ""
       rs.Open SQL, db, adOpenKeyset, adLockOptimistic
   MsgBox " تمت عملية الحذف بنجاح", vbInformation
   Call ClearAll
   '--------------------------------
   If rs.State = 1 Then rs.Close
   Dim strSQL As String
   strSQL = "Select * from Tabel2 Order By Num"
   rs.Open strSQL, db, adOpenDynamic, adLockOptimistic
   rs.MoveFirst
   Dim i As Integer: i = 1
   Do While Not rs.EOF
       rs!Num = i
       rs.Update
       rs.MoveNext
       i = i + 1
   Loop
   '--------------------------------
   Call Form_Load
End Sub

[abde6726]

(12-12-23, 01:48 PM)Taha Okla كتب : هذا مش منطقي، ولكن :
استبدل الكود عندك بالكود التالي :

كود :

Private Sub cmdDelete_Click()
   If rs.State = 1 Then rs.Close
   SQL = "Delete * from Tabel2 where Num =" & Text9.Text & ""
       rs.Open SQL, db, adOpenKeyset, adLockOptimistic
   MsgBox " تمت عملية الحذف بنجاح", vbInformation
   Call ClearAll
   '--------------------------------
   If rs.State = 1 Then rs.Close
   Dim strSQL As String
   strSQL = "Select * from Tabel2 Order By Num"
   rs.Open strSQL, db, adOpenDynamic, adLockOptimistic
   rs.MoveFirst
   Dim i As Integer: i = 1
   Do While Not rs.EOF
       rs!Num = i
       rs.Update
       rs.MoveNext
       i = i + 1
   Loop
   '--------------------------------
   Call Form_Load
End Sub

---

جزاكم الله كل الخير
هذا ما كنت اريده................. شكرا مرة اخرى