من مكتبتى - رقم مسلسل يبدأ من 1 عند بداية كل سنة جديدة ولايتكرر

[ابو جودي]

في بعض الاحيان يتطلب الامر ان يكون التسلسل الرقمي غير عادي أو علي خلاف التسلسل الرقمي المعروف فإذا كان الحقل فريدا فلا يقبل التكرار وبالتالي لابد من تمييز هذا الرقم بطريقة معينة بحرف مثلا ولكن هذة الطريقة تمكنك من بدء التسلسل الرقمي من الرقم 1 مع بداية كل سنة جديدة والمثال المرفق يوضح كيفية عمل ذلك فكل ما عليك هو تفحص الحقول الموضوعة علي النموذج

 

 

ثم تتبع قيمة كل حقل " مصدر عنصر التحكم لكل حقل " من الحقول

ثم في حقل الاسم في حدث بعد التحديت أكتب الكود التالي

Private Sub الاسم_AfterUpdate()

    Me![السنة] = f

    Me![r] = Me![sh] + 1

    Me![q] = x & "/" & Format(r, "00")

End Sub

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

ولاخفاء الحقول المستخدمة عند فتح النموذج في حدث عند الفتح أكتب الكود

 Private Sub Form_Open(Cancel As Integer)

DoCmd.GoToRecord , , acNewRec

f = DatePart("yyyy", d)   '    عند فتح النموذجf قيمة الحقل

x = Right(f, 2)             '     عند فتح النموذجx قيمة الحقل

f.Visible = False

x.Visible = False

sh.Visible = False

r.Visible = False

d.Visible = False

L.Visible = False

End Sub

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

dcount() لتحديد قيمة مصدر عنصر التحكم إستخدمنا الدالة d الحقل

=DCount("";"serial by year";"[السنة]=f")

والمثال المرفق يوضح ذلك
رقم مسلسل لكل سنة.rar

 

[ابو الآء]

بارك الله فيك 

احى واستاذى الفاضل 

   

[كريمو2]

شكرا لك استاذ محمد عصامي

هل ممكن ينطبق هذا الترقيم المتجدد كل سنة على التقرير

[ابو جودي]

طبعا اجعل مصدر التقارير هو الجدول 

[راعي الغنم]

جميل جدا

ولكن لي طلب زغنون

نحن الان في شهر 4 وهناك الف سجل في هذه السنة, فكيف اجعل الاكسس يقوم بالترقيم آليا لهذ السنة والسنوات الماضية؟

لأن ترقيم السجل لايكون الا بعد تحديث حقل الاسم حسب الكود اعلاه

وكيف اذا تم تحديث حقل الاسم والذي كان يحمل رقم 1001 وبتاريخ سابق ولنقل قبل شهر؟؟؟

اظن سيتم تحديثه الرقم ليحمل رقم جديد

طبعا لحد الان مابعد شفت الملحق اذا كان هناك سوء فهم مني...

[راعي الغنم]

جميل جدا

ولكن لي طلب زغنون

نحن الان في شهر 4 وهناك الف سجل في هذه السنة, فكيف اجعل الاكسس يقوم بالترقيم آليا لهذ السنة والسنوات الماضية؟

لأن ترقيم السجل لايكون الا بعد تحديث حقل الاسم حسب الكود اعلاه

وكيف اذا تم تحديث حقل الاسم والذي كان يحمل رقم 1001 وبتاريخ سابق ولنقل قبل شهر؟؟؟

اظن سيتم تحديثه الرقم ليحمل رقم جديد

طبعا لحد الان مابعد شفت الملحق اذا كان هناك سوء فهم مني...

[ابو جودي]

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

[عبدالرحمن هاشم]

جزاك الله خيرا استاذي واخي الغالي محمد

[ابو جودي]

جزاك الله خيرا استاذي واخي الغالي محمد

جزانا الله واياكم خير الجزاء

[كريمو2]

طبعا اجعل مصدر التقارير هو الجدول 

واذا كان المصدر من الإستعلام وبه معايير

والتقرير يفتتح عن طريق نموذج فرعي

[yms12]

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

[رمهان]

اعزائي

اشارك بتذكير وتنبيه :

تذكير : نوقش هذا الموضوع كثيرا وفي هذا المنتدى وغيره من المنتديات الشقيقة وتم محاولة تلاشي مشكلة التنبيه التالية ..

تنبيه : جرب اضف ثلاث سجلات لسنة واحدة ثم احذف السجل الثاني ! ثم اكمل التسجيل لسجل ثالث جديد !! لن يقبل !!

 

