اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الحلبي
إذهب إلى أفضل إجابة Solved by محمد أبوعبدالله,

الردود الموصى بها

السلام عليكم 

مرفق نموذج

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

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

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

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

تحياتي

تم تعديل بواسطه محمد ابوعبد الله
  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

تحياتي

  • Like 2
رابط هذا التعليق
شارك

الله يرضى عنك

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

الحمد لله 

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

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

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

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

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

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

يبدو ان الكود يعمل ولكن لا يعطى ترقيم متسلسل ويظل الرقم هو 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:

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

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

السلام عليكم

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

 

 

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

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

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

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

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

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

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

استاذي / @kha9009lid

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

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

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

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

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

تم تعديل بواسطه الحلبي
  • Like 2
رابط هذا التعليق
شارك

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

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

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

بالتوفيق اخى

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information