منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : الترقيم التلقائي
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الاخوة جميعاً
عندي ملف اكسس وفيه  خمسين موظف وبترقيم تلقائي مرتب من 1-50  ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود
(20-02-20, 08:49 AM)محمد مسافر كتب : [ -> ]الاخوة جميعاً
عندي ملف اكسس وفيه  خمسين موظف وبترقيم تلقائي مرتب من 1-50  ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود


ما المشكله في ذلك

اذا اردت تسلسل رقمي انظر هذا الموقع الخاص بالاكسس
https://www.599cd.com/tips/access/140703-row-number
(20-02-20, 11:40 AM)alsalamoni كتب : [ -> ]
(20-02-20, 08:49 AM)محمد مسافر كتب : [ -> ]الاخوة جميعاً
عندي ملف اكسس وفيه  خمسين موظف وبترقيم تلقائي مرتب من 1-50  ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود


ما المشكله في ذلك

اذا اردت تسلسل رقمي انظر هذا الموقع الخاص بالاكسس
https://www.599cd.com/tips/access/140703-row-number

اريد ان يكون الترقيم تلقائي بمعنى حذفت صف 5 مثلاً ايحذف الرقم 5 من قائمه الترقيم   اريد اعيد الترقيم من جديد يرجع بشكل تسلسلي صحيح والرقم 5 موجود كيف ؟ هل وضحت الفكره .
الحل الوحيد بحذف عامود الترقيم التلقائي و اعاد وضعه من جديد او استخدام الدالة التالية و لكن نوع العامود رقمي فقط .

PHP كود :
Dim StrSQL as string "select * from Data1 where ID = " Text1.Text
 Dim cn 
As New SqlConnection("Server =(local);database=TestDB;integrated security=true")
 
Dim da As New SqlDataAdapter(StrSQLcn)
 
Dim dt As New DataTable
 da
.Fill(dt)
If 
DT.Rows.Count 0 Then
   Dim i 
As Integer 0
   Dim x 
As Integer 0
   
For 0 To DT.Rows.Count 1
       x 
+= 1
       DT
.Rows(i)("ID") = x
   Next
   DT
.AcceptChanges()
 
  da.Update(DT)
End If