هذا ونشكر الأستاذ محمد عصام على مشاركاته دائما

 

تحياتي

[راعي الغنم]

اللهم صل على حبيب الله

1: انت جعلت حقل الترقيم نص وليه ماتخليه رقم ويكون الترقيم هكذا:2014001 مجرد فكرة

2: عندك بالمرفق جدول مبيعات ومشتروات ادوية فيه 2000سجل واضفت حقل بعد مطالعتي لفكرتك واسمه NUM عشان يكون الترقيم فيه..

3: حسب فكرتك الترقيم سيكون بعد تحديث حقل الاسم (وهنا سيكون اسم الشركة) وهذا جيد, ولكننا الان في شهر4/2015 وطبعا لن استطيع اعادة ادخال الترقيم يدويا للسجلات السابقة من السنة

4: كيف تجعل السيد اكسس يقوم باعادة الترقيم تلقائيا للسجلات السابقة والموجودة حاليا بالجدول

5: لنختر السجل رقم 278 بعد فرز التاريخ تصاعدي والذي هو بتاريخ 11/1/2015 ولنفرض ان رقمه في الحقل NUM هو 278 ولنفرض انني في شهر 5/2015 احتجت لتحديث حقل اسم الشركة.. هوا انتا لسه معايا والا رحت فين؟؟؟

بعد تحيث حقل اسم الشركة وحسب كودك سيتم تغيير الترقيم من 278 الى 2001 على اعتبار ان اخر ترقيم هو 2000

وهذا خطا لأنه وعند فرز ترقيم السنة تصاعدي او العكس سنجد هذا السجل ضمن سجلات شهر 5

فكيف نستطيع السماح بالترقيم في المرة الاولى ونمنعه في المرات التالية؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

اذا مافهمتني لاتتردد عشان نصل لمعلومة باذن الله

رقم مسلسل لكل سنة.rar

تم تعديل أبريل 19, 2015 بواسطه راعي الغنم

[راعي الغنم]

اعزائي

اشارك بتذكير وتنبيه :

تذكير : نوقش هذا الموضوع كثيرا وفي هذا المنتدى وغيره من المنتديات الشقيقة وتم محاولة تلاشي مشكلة التنبيه التالية ..

تنبيه : جرب اضف ثلاث سجلات لسنة واحدة ثم احذف السجل الثاني ! ثم اكمل التسجيل لسجل ثالث جديد !! لن يقبل !!

 

هذا ونشكر الأستاذ محمد عصام على مشاركاته دائما

 

تحياتي

طيب وايش السبب ياسيد رمهان؟؟

ولو جعلنا الحقل رقم وصار الترقيم هكذا:2015001 بدلا من الشرطة المائلة هل سنتجاوز المشكلة..

[ابو جودي]

اعزائي

اشارك بتذكير وتنبيه :

تذكير : نوقش هذا الموضوع كثيرا وفي هذا المنتدى وغيره من المنتديات الشقيقة وتم محاولة تلاشي مشكلة التنبيه التالية ..

تنبيه : جرب اضف ثلاث سجلات لسنة واحدة ثم احذف السجل الثاني ! ثم اكمل التسجيل لسجل ثالث جديد !! لن يقبل !!

 

هذا ونشكر الأستاذ محمد عصام على مشاركاته دائما

 

تحياتي

 

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

اولا انا عنوان الموضوع من مكتبتى 

لم انسب الفضل او العمل لى 

 

ثانيا انا مهندس كيميائى واسف انى حاولت افهم وحاولت اشارك الناس اللى حاسيت ان فيه افاداه ليه انا على الاقل يمكن حد زى يكون محتاج لموضوع ده

ثالثا والاهم انا تاريخ تسجيلى فى المنتدى ومن لوحة المنتدى زى ما هو ظاهر  

 

إنضم إلينا في    25/12/2014

 

 

كنت داخل ومعرفش عن الاكسس غير اسمه

يعنى ملفتش فى منتديات كتير وماعرفش ايه اتناقش وايه لسه هيجربوه فى النقاش وغيره  ... الخ

 

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

للاسف انا مبفهمش اى شئ غير من امثله لان بصراحه الشرح النظرى بتوه فيه معلش فهمى على اد حالتى

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

 

بس عمرى لا هفتكس ولا هحاول ابتكر ولا هحاول انقل تانى علشان مأضيع وقت الناس فى حجات انتهوا منها من سنين 

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

واوعدك بعدم التكرار 

قررت التعلم فى صمت  

[راعي الغنم]

 صل على رسول الله يا اخ محمد

