ترقيم حسب السنة مسبوق بحرف R

[الحلبي]

السلام عليكم 

مرفق نموذج

المطلوب : عند الضغط على علامة الاختيار وتصبح (صح) 

يكون رقم الايصال بالتنسيق التالى : 2019-1-R    وهو عبارة عن 

R    هو رمز الايصال

1   هو ترقيم متسلسل ـ يتغير عند الانتقال الى السجل التالى ويصبح رقم 2 -3-4 وهكذا .....

2019  هو السنة الحالية ثابت لا يتغير الا اذا تغيرت السنة الحالية

عند الضغط على علامة الاختيار مرة اخرى وتصبح (فارغة) يكون رقم الايصال فارغ

بحثت وقرأت جميع الامثلة الموجودة وعند التطبيق لم اوفق 

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

ترقيم متقدم.accdb

[محمد أبوعبدالله]

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

يوجد مثال رائع لاستاذنا ابوخليل

ترقيم متقدم.rar

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

Me!Receiptno = "R-" & Format(xNext, "0000") & "-" & prtyr

تحياتي

تم تعديل ديسمبر 16, 2019 بواسطه محمد ابوعبد الله

[الحلبي]

استاذنا وخبيرنا / @محمد ابوعبد الله

بارك الله فيك وفتح عليك

اشكر حضرتك على تقديم المساعد لى دائما وللآخرين ، لقد اطلعت على مثال شيخنا الجليل / ابو خليل من قبل اثناء بحثى ولكن عند التطبيق لم اوفق

يوجد ملاحظتين على المثال المرفق ان سمحت لي وهما :

الاولى : رقم 00001 لا يتغير عند الانتقال للسجل التالى (اي الموظف التالي) والمفروض ان يكون 00002 وعند الموظف التالى يكون 00003 وهكذا

الثانية : عند الغاء خانة الاختيار وجعلها فارغة المفروض ان يجعل رقم الايصال فارغ لهذا السجل فقط

الثالثة : حبذا لو يكون رقم 00001 بدون اصفار 

كل الاحترام والتقدير لكم 

 

[محمد أبوعبدالله]

تفضل اخي الكريم

ملاحظة الترقيم سيعمل معك عند ادراج سجل جديد لأن الترقيم في حدث Form_AfterInsert

ترقيم متقدم.rar

تحياتي

[الحلبي]

الله يرضى عنك

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

ولا يعمل عند الغاء علامة الاختيار والمطلوب ان يحذف رقم الايصال عند الغاء علامة الاختيار

[الحلبي]

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

باقى شئ واحد ان يكون شكل او تنسيق رقم الايصال كالتالى 2019-1-R

[الحلبي]

الحمد لله 

قد تمكنت من عمل كل شئ بعد عدة محاولات والآن كل شئ مصبظ بفضل الله ثم فضلكم استاذنا / محمد ابو عبد الله

الله يرحم والديك في الدنيا والاخرة ويجعل اخرتك الجنة ان شاء الله

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

واصبح كالمرفق التالى

تم تعديل ديسمبر 16, 2019 بواسطه الحلبي

[ابوآمنة]

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

آمل إرفاق ما توصلتم إليه؛ ليستفيد منه .

[الحلبي]

اعتذر عن عدم الارفاق سهوا منى

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

ترقيم متقدم.accdb

[الحلبي]

يبدو انى استعجلت شوية

يبدو ان الكود يعمل ولكن لا يعطى ترقيم متسلسل ويظل الرقم هو 1

ارجو تصحيح الكود

[محمد أبوعبدالله]

اخي الكريم

الافضل ان يكون الكود في حدث Form_AfterInsert حتى يأخذ رقم ثم يحتفظ به

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

فالكود بهذا الشكل يؤدي وظيفته بشكل طبيعي

تحياتي

[أبوبسمله]

جزاكم الله خيرا اخوانى واساتذتى @ابوخليل و @محمد ابوعبد الله

المثال يعمل زى الفل ويمكن عمل الحدث لزر الشيك بوكس ليعمل كما يريد الاستاذ حلبى

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

بالنسبه لهذه الجزئيه حاولت فيها

في ١٦‏/١٢‏/٢٠١٩ at 10:00, حلبي said:

باقى شئ واحد ان يكون شكل او تنسيق رقم الايصال كالتالى 2019-1-R

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

ولكن حينما قمت بتغير تاريخ الجهاز الى السنه الجديده لا يعمل

أرفقت المرفق لرؤيته وتعديله

Private Sub r1_Click()
   If Me.r1.Value = -1 Then

            On Error Resume Next
            Dim xLast, xNext As Integer
            Dim prtyr, prtTxt As Integer
            prtyr = Right(DatePart("yyyy", Date), 4)
            prtTxt = CLng(Mid(DMax("Receiptno", "t1"), 3, 5))
            xLast = CLng(Mid(Left(DMax("Receiptno", "t1", prtTxt = prtyr), 2), 2, 1))
            If IsNull(xLast) Then
            xNext = 1
            Else
            xNext = xLast + 1
            End If
            Me!Receiptno = "R" & Format(xNext, "0") & prtyr
    Else
           Me!Receiptno = ""
    End If
End Sub

تقبلوا تحياتى وتمنياتى لكم بالتوفيق

طبتم واهتديتم

ترقيم متقدم-معدل.accdb

[الحلبي]

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

اقتباس

ولكن حينما قمت بتغير تاريخ الجهاز الى السنه الجديده لا يعمل

أرفقت المرفق لرؤيته وتعديله

مشكور اخى الاستاذ / احمد 

كلام مصبوظ ولعل وعسى احد الاخوان يقوم بالتعديل

[أبوبسمله]

في ١٩‏/١٢‏/٢٠١٩ at 23:18, حلبي said:

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

مشكور اخى الاستاذ / احمد 

كلام مصبوظ ولعل وعسى احد الاخوان يقوم بالتعديل

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

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

وان شاء الله احد اساتذتنا يساعدنا ويفهمنا التعديل الصح حتى يتم الترقيم من العام الجديد ويشتغل تمام

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

[husamwahab]

السلام عليكم

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

asd.rar

[أبوبسمله]

في ٢٠‏/١٢‏/٢٠١٩ at 06:58, husamwahab said:

السلام عليكم

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

asd.rar 52.15 kB · 0 تنزيلات

جزاك الله خيرا اخى حسام

محاوله طيبه ومجهود تشكر عليه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

[kha9009lid]

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

 

 

ترقيم متقدم-معدل.accdb

[أبوبسمله]

في ٢٢‏/١٢‏/٢٠١٩ at 15:29, kha9009lid said:

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

 

 

ترقيم متقدم-معدل.accdb 512 kB · 1 تنزيلات

جزاك الله خيرا اخى واستاذى خالد

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

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

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

تم تعديل ديسمبر 22, 2019 بواسطه أحمد الفلاحجى

[الحلبي]

استاذي / @kha9009lid

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

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

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

واشكر الاستاذ @husamwahab  على مشاركته وتقديم المساعده لى جزاه الله خيرا

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

تم تعديل ديسمبر 22, 2019 بواسطه الحلبي

[أبوبسمله]

العفو استاذ حلبى

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

والحمدلله اساتذتنا لم يقصروا معنا جزاهم الله كل خير

بالتوفيق اخى