ترقيم يدويا بعد يتم تلقائي وبعد كل سنة يتم تصفيره

[عبداللهM]

:zip]________________________.zipاخواني الكرام

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

ارغب في معرفة الطريقة التي يكون رقم قيد في الجدول بإدخله يدوياً ومن ثم يكون الترقيم تلقائي مثلا إذا ادخلنا رقم (100) وياتي متسلسل (101، 102، 103) الخ وإذا أنتهت الستة يتم إعاده الترقم من جديد وادخال الرقم(3،2،1) يدوياً وتأتي الارقم متسلسة تلقائياً وهكذا بعد كل نهاية سنة شرح وتم وضع جدول (word) مع برامج يوضح في كفيت ترقيم الذي يتم بمساعدتكم

مع خالص الشكر والتقدير خوك/ عبدالله M

[محب العلم]

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

حياك الله أخي عبد الله ،

عملت لك مثال وهو نموذج مرتبط بجدول الصادر ee1 وشرح الطريقة كما يأتي :

1. في الجدول تجعل حقل id من نوع رقم وليس ترقيم تلقائي

2. في الجدول أيضا تجعل المفتاح لحقل Id والتاريخ معا وليس لحقل id لوحده لأنه سيتكرر

3. في النموذج تجعل خاصية التمكين محبطة وخاصية التأمين مفعلة هذا بالنسبة للحقل id لأن القيمة التي ستوضع فيه تلقائيا .

4. في حدث بعد التحديث للحقل تاريخ الإصدار تضع كود يحسب الرقم من خلال الإقتران dmax كما يأتي

Private Sub DateIssued_AfterUpdate()
Me.id = Nz(DMax("id", "ee1", "year([تاريخ الصدور]) = " & Str(Year(Me.DateIssued))), 0) + 1
End Sub

تفضل التعديل » 1.zip

مع وافر الاحترام

[عبداللهM]

الاخ محب العلم شكراً على هذه المعلومة القيمة الله يعطيك العافية ولأكن ليس هذا هو المطلوب في شرح وتم وضع ملف (word) مع برامج يوضح في كفيت ترقيم الذي يتم بمساعدتكم وخواني المنتدي

[عبداللهM]

الاخ محب العلم /السلام عليكم ورحمة الله وبركاته

هذا طريق ممتاز جداً ولا كن يوجد مشكله وحد ان( id) لا يسمح بدخل رقم محدد بدية البرنامج

مثل يبد حقل ( id) برقم محدد وبعد يتم طرقيتك

[Dream_Works]

الاخ محب العلم /السلام عليكم ورحمة الله وبركاته

هذا طريق ممتاز جداً ولا كن يوجد مشكله وحد ان( id) لا يسمح بدخل رقم محدد بدية البرنامج

مثل يبد حقل ( id) برقم محدد وبعد يتم طرقيتك

إذا كانت طريقة العضو المتميز محب العلم فعالة و لا يتبقى لديك إلا إدخال البيانات للمرة الأولى فيمكنك تجربة التالي

1- إزالة القفل من مربع النص ID عن طريق ( خصائص مربع النص ) .... Locked = False

2- وضع الكود التالي في الحدث AfterUpdate للرقم

Private Sub id_AfterUpdate()
Me.id.Locked = True
End Sub

كما أرجو رؤية الرابط التالي ... احتمال ينفع

ترقيم جديد كل سنة جديدة

1.zip

[عبداللهM]

اخي الفاضل محب العلم

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

اشكر على المجهود الرائع الذي بذلته وعطي الامل في برانامج

حولة ان دخل رقم وهو 100 في (id) ودخلت تاريخ يرفض ويتم تسجيل (1)

ملاحظة ــــ اذ تم تركيب البرنامج في الوقت لدينا فحيث ان الصادر الوارد رقم القيد تعد رقم (1) لان في في شهر ثلاثة من سنة تقريبا

وكذلك رقم القيد الصادر الوارد يعتمد على (id)

فهذا ابرانامج يصالح من بدية سنة فقط فهل اطمع في المساعد اكثر من ذلك وشكرا على صبرك