اريد اعادة التسلسل مرة اخري كل 6 سجلات بمعني 1 2 3 4 5 6 ثم يعاد التسلسل مرة اخري 1 2 3 4 5 6 وهكذا الي نهاية السجلات
سؤال في اعادة التسلسل محيرني
يفضل دائمًا إرفاق مثال لقاعدة بيانات للتطبيق عليه تسهيلاً لمهمة من يستطيع المساعدة
الفكره التى خطرت فى بالى الآن هى:
أولا: يجب أن يكون المسلسل ليس ترقيم تلقائى ولا يكون الحقل مفتاح اساسى أو لايقبل التكرار.
ثانيًا: الترقيم يتم عن طريق الكود بحيث يقوم بإضافة رقم 1 على الترقيم السابق عند إنشاء حقل جديد.
ثالثًا: يمكن تنفيذ المطلوب عن طريق عمل جملة شرطية تقوم بحساب الباقى من ناتج قسمة آخر رقم مسلسل على الرقم 6 بحيث لو كان الباقى 0 يقوم بالبدء من جديد من أول رقم 1 كالتالى:
1- نقوم بتعريف متغير وليكن اسمه c وياخد القيمه محتوى حقل الترقيم فى الجدول وليكن اسمه ID
2- عند زر إضافة سجل فى النموذج نكتب الكود التالى عند حدث عند النقر On Click:
If c Mod 6 = 0 Then
ID.Value = 1
Else
ID.Value = c + 1
End If
أتمنى أن تكون هذه الفكره نافعه
تم تعديل هذه المشاركة بواسطة N_ELMASRY في 7 أكتوبر 2016 في 11:19