+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170)
+--- الموضوع : [سؤال] الترقيم التلقائي (/showthread.php?tid=33468)
الترقيم التلقائي - محمد مسافر - 20-02-20
الاخوة جميعاً
عندي ملف اكسس وفيه خمسين موظف وبترقيم تلقائي مرتب من 1-50 ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود
RE: الترقيم التلقائي - alsalamoni - 20-02-20
(20-02-20, 08:49 AM)محمد مسافر كتب : الاخوة جميعاً
عندي ملف اكسس وفيه خمسين موظف وبترقيم تلقائي مرتب من 1-50 ولكن المشكله عندما احذف صف فيه اسم الموظف الترقيم ينقص هل ممكن اعاده ترقيم تلقائي عند حذف اي من الصفوف التي تحتوى اسم الموظف .
موضح لكم مثال فيه صوره للمقصود
ما المشكله في ذلك
اذا اردت تسلسل رقمي انظر هذا الموقع الخاص بالاكسس
https://www.599cd.com/tips/access/140703-row-number
RE: الترقيم التلقائي - محمد مسافر - 20-02-20
(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 موجود كيف ؟ هل وضحت الفكره .
RE: الترقيم التلقائي - asemshahen5 - 20-02-20
الحل الوحيد بحذف عامود الترقيم التلقائي و اعاد وضعه من جديد او استخدام الدالة التالية و لكن نوع العامود رقمي فقط .
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(StrSQL, cn)
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 i = 0 To DT.Rows.Count - 1
x += 1
DT.Rows(i)("ID") = x
Next
DT.AcceptChanges()
da.Update(DT)
End If