كيف أجعل الترقيم محدد من1الى1000 ثم العودة لرقم 1

[alqareeb]

هل يمكن عمل ترقيم من 1 الى 1000 ثم العودة من جديد وشكرا

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

اخي الكريم

ثم العودة من جديد

ممكن توضح اكثر بارك الله فيك

والله اعلم

والسلام عليكم ورحمة الله وبركاته

[alqareeb]

اي البدء من 1 مرة اخرى

[ijh_pro]

يجب ان تعمل حقل من نوع رقم صحيح وتعمل دالة تعيد الرقم مكونة من

اخذ اكبر قيمة في الجدول للحقل الرقمي

فحص هل القيمة 1000

اذا كانت 1000 تعيد الدالة الرقم 1 والا تضيف 1 على الرقم الموجود

ملاحظة

ارفق قاعدة البيانات حتى ارفق لك الحل

:(

[أبو هادي]

السلام عليكم

بعد الحصول على المسلسل الجديد باستخدام دالة DMax والموجود أمثلة كثيرة عليها بالمنتدى وبافتراض أن المسلسل اسمه ID استعمل السطر التالي :

IIf(ID Mod 1000 = 0, 1000, ID Mod 1000)

بالتوفيق .

تحياتي .

[alqareeb]

هل من مثال على ذلك

[ظل السراب]

السلام عليكم ورحمة الله وبركاته

اخي الكريم

هذا مثال كان لديه في الارشيف وهو يقوم تغيير الترقيم الى الرقم المطلوب ولكن بكل اسف انه يتم حذف البينات من الجدول

ربما احد الاخوه يستطيع التعيدل عليه ليصبح على حسب طلبك

والله اعلم

والسلام عليكم ورحمة الله وبركاته

_____________.zip

[alqareeb]

شكرا وفي انتظار التعديل

[أبو هادي]

السلام عليكم

أرجو مراجعة هذا الرابط :

http://www.officena.net/ib/index.php?showt...findpost&p=4872

مع اعتذاري بعدم استطاعتي التعديل على أمثلة الأعضاء أو عمل أمثلة جديدة وستقتصر مشاركاتي في نطاق الحث والتوجيه أو بالإشارة إلى مواضيع ذات صلة في حال كانت المعلومة متوفرة لدي

تحياتي .

[alqareeb]

بارك الله فيكم ولكن طلبي ليس الترقيم بل كيف اجعل الترقيم يصل ل 1000 ثم يعود من 1 مجددا مع احتمالبة التكرار وشكرا

[أبو هادي]

السلام عليكم

كما أوضحت لك سابقا في مشاركتي قبل الأخيرة ، بعد أن تحصل على الترقيم بالطريقة التي تختارها تخضعها للمعادلة التالية :

المسلسل = IIf(المسلسل Mod 1000 = 0, 1000, المسلسل Mod 1000)

أما إذا قصدت الترقيم التلقائي AutoNumber كحقل فانسى الأمر حيث لا يمكن التعديل عليه البتة .

تحياتي .

[alqareeb]

مالخطأ هنا حيث يفترض ان يصل الترقيم الى 15 ثم يعود الى 1 ارجو التعديل ان لزم

http://www.officena.net/ib/index.php?act=A...pe=post&id=3365

[أبو هادي]

السلام عليكم

Private Sub الاسم_AfterUpdate()
  Dim Max As Long
  Dim Num As Long
  
  Max = 15
  
  Num = DMax("[رقم]", "tb") + 1
  Me.رقم= IIf(Num Mod Max = 0, Max, Num Mod Max)
End Sub

تحياتي .

[alqareeb]

جزاك الله خير ولكن هناك خطا في العبارة:

Me.رقم= IIf(Num Mod Max = 0, Max, Num Mod Max)

[alqareeb]

تكون بلون اصفر

هل معناه ان هناك خطأ في بناء الجملة واعذروني لأن يمبتديء واسئلتي كثيرة

[أبو هادي]

السلام عليكم

المثال بعد التعديل .

تحياتي .

تم تعديل يناير 14, 2006 بواسطه أبو هادي

[alqareeb]

شكرا لتجاوبك ولكن بعد ال15 يعود الرقم لل1 ويبقى واحد دون ان يزيد !!!!!!!!!!!!!!!!!!!!وشكرا

[أبو هادي]

السلام عليكم

جرب المثال المرفق مرة أخرى .

مع ملاحظة أنه تم التعديل على الجدول .

تحياتي .

AutoNum2.rar

[alqareeb]

الله يجزاك الف خير