تقييم الموضوع :
  • 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 
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر




الرد
تم الشكر بواسطة: محمد مسافر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح عمل مايكرو او مفتاح يقوم بتصحيح المسلسل فى حقل الترقيم التلقائى بدون اكواد hanymajdy 0 252 18-04-20, 10:24 PM
آخر رد: hanymajdy
  الإكمال التلقائي فى التيكست بوكس Mido9 0 1,143 10-12-12, 10:49 PM
آخر رد: Mido9

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


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