إدراج أرقام مسلسلة داخل حقل خالى ؟

أرجو أن يكون في الوصلة التالية ما تريده

http://mypage.ayna.com/harith44/NewIns_No.zip

انقر بالزر الأيمن واختر حفظ الهدف باسم

ملاحظة : تحتاج للتأكد من صحة كتابة الكود

وربما تستغني عن إدراج الأرقام بما في الرابط التالي :

http://www.arabteam2000.com/vb/showthread....=&threadid=9497

بسم الله الرحمن الرحيم

السلام عليكم

اخى / حارث

جزاك الله خيرا .. شكرا لك يا اخى على مثالك و اهتمامك

مثالك رائع و هو المطلوب بالفعل

ولكنىكنت احب منك ان تشرح لى هذا الكود .. انا فهمت نصه فقط :D و لكن الباقى لم استطع استيعابه و قد حاولت نقله و تعديل الحقول و اللاستعلام بالطبع على ملف اخر و الذى به البيانات و لكن بكل اسف لم يعمل معى .. لذا ارجو ان يكون لديك وقت لشرح بيسط يساعدنى على استخدامه

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

http://www.arabteam2000.com/vb/showthread....47077#post47077

خالص شكرى و تقديرى

أخـــــــBengaـــــــوك (f)

أعتذر عن الشرح ففهمي للأكواد محدود جدا ، وليس لي في هذا الكود إلا بعض التعديلات الطفيفة .

السلام عليكم

شكرا لك اخى حارث على اهتمامك

و الحقيقة حاولت كثيرا مع الكود و لكن بكل اسف لم اوفق :'( :'(

ارجو ان اجد الحل لدى احد الاخوة

خالص تحياتى للجميع

أخـــــBengaــــوكم

ما الحاجة لحقل الترقيم ؟

ولماذا لا تستخدم الترقيم في الاستعلام الوارد في الرابط أعلاه .

ثم لو نزلت الملف لفهم المطلوب تماما ولن تعدم من الإخوة من يفيدك بالحل .

وبالنسبة للمثال الذي سبق إيراده فقط يحتاج إلى استبدال :

Sort_Ins باسم الجدول أو الاستعلام .

TID باسم الحقل المراد الترقيم فيه .

تصحيح على الكود السابق :

استبدل السطر

MaxNum = DCount("name", "Sort_Ins")

بالسطر

MaxNum = rst.RecordCount

لكن لا تنسى أن تضبط المرجع ، وذلك بالذهاب إلى أي (كود ) : وحدة نمطية عامة أو خاصة بنموذج أو تقرير ، ثم Tools ثم Referfnces واستفد في ذلك من المثال السابق .

الأخ/harith77

لقد قمت بنسخ الكود كما هو في المثال ووضعته على زر أمر وأنشأت جدول بنفس الاسم الموجود في المثال وبنفس تسمية الحقول وألصقة الكود في حدث الزر عند النقر ولكن للأسف تظهر لي رسالة لم أفهم مضمونها ويتم تظليل أول سطر في الكود0

مع أنني قمت بضبط المرجع ، وذلك بالذهاب الكود في الوحدة النمطية الخاصة بنموذج ، ثم Tools ثم Referfnces وعدلت ما يلزم0

فياليت توافينا بالسبب فلكود ممتاز جداً لو سارت الأمور معي كما أريد0

شكراً لك

هل تأكدت من ترتيب المراجع ، بحيث يكون الترتيب كما هو في المثال .؟؟

ثم أكرر ما سبق من أنه لم يكن لي من دور في هذا الكود سوى بعض التعديلات .

والكود أخذته من مثال للأخ أبو هادي في موضوع ربما فقد مع المواضيع التي فقدت ، لكن وصلة الملف هي (بعد إذن الأخ أبو هادي):

http://mypage.ayna.com/abbashmd/Week97.zip

الأخ حارث

_ لقد أفدت بارك الله فيك

السلام عليكم

اخوتى الافاضل / اعتذر عن تاخر الرد

و الحقيقة انه قد حدث معى مثل ما حدث مع الاخ / مصلح

و تم تظليل اول سطر فى الكود و لم استطع فهم ما يقصدة

و لكن الحقيقة لم افهم ما هو المقصود بضبط المرجع

اخترت Tools ثم Referfnces ثم اخترت جميع اسماء البرامج التى ظهرت امامى لانى لم افهم ما قيمة هذه البرامج و حاولت استخدام الهيلب فى فهمهم و لكن لم افد منه فى شئ

اما بالنسبة للمثال الذى اوردة الاخ / حارث و الخاص بالأخ ابو هادى فلم استطع معرفة المقصود منه

ارجو ان اجد اجابه ليدكم .. لانى فعلا احتاج لهذا الموضوع جدا و الوقت ضيق على

خالص شكرى و تقديرى للجميع

أخـــــــBengaـــــوكم (f)

خلفيتي أنا أيضا محدودة جدا في المراجع .

لكن يمكنك حل المشكلة ببساطة بأن تجعل المراجع في قاعدة البيانات مثل المراجع في المثال السابق إيراده ، بأن تؤشر على المراجع الموجودة في المثال والتي لم يؤشر عليها عندك ثم تجعل ترتيب المراجع عندك كما هو في المثال بواسطة زر خاص بالترتيب في اليمين .