(مساعده) ترقيم تلقائي + حفظ السجل

[uday]

السلام عليكم
كيفكم اخواني ؟

انا لدي مشكلتين اتمنى حلها مع الشرح لكي اطبقه بالملفات الاخرى

المشكلة الاولى وهي:
عمود seq في الجدول حاطه ترقيم تلقائي
عند حفظ سجل مثلا رقم 5 وتم حذفه  بيظهر لي الي قبله 4 وبعده 6  

اريد ان اضبط الترقيم متسلسل حتى لو تم الحذف وهل بالامكان اختيار رمز بدل رقم ؟  مثلا اريد ترقيم b001 -b002-b003 .......

 

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

وشكرا لكم

BOOK.rar

تم تعديل يونيو 13, 2013 بواسطه uday

[khodor1985]

لنفترض أن الجدول بعنوان tbl1 قم بتحويله من خلال معالج النماذج إلى نموذج وسمه Form1

ثم ضع المؤشر على رأس الفورم - إضغط على يمين الفأرة واختر من اللائحة خصائص - يظهر محتوى الخصائص - إختر قبل الإدراج Before insert ثم ضع الكود التالي:

Me.seq = Nz(DMax("seq","tbl1"),0) + 1

وهكذا يكون الرقم تلقائي بشكل متسلسل

بالتوفيق