الاخ رمهان لم يتهمك بشي وانما اوضح نقطة كانت غائبة عنك وعننا وهذا ميثاق العلماء "لتبيننه للناس ولا تكتمونه"

وشكرك على جميع مشاركتك بما فيها هذه المشاركة

ونحن بدورنا نشكرك على جميع مشاركاتك وعلى هذه المشاركة

ولم تكن هذه المشاركة عديمة النفع ابدا, ولولم يكن فيها الا هدفك النبيل للفائدة

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

استمر للامام يا محمد افندي وتأكد ان العلم يزيد كلما انفقته...

[راعي الغنم]

 صل على رسول الله يا اخ محمد

الاخ رمهان لم يتهمك بشي وانما اوضح نقطة كانت غائبة عنك وعننا وهذا ميثاق العلماء "لتبيننه للناس ولا تكتمونه"

وشكرك على جميع مشاركتك بما فيها هذه المشاركة

ونحن بدورنا نشكرك على جميع مشاركاتك وعلى هذه المشاركة

ولم تكن هذه المشاركة عديمة النفع ابدا, ولولم يكن فيها الا هدفك النبيل للفائدة

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

استمر للامام يا محمد افندي وتأكد ان العلم يزيد كلما انفقته...

[ابو جودي]

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

ومهما تعلمت ومهما زاذت معلوماتى بدأت كالطفل الرضيع الذى لايستطيع الحراك 
فكانت اولى خطواتى هنا وعلى ايدى معلمينا واساتذتنا الافاضل الاجلاء واخوتنا الكرام

ويعلم الله كم اكن للجميع الحب والود والاحترام والاجلال والتقدير فمنهم تعلمت ولازلت سواء كان بطريق مباشر او بطريق غير مباشر

ولا ولم ولن انسى افضالهم على بعد رب العزة عزوجل 
ولم ولن اتعالى بما وصلت اليه سواء بسؤال او تقديم مثال او طلب راى او استشارة

وان ظهرفى  ما اعرضه من موضوعات يدل على ذلك فأقسم بالله العلى العظيم لم اقصد به سوا شئ من اثنين 
الفرح بما وصلت اليه على ايدى اساتذتنا الكرام 

ورد الجميل للمنتدى الذى تعلمت ولازلت اتعلم منه

 

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

[رمهان]

اخي محمد عصام

ما شارك به الاخ راعي الغنم هو ما كنت سارد به ! فجزاه عنا كل خير ! فكفى ووفى !

ففعلا اريد ان انبه لشي يستحق التنبيه ولم اقلل من مشاركتك بل نشكرك ونشكرك وستضل اخا عزيزا

وكنت اقصد من ذكر انه تمت مناقشته هنا وفي منتديات شقيقة هي اشارة للبحث هنا او هناك فقط لا غير ! خصوصا وان لك اخ محمد مشاركات هنا وهناك !

تحياني لكم جميعا

[ابو جودي]

لا

ماليش اى مشاركات بره خالص على الفكره 
الحاجه الوحيده اللى فكرت ادور عليها بره لما لم اجدها هنا او يمكن لاستعجالى انا النتيجه لاحتياجى الشديد اليها 

وهى البحث والفرز والتصفيه التلقائية مع تميز نتيجة لون البحث بلون مخالف 

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

 

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

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

[رمهان]

اخ محمد

المشاركه في اي مكان من ابسط حقوقك ! اريد منك البحث هنا وفي الانترنت ستجد مناقشات مفيده حول الموضوع !

بالتوفيق

[ابو جودي]

امرك استاذى الجليل ومعلمى القدير 

[رمهان]

 

اعزائي

اشارك بتذكير وتنبيه :

تذكير : نوقش هذا الموضوع كثيرا وفي هذا المنتدى وغيره من المنتديات الشقيقة وتم محاولة تلاشي مشكلة التنبيه التالية ..

تنبيه : جرب اضف ثلاث سجلات لسنة واحدة ثم احذف السجل الثاني ! ثم اكمل التسجيل لسجل ثالث جديد !! لن يقبل !!

 

هذا ونشكر الأستاذ محمد عصام على مشاركاته دائما

 

تحياتي

طيب وايش السبب ياسيد رمهان؟؟

ولو جعلنا الحقل رقم وصار الترقيم هكذا:2015001 بدلا من الشرطة المائلة هل سنتجاوز المشكلة..

 

اخي راعي الغنم

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

 

بالتوفيق

[راعي الغنم]

شكرا لكما جميعا, وكلامكما يدل على طيب اصولكما وحسن اخلاقكما

وفق الله الجميع..