اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

اخي العزيز

من اطلاعي للبرنامج لا يوجد كود ترقيم تلقائي وللتأكد غير آخر رقم برقم 1000 مثلا ثم نفذ الأمر ستلاحظ أنه سيبقى كما هو ولكن الترقيم التلقائي ينفذ عند إضافة سجل جديد فقط

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

Me!ID = Nz(DMax("[id]", "[student]"), 0) + 1

يقوم بأخذ أكبر رقم موجود ويضيف له 1 فإذا لم تصفر الأرقام أولاً فسيظل يزيد 1 على أكبر رقم ولن يبدأ من 1

وتصفير الارقام غير ممكنة لأنك جاعلها لا تقبل التكرار

لذا فالمطلوب منك أولاً تعديل خصائص الحقل ID لتجعلها تقبل التكرار ثم إضافة كود التصفير قبل تنفيذ الترقيم

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

تحياتي,,,

Nu.rar

قام بنشر

المعذرة المعذرة المعذرة

كنت حاسس اني وقعت في خطأ بسبب الإرهاق وبالفعل كنت على خطأ

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

For I = Val(txtCount) To co + Val(txtCount) - 1
بهذا السطر
For I = 1 To co + Val(txtCount) - 1

ولكنك ستواجه مشكلة في اول مرة حيث سيبدأ بالترقيم من 1 مما سيؤدي الى تكرار الرقم

لذا يجب اولاً ان تجعل خاصية الحقل ID في الجدول قابل للتكرار ثم قم بتنفيذ الامر واذا اردت ان تعيد الخاصية كما كانت فليس هناك مشكلة

مرفق لك المثال الاصلي بعد التعديل المذكور

والمعذرة مرة أخرى (هذه من مساوئ السهر)

تحياتي,,,

Nu.rar

قام بنشر

الاخ الفاضل الاستاذ منتصر بارك الله فيك

ومعذرة على التاخير فى شكرك

لاننى هذه الايام لا اتصفح النت لانى مشغول بامتحانات الثانوية العامة

  • 2 weeks later...
قام بنشر

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

أخي اقترح عليك و ضع هذا الكود في القيمة الافتراضية في الترقيم التلقائي

حيث id هو اسم حقل الترقيم التلقائي

و learner هو اسم الجدول 

وسيقوم بالترقيم التلقائي بنفسه

=IIf(IsNull(DLookUp("[id] ";"learner"));"1";DLookUp(" Max ( [id] )+1";"learner"))

قام بنشر

الاخ الفاضل

abdalla89

ممكن تضع الكود فى ملف علشان انا مش عارف اطبقة على الملف

تفضل يا أخي الملف المطلوب

تكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااام 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information