ترقيم تلقائي رئيسي وفرعي

[ابا حفص]

السلام عليكم ايها الافاضل 

كنت رايت كودا لعمل ترقيم تلقائي باستخدام الدالة DMax كالمثال التالي اللذي يذهب الي الجدول  Table1 ويذهب الي خليه ID وياخذ اعلي قيمه لها ويضيف عليها 1 فيصبح الرقم الجديد كالكود التالي ::

Private Sub Form_Current()
DoCmd.GoToRecord , , acNewRec
Me.ID = DMax("[ID]", "Table1") + 1
End Sub

طلبي في الحقيقه اني اريد ان اضع شروط لتنفيذ هذا الكود بمعني ان يتم بداية الكود من 1 اول كل عام .. ان اعمل ترقيم فرعي يخص كل عميل بالاضافه الي الترقيم الرئيسي .. ان يكون هناك ترقيم للصادر وترقيم للوارد 

 

لكني في الحقيقه لا اعلم اين يمكن ان اضع تلك الشروط او الطريقه الصحيحه لصياغتها .. فكنت ارجو المساعده

[ابا حفص]

للرفع

[سعيد صواب]

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

 

اخي الكريم أبا حفص

 

ارفق قاعدة بيانات بما تريد ... واشرح ماتريد شرح اكثر وضوح 

 

بالتوفيق ان شاء الله

[ابا حفص]

السلام عليكم اشكر حضرتك علي اهتمامك وردك

 

اوضح ان طلبي هوا عبارة عن ترقيم تلقائي متعدد .. بمعني ان في المثال المرفق اريد ياخذ كل تسجيل في القاعده رقم عام مسلسلا اعتمادا علي نشاط العمليه بمعني ان العمليه الاولي لو كانت تصدير تاخذ رقم 1 ولو كانت العمليه الثانية استيراد تاخذ الرقم 1 والثالث كان استيراد ياخذ الرقم 2 وان يعاد الترتيب الي الرقم 1 بداية كل عام

 

الرقم العام شروطه :

1. طبقا لنشاط العمليه ( استيراد - تصدير - .... )

2.كل عام يبدا من الاول ( مسلسل يبدا من 1 وينتهي اخر العام ليبدا من جديد العام القادم )

 

 اما الرقم الخاص او الفرعي يعتمد علي رقم المشروع ونشاط في نفس الوقت والتاريخ 

 

الرقم الخاص شروطه :

1.كل شركه لها عدد من المعاملات كل صنف من المعاملات له ترتيب مختلف ( 10 معاملات صادرة - 20 معاملة وارده - 5 معاملات مردوده ... )

2.كل عام يبدا من الاول ( مسلسل يبدا من 1 وينتهي اخر العام ليبدا من جديد العام القادم )

 

 

مثال :  ان مشروع احمد قد سجلت له 3 حركات 2 حركات صادر و 1 استيراد ومشروع عمرو سجلت له 5 حركات 3 صادر و2 وارد فيكون شكل الجدول

 

مسلسل عام      مسلسل خاص    اسم المشروع     نشاط المشروع

 

1                       1            احمد                   صادر

2                       1           عمرو                   صادر

3                       2           عمرو                   صادر

4                       3           عمرو                   صادر

5                       2           احمد                    صادر

6                       1           احمد                    استيراد

7                       1           عمرو                   استيراد

8                       2           عمرو                   استيراد

 

جربت في الرقم العام الكود اللذي ارفقته لكن للاسف لا يبدا من 1 لا يعطيني الاختيارات والشروط التي طلبتها عاليه

auto num.rar

[سعيد صواب]

السلام عليكم ,,,,

 

اليك المرفق اخي اتمنى يكون طلبك 

 

قمت بعمل قاعدة جديدة بنفس المسميات ,,, برأيي لاتحتاج الى كل تلك المفاتيح الأساسية .

 

وبالنسبة للتغيير مع بداية كل عام سأقوم بإضافتها بعد اطلاعك على المرفق واعظائي رأيك ..

 

وهنا سؤال : التغيير مع بداية العام هل يتم للأساسي والفروع ؟؟

 

ملاحظة : في حال مسح الحقول ابدأ الترقيم  بــ " 1 " سواء للأساسي أو الفروع وبعدها سيتم الترقيم تلقائي .

 

 

بالتوفيق ان شاء الله ,,,

autonumber11.rar

[ابا حفص]

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

 

اشكر حضرتك شكرا جزيلا ان حضرتك اقتطعت من وقتك للرد علي وجزاك الله كل خير...

 

 

 

برأيي لاتحتاج الى كل تلك المفاتيح الأساسية .

 

وجود المفاتيح الاساسية غرضه عدم تكرار الادخال لنفس الحركه وارجو التوضيح لو كان ذلك خيارا خاطئ 

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

 

 

 

وبالنسبة للتغيير مع بداية كل عام سأقوم بإضافتها بعد اطلاعك على المرفق واعظائي رأيك ..

راي اني اشكرك شكرا جزيل واتمني من الله ان يجازيك خيرا وفي انتظار ربط التاريخ بالموضوع .

...

 

 

وهنا سؤال : التغيير مع بداية العام هل يتم للأساسي والفروع ؟؟

نعم يتم البداية من جديد كل عام علي كل انواع الترقيم

 

 

[سعيد صواب]

حياك الله اخي الكريم 

 

اطلع على المرفق واخبرني اذا كان هذا ماطلبت من ناحية الترقيم ..

 

بالنسبة للمفاتيح لاتحتاجها ,,,  وبهذه الطريقة فلن تتكرر لأنها مرتبطة بالمفتاح الأساسي من الجدول المصدر لكل جدول .

 

التكملة ان شاء الله سوف تكون بعد ابداء رأيك في موضوع الترقيم ..

autonumber11.rar

[ابا حفص]

الترقيم الرئيسي يعمل والفرعي لا يعمل

[سعيد صواب]

اخي الكريم يبدو انك لم تنتبه لملاحظتي

 

عند مسح الحقول وعند بداية الترقيم : اول رقم يجب تسجيله يدويا  سواء في الترقيم الفرعي أو الرئيسي 

 

مثال : ahmad co  لم يسبق ان سجل له عملية import هنا ستبدأ بإدخال الرقم 1 وبعدها يبدأ الترقيم تلقائي .

 

يعمل لدي بشكل سليم ,, والموضوع اصبح واضح تماما  بالنسبة لي .

[ابا حفص]

لكن ليس هناك طريقه لعدم التدخل اليدوي

[سعيد صواب]

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

Nz(DMax("[general_id]", "Table1", "[act]= forms!table1!act"), 0) + 1

 
Nz(DMax("[general_id]", "Table1", "[act]= forms!table1!act"), 0) + 1

[ابا حفص]

الحمد لله تعمل بكفاءة جدا.. في انتظار الجزء التاني الخاص بالتاريخ

جزاك الله خيرا

[سعيد صواب]

حياك الله اخي الكريم ,,,

 

اسف على التأخير لإنشغالي 

 

في الحقيقة كنت على وشك ارفاق العمل ولكن اتضح لي ان به خطاء ...

 

سأحاول التعديل هذا المساء ان شاء الله.

 

بالتوفيق ان شاء الله ...

[سعيد صواب]

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

 

آسف على التأخير اخي الكريم مرة أخرى ,,

 

الق نظرة على المرفق ..

 

قمت بإضافة حقل جديد في الجدول وهو للسنة ..

 

في الحقيقة ما أخرني هو تجنب اضافة هذا الحقل .. ومحاولة الأستفادة من حقل التاريخ الموجود في الجدول سلفا ...

 

وحاولت محاولات اخرى ... ولكنها لم تفلح .

 

لأني لا اريدك ان تقم بإختيار السنة مع كل إدخال للبيانات  ...

 

عموما .. اطلع على المرفق ان اوفى بالغرض فخير وبركة .. غير ذلك قم بفتح موضوع جديد  وضع فيه هذا المرفق عل خبراء المنتدى واعضائه الكرام يفيدونك 

 

اما بالإستفادة من حقل التاريخ الموجود في الجدول أو بوحدة نمطية لذلك الغرض او بأي طريقة ..

 

 

المرجو هنا ان تجد الحل الذي يناسبك ...

 

وفقنا الله وإياك .

autonumber11.rar

[سعيد صواب]

الق نظرة على هذا المرفق ايضا ....

 

افتح النموذج sss وجرب .

 

وهذا لاتحتاج فيه الى ادخال السنة عند كل ادخال ولكنه ليس نموذج مستمر ..

 

وهي مشكلتي مع النموذج السابق ,, حيث اني لم استطع وضع هذا الشرط على النموذج table1 

 

بالتوفيق ان شاء الله

 

 

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

[ابا حفص]

السلام عليكم اخي العزيز ... جزاك الله كل خير 

 

لقد عملت علي تجربه واضافه اني اضفت Text Box جديد وجعلت ال Default value بتاعته 

=Year([ddate]) 

وجعلت Data source له yyear في جدول table1 

تم تعديل مارس 6, 2015 بواسطه ابا حفص

[سعيد صواب]

حياك الله اخي 

 

الحمد لله ,,, تمام

 

ولكن لي طلب لو سمحت .

 

هل من الممكن تحميل المرفق ,,

 

لأني قمت بذلك وكان الشرط لا يفلح ..

 

بالتوفيق ان شاء الله ,,

[ابا حفص]

احسن الله اليك وزادك الله علما وتواضع

اليك المرفق مع الشكر

autonumberevery year.rar

[سعيد صواب]

الحمد لله  ....

 

 

بالظبط كذا ,,,

 

عرفت مشكلتي .... المخ اذا قفل قفل  ,,,

 

لو تدري وين كنت ابني الشرط بتضحك من الآن الى بكره ....

 

خليها مستوره ..

 

فرصة سعيده

 

وبالتوفيق ان شاء الله ,,,,

[ابا حفص]

الحمد لله اللذي بنعمته تتم الصالحات

بل جزاك الله خيرا كثيرا .. لولا فضل الله ثم فضلك ما وصلت الي شئ 

وجاحد من ينكر الفضل

حياك الله وجزاك كل خير