تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الترقيم التلقائي
#1
Rainbow 
الاخوة جميعاً
عندي ملف اكسس وفيه  خمسين موظف وبترقيم تلقائي مرتب من 1-50  ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


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


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

اذا اردت تسلسل رقمي انظر هذا الموقع الخاص بالاكسس
https://www.599cd.com/tips/access/140703-row-number
الرد }}}
تم الشكر بواسطة:
#3
(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 موجود كيف ؟ هل وضحت الفكره .
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#4
الحل الوحيد بحذف عامود الترقيم التلقائي و اعاد وضعه من جديد او استخدام الدالة التالية و لكن نوع العامود رقمي فقط .

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 
الرد }}}
تم الشكر بواسطة: محمد مسافر



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم