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

أخي الكريم/ طالب علم2002

من خلال تجربتي لكي تجعل الترقيم يبدأ برقم واحد مع بداية كل عام يجب أن يكون الحقل من نوع "الرقم".

ولتنفيذ ذلك برمجياً ضع الكود التالي في "حــدث" قبل الإدراج للنموذج :

Private Sub Form_BeforeInsert(Cancel As Integer)

ولتوضيح ما جاء أعلاه تجد أدناه مثال مرفق.

http://www.geocities.com/ibnmuscat/Alsadir.zip

ولك كل التحية والتقدير.

ضع الكود التالي في "حدث" بعد الإدراج للنموذج :

Private Sub Form_AfterInsert()

If DatePart("yyyy", DLast("Date", "Main")) <> _

DatePart("yyyy", Now()) Then

DoCmd.GoToRecord , , acNewRec

Me![LetterNo] = 1

Else

Me![LetterNo] = DLast("Date", "Main") + 1

End If

End Sub

مرفق مثال له في أدناه والله الموفق .

out_go_mail.zip

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

عزيزي طالب العلم

هلا جربت أن يكون لكل عام جدول خاص وبواسطه كود بسيط جدا تفتح الجدول بواسطة كائن recordest مع select مع الداله max

بحيث تأخذ اكبر رقم ثم تضيف اليه 1

---- مع بداية العام الجديد يكون لديك جدول فارغ في قاعده البيانات تأخذ نسخه من لكل عام

---- إذا وافقتني ولم تتضح الصوره ممكن اوضح اكثر

--- أخي ابن مسقط لا استغني عن رأيك

وشكرا للجميع

اخي الكريم ابن مسقط

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

اقتباس

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

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

اخي ابو عبدالملك اشكرك من اعماق قلبي على اهتمامك بهذا الموضوع

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

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

وجزاك الله عنا كل خير

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

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

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

لذا ارجوا من جميع الاخوة والذين لهم سابق تجارب مع برامج الصادر والوارد

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

اخوكم طالب علم 2002

اقتباس

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

أخي الكريم/ طالب علم2002

تجربتي مع برامج الصادر مدتها لا تزيد عن 5 سنوات ، وأشاركك الرأي بالنسبة للطريقتين فالأولى هي الأفضل من ناحية سهولة إدخال البيانات وإعطاء الرقم حسب التسلسل بالإضافة إلى بدء الترقيم من رقم (1) في بداية كل عام.

مع العلم أن الطريقة التي ذكرها الأخ الكريم/ ابوعبدالملك جيدة ولها عشاقها والبرمجة كما هو معلوم لدى البعض يدخل في إنجازها الميول والمزاج ووجهات النظر بغض النظر عن صحتها برمجياً. فالبعض يفضل تخزين مراسلات الصادر لجميع السنوات في جدول واحد كما أن البعض يريدها منفصلة كل عام في جدول مستقل مثل ما يحدث في فتح ملفات جديده في بداية كل سنة.

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

مٌô‎é_çلُçïٌ.zip

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

space.zip

..

لك عندي دالة ما تدعدى نصف سطر، مع قاعدة بيانات للصادر والوارد غير مكتمل التصميم.

إذا كنت توافق على أن تقوم باتمام البرنامج ونشره في المنتدى، فسوف أرسله لك، مع ارسال برنامجك لي لمعاينته.

الأخ Gaham

أنا لست ممن يحجبون المعلومات و يحتفظون بها فأنا معلم و لم أبخل على أحد من طلابي بتقديم المعلومات و النصح و المشورة لهم و عن خبرتي في مجال الكمبيوتر فأنا ألم ببعض المعلومات سواءً في منسق الكلمات أو الجداول و مصمم صفحات الأنترنت فرونت بيج أو صيانة الأجهزة برامج و قطع و لم أبخل على كل من قصدني في تقديم المشورة لهم و إبداء معرفتي لهم و حتى إذا صحوني من نومي و بدون تذمر و لن أبخل على هذا المنتدى بأي معلومة لدي لأنني تعلمت منه الكثير و أنا مدين له بالكثير مما تعلمته و لأصحاب الضمائر الحية و الذين يرون وجه الله في تقديم أعماله و أنا من بداية تسجيلي في المنتدى و المدة التي قضيتها فية شهرين تقريباً لم أبخل فالبرنامج الوحيد الذي عملته لم أبخل به و إن كان قبل سنتين و فكرته ممكن تكون قديمة إلا إني قدمته في موضوع مصروف المنزل و يمكنك أن تزله مجاناً و بدون مقابل و إن كان mde و ذلك لفقداني القاعدة الأساسية mdb لأنني كنت أحتفظت بالنسخة في قرص مرن و قد عُطب هذا البرنامج

. أما هذا البرنامج كما تسميه فهو ليس ملكاً لي و إنه لصديق عزيز على و غير مصرح لي بنشره و أنت تعلم إذا كان لديك مشروع تعمل عليه فإن هذا يساعدك على التعلم أكثر و أنا الآن أعد برنامجاً خاص بي و عند الإنتهاء منه لن أحتفظ به لأنفسي فإني مما يريد أن تعم الفائدة للجميع و فكرته جديدة و قد تكون جديدة بالنسبة لي ( الله أعلم ) و سوف يمكن للجميع التعديل عليه و قد استفدت من مجموعة كثيرة من الأعضاء في هذا المنتدى و الله يشهد على صدقي مع نفسي أولاً و شفافيتي مع الأخرين

تحياتي space

يا أخي الفاضل: زادك الله بذلا وعطاءً، ووفقك وأعضاء المنتدى وزواره لكل خير

لعل كلامك هذا يكون مفتاحا لقلبي وقلبك وآصرة محبة وإخاء اللهم آمين.

شرطي كان على اتمام قاعدة البيانات التي سوف أرسلها لا على قاعدتك أنت

ولك عذرك

بارك الله فيك

آسف لإزعاجك

الدالة مرفقة في قاعدة البيانات التالية

سوف أزودة في المستقبل بقاعدة بياناتي

عزيزي يعلم الله ما في قلبي من صفاء نفس

على العموم لقد عرفت ما هو خطأي و هو أنني لم أجعل التاريخ تلقائي

و عذراً قبل أن أرى ردك عررفت الخطأ و الله يعطيك العافية

تحياتي

الأخ الكريم/ space

المعذرة منك ، فقد كنت خارج البلاد خلال تلك الفترة .

والحمدالله على توصلك إلى حل المشكله:D .

والله الموفق .

شكراُ لك يا ابن مسقط و الحمد لله عودتك سالماً