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

[سلمان الشهراني]

اسعدالله اوقاتك الجميع

هل من طريقة لاجبار حقل ترقيم تلقائي ان يبداء من رقم معين مثل ان يبداء من رقم 100 طبعا غير الطريقه العاديه وهي كتابة الحقول حتى الى ان يصل الى رقم 100 ثم المسح


وشاكر للجميع

تم تعديل أغسطس 2, 2017 بواسطه سلمان الشهراني

[Shivan Rekany]

6 ساعات مضت, سلمان الشهراني said:

هل من طريقة لاجبار حقل ترقيم تلقائي ان يبداء من رقم معين مثل ان يبداء من رقم 100 طبعا غير الطريقه العاديه وهي كتابة الحقول حتى الى ان يصل الى رقم 100 ثم المسح

نعم هناك طريقة

مثلا نريد ان يبدأ من رقم 100

سنستخدم هذا الكود 

=NZ(Dmax("[ID]","Tbl1"),99)+1

هذا الكود سيعطيك اكبر رقم من حقل اي دي في جدول تبل 1 واذا ما وجد اي رقم اي اذا ليس يكون هناك رقم في ذلك الحقل سيعطيك رقم 99 + 1
واذا كان هناك اكبر رقم في ذلك الحقل سيعطيك ذلك الرقم و يزيد عنه رقم واحد

[سلمان الشهراني]

الله يعطيك الف عافيه بس الحقل الي عندي نوعه ترقيم تلقائي
فهل راح يعمل معاه

[Shivan Rekany]

13 دقائق مضت, سلمان الشهراني said:

الله يعطيك الف عافيه بس الحقل الي عندي نوعه ترقيم تلقائي
فهل راح يعمل معاه

لا یجب ان یکون من نوع رقم

 

[سلمان الشهراني]

وفقك الله

طيب وبنسه لحقل ترقيم تلقائي هل يوجد له حل

تم تعديل أغسطس 2, 2017 بواسطه سلمان الشهراني

[ابوخليل]

السلام عليكم

شكرا للاستاذ شيفان على سطر الكود الجميل

نعم يوجد حل لتعديل حقل الترقيم التلقائي 

    Dim DB As Database, RS As Recordset
    Set DB = CurrentDb
    Dim i As Integer
    i = Me.id_start
    Set RS = DB.OpenRecordset("tbl1")
    RS.AddNew
    RS!id = i
      RS.Update
          Me.Requery
           txtName.SetFocus

 

بداية ترقيم تلقائي.rar

[سلمان الشهراني]

9 ساعات مضت, ابوخليل said:

السلام عليكم

شكرا للاستاذ شيفان على سطر الكود الجميل

نعم يوجد حل لتعديل حقل الترقيم التلقائي 

    Dim DB As Database, RS As Recordset
    Set DB = CurrentDb
    Dim i As Integer
    i = Me.id_start
    Set RS = DB.OpenRecordset("tbl1")
    RS.AddNew
    RS!id = i
      RS.Update
          Me.Requery
           txtName.SetFocus

 

بداية ترقيم تلقائي.rar

 

مشاء الله تبارك الله
استاذنا الغالي الف شكر لك وابدعت مشاء الله

[Riyadhnet]

الله يعطيكم العافية.