السلام عليكم ورحمه الله وبركاته
اخوانى واخواتى الافاضل
تم ظبط الترقيم التلقائى لكل اداره بفضل الله ثم بفضل اختنا زهره اللتى لا تتأخر بالمساعده جزاها الله عنا كل خير ورزقها من فضله وبارك لها فى عهود وشهد ويسر لها جميع امورها
وسؤالى كالتالى هل يمكن ظبط هذا الترقيم بناء على حقلين
حقل الاداره وحقل اخر
بمعنى ادارة دمياط = احياء = 1 ؛ 2 ؛ 3 ؛ 4
ادارة دمياط = ورثه = 1 ؛ 2 ؛ 3 ؛ 4
ادارة بنى سويف = جديد = 1 ؛ 2 ؛ 3 ؛ 4
ادارة عين شمس = جديد = 1 ؛ 2 ؛ 3 ؛ 4
هل ممكن ؟
اخي الفاضل : احمد
كل ما عليك فعله هو اضافة الوصف مع حقل الإدارة معا بهذه الطريقة في كود الترقيم
i = Me!kindd And Me!KindNn
وسيعمل معك الترقيم
ايضا قم بإضافة الحقل KindNn الى استعلام الكل QALL
بالتوفيق
اختى ومعلمتى الفاضله زهره
بارك الله فيكى وعلى مبادرتك دائما بالمساعده لجميع الاعضاء
لكن للاسف لم يظبط الى الان
لو تلاحظين السجلات الموجوده بالمثال الان
المفروض تبقى كاالتالى
صاحب البطاقه رقم 110
له سجلان لادارة بنى سويف
واحد احياء وواحد ورثه المفروض الاتنين هيبقا رقمهم المسلسل رقم 1 لان الاداره واحد ولكن اختلاف الحقل الاخر احياء وورثه
ادارة بني سويف أحياء 110 2
ادارة بني سويف أحياء 110 3
ادارة بني سويف ورثه 110 1
اعذرينى واقبلى عذرى فى هذا الارهاق الشديد
وتمنياتى لكى بالتوفيق ودوام النجاح
اخوكى احمد
قمت بتعريف متغير اخر ولم تظبط معى
تم تعديل هذه المشاركة بواسطة طالب علم مبتدىء في 28 مارس 2012 في 01:16
تم حذف المرفق
حيث انه بعد تجربة ادخالات يدويه لم يظبط معى
للرفع
تم تعديل هذه المشاركة بواسطة طالب علم مبتدىء في 30 مارس 2012 في 12:21
اختى ام عهود
بارك الله فيكى واعانك على مساعدتك الاخرين وجزاكى الله عنا كل خير
ولعدم الارهاق تم حلها بطريقه اخرى وهي كالاتى على نفس المثال القديم قبل اضافة الجدول الجديد
قمت باضافة احياء او ورثه للاداره المطلوبه لتصبح كالتالى مثلا
ادارة دمياط أحياء - 20
ادارة دمياط ورثه - 20
وفى حالة الصرف سوف يتم جمع الكشفين عن الطريق الكود الحسابى لهم وهو 20 وليس اسم الاداره
هذا الحل اللذى وصلت اليه
لان التعديل لم يظبط الى الان فان كان يوجد حل اخر فانى منتظر وان لم يكن فلا بأس
ولدى طلب أخر بالنسبه لهذا الكود وددت وضعه فى نموذج البدايه frmStart ليقوم بتنظيم الترقيم للسجلات قبل اضافتها لجدول الحركه
فقد حاولات كثيرا ولم افلح فما هيا الطريقه الصحيحه لذلك
Dim ReAutoNum
ReAutoNum = zaReAutoNum("kindd", Me.kindd)
عند الاشاره للوحده النمطيه
هكذا
zaReAutoNum("TBianat","kindd")يعطين خطأ فى السطر التالى فى الوحده النمطيه
Set rs = db.OpenRecordset(str, dbOpenDynaset)
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…