ترقيم عدد من السجلات يبدأ من رقم محدد

[حسين العربى]

السلام عليكم ورحمة الله وبركاته  اخواني اعضاء ومشرفي المنتدي الكرام  

طلبي انشاء الله يكون بسيط  حتي لا اسقل عليكم 

عندي جدول به مثلا 100 سجل وعند حقل _ID  لكل سجل اريد اعطاء الحقول هذه تسلسل يبدأ من رقم انا احدده مثلا 100  واضغط علي زر امر اواستعلام  ويتم عمل تسلسل

وشكر لكم 

333.accdb

[Moosak]

وعليكم السلام ورحمة الله وبركاته أخي حسين 🙂 

تفضل الحل :

وهذا أمر الترقيم ( في حال لم تضع الرقم ، سيبدأ تلقائيا من الرقم 1 ) :

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim x As Double

x = Nz(StartNumTxt.Value, 1)

   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("tabol_1")  ' بين القوسين اسم الجدول/ الاستعلام أو جملة السيكول
    rst.MoveLast
   rst.MoveFirst
   Do Until rst.EOF
         rst.Edit
         rst!id_1 = x
         rst.Update
      rst.MoveNext
      x = x + 1
   Loop
Me.Requery

rst.Close
Set dbs = Nothing
Set rst = Nothing

 

ترقيم تلقائي يبدأ من رقم محدد.rar

تم تعديل ديسمبر 18, 2022 بواسطه Moosak

[حسين العربى]

اعجز عن الشكر استاذي ومعلمي الفاضل Moosak جزاك الله خيرا