اذهب الي المحتوي
أوفيسنا

اعادة ترقيم التسلسل


hh88

الردود الموصى بها

4 hours ago, jjafferr said:

وعليكم السلام:smile:

 

قد يفيدك هذا الرابط

 

جعفر

أعتقد اني وصلت سوالي بطريقة غير صحيحة

المقصود ان يتم تصفير مسلسل السجلات من جديد لانه وصل عندي ارقام عشوائية

كما هو بالصورة

 

اعتذر :smile: ياستاذي الكريم

 

Untitled.png

رابط هذا التعليق
شارك

1. ابدأ بعتاب ، المادة رقم 2:smile:

 

2. تأكد انك لم تختار الارقام العشوائية من اعدادات الحقل في الجدول ، فالصورة تعطيك الاعداد الصحيح:

00.z_0040.jpg.44a11b13d6566619ab83bb5096b3c767.jpg

 

3. هذه الارقام غير عشوائية ، وانما انت لم تعمل فرز بهذا الحقل ، فاعمل الفرز ، واعمل رقمين التاليين ، وستلاحظ انها ليست عشوائية:smile:

 

اما اذا كانت هناك مجموعة كبيرة من الارقام غير موجودة ، والرقم التالي يكون كبير ، فاحذف الرقم الكبير ، واعمل كما قال أخونا ابو عبدالله اعلاه:smile:

 

جعفر

رابط هذا التعليق
شارك

32 دقائق مضت, hh88 said:

أعتقد اني وصلت سوالي بطريقة غير صحيحة

المقصود ان يتم تصفير مسلسل السجلات من جديد لانه وصل عندي ارقام عشوائية

ما رأیک ان ترفق نسخة مصغرة من قاعدة بياناتك وسنعمل المطلوب عليه

  • Like 1
رابط هذا التعليق
شارك

21 hours ago, Shivan Rekany said:

ما رأیک ان ترفق نسخة مصغرة من قاعدة بياناتك وسنعمل المطلوب عليه

مع التحية اخي شفان

مرفق قاعدة البيانات

اعتذر عن التاخير

والف شكر :fff:

تصفير الارقام التسلسلية.rar

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

الطريقة الصحيحة للبرمجة:

1. حقل الرقم التلقائي ، هو فهرسة لسرعة جلب بيانات الجدول للبرنامج ، يعني هذا الحقل يجب ان لا يعتمد عليه المبرمج وانما هو للبرنامج (نعم تستطيع استعماله متى ما شئت بالوضع الذي هو عليه) ،

2. حقل التسلسل ، وهو الحقل الذي يعمله البرنامج حسب حاجته:smile:

 

فالآن انت خلطت بين الاثنين:blink:

والحل ان تترك هذا الحقل مثل ماهو ، ولا تهتم بارقامه ، واعمل حقل جديد تعتمد عليه لبرنامجك:smile:

 

جعفر

  • Like 1
رابط هذا التعليق
شارك

اتفضل اليك هذا 

On Error Resume Next
Me.RecordSource = ""
Me.البحث_العام.SourceObject = ""
Dim sql As String
Dim sql1 As String
'sql = "ALTER TABLE السجل ALTER COLUMN التسلسل COUNTER PRIMARY KEY" ' تحديد حقل کمفتاح اساسي
'sql = "ALTER TABLE السجل  ADD id INT  AUTO_INCREMENT;" ' اضافة حقل نمبر
sql = "ALTER TABLE السجل DROP COLUMN التسلسل"
sql1 = "Alter TABLE السجل ADD التسلسل AUTOINCREMENT(1)"
DoCmd.RunSQL (sql)
DoCmd.RunSQL (sql1)
Me.RecordSource = "السجل"
Me.البحث_العام.SourceObject = "البحث العام"

سيحذف الحقل التسلسلي
ويعمل حقل جديد بارقام جديدة

تصفير الارقام التسلسلية.rar

  • Like 2
رابط هذا التعليق
شارك

2 hours ago, Shivan Rekany said:

اتفضل اليك هذا 


On Error Resume Next
Me.RecordSource = ""
Me.البحث_العام.SourceObject = ""
Dim sql As String
Dim sql1 As String
'sql = "ALTER TABLE السجل ALTER COLUMN التسلسل COUNTER PRIMARY KEY" ' تحديد حقل کمفتاح اساسي
'sql = "ALTER TABLE السجل  ADD id INT  AUTO_INCREMENT;" ' اضافة حقل نمبر
sql = "ALTER TABLE السجل DROP COLUMN التسلسل"
sql1 = "Alter TABLE السجل ADD التسلسل AUTOINCREMENT(1)"
DoCmd.RunSQL (sql)
DoCmd.RunSQL (sql1)
Me.RecordSource = "السجل"
Me.البحث_العام.SourceObject = "البحث العام"

سيحذف الحقل التسلسلي
ويعمل حقل جديد بارقام جديدة

تصفير الارقام التسلسلية.rar

الف مليون شكر اخي شفان

سأقوم بتجربت الكود

:fff:الله يجعله في ميزان حسناتك 

تقبل خالص تحياتي 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information