سلمان الشهراني قام بنشر أغسطس 2, 2017 مشاركة قام بنشر أغسطس 2, 2017 (معدل) اسعدالله اوقاتك الجميع هل من طريقة لاجبار حقل ترقيم تلقائي ان يبداء من رقم معين مثل ان يبداء من رقم 100 طبعا غير الطريقه العاديه وهي كتابة الحقول حتى الى ان يصل الى رقم 100 ثم المسح وشاكر للجميع تم تعديل أغسطس 2, 2017 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 2, 2017 مشاركة قام بنشر أغسطس 2, 2017 6 ساعات مضت, سلمان الشهراني said: هل من طريقة لاجبار حقل ترقيم تلقائي ان يبداء من رقم معين مثل ان يبداء من رقم 100 طبعا غير الطريقه العاديه وهي كتابة الحقول حتى الى ان يصل الى رقم 100 ثم المسح نعم هناك طريقة مثلا نريد ان يبدأ من رقم 100 سنستخدم هذا الكود =NZ(Dmax("[ID]","Tbl1"),99)+1 هذا الكود سيعطيك اكبر رقم من حقل اي دي في جدول تبل 1 واذا ما وجد اي رقم اي اذا ليس يكون هناك رقم في ذلك الحقل سيعطيك رقم 99 + 1 واذا كان هناك اكبر رقم في ذلك الحقل سيعطيك ذلك الرقم و يزيد عنه رقم واحد 2 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 2, 2017 الكاتب مشاركة قام بنشر أغسطس 2, 2017 الله يعطيك الف عافيه بس الحقل الي عندي نوعه ترقيم تلقائي فهل راح يعمل معاه رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أغسطس 2, 2017 مشاركة قام بنشر أغسطس 2, 2017 13 دقائق مضت, سلمان الشهراني said: الله يعطيك الف عافيه بس الحقل الي عندي نوعه ترقيم تلقائي فهل راح يعمل معاه لا یجب ان یکون من نوع رقم رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 2, 2017 الكاتب مشاركة قام بنشر أغسطس 2, 2017 (معدل) وفقك الله طيب وبنسه لحقل ترقيم تلقائي هل يوجد له حل تم تعديل أغسطس 2, 2017 بواسطه سلمان الشهراني رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر أغسطس 2, 2017 أفضل إجابة مشاركة قام بنشر أغسطس 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 2 رابط هذا التعليق شارك More sharing options...
سلمان الشهراني قام بنشر أغسطس 3, 2017 الكاتب مشاركة قام بنشر أغسطس 3, 2017 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 مشاء الله تبارك الله استاذنا الغالي الف شكر لك وابدعت مشاء الله رابط هذا التعليق شارك More sharing options...
Riyadhnet قام بنشر نوفمبر 28, 2019 مشاركة قام بنشر نوفمبر 28, 2019 الله يعطيكم العافية. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان