الالتزام بالتسلسل والنمط

[Abdelaziz Osman]

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

مطلوب كود او قاعدة تحقق من الصحة

لطريقة الالتزام بالتسلسل والنمط التالى

1/2022  2/2022  3/2022  4/2022

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

4000/2022   

مع عدم تخطى التسلسل 

ارجوا الافادة

مرفق ملف 

 

التقيد بالتسلسل والنمط.mdb

تم تعديل يناير 9, 2022 بواسطه emad moh

[Moosak]

تفضل أخي عبدالعزيز :

أضفت لك عمودين أحدهما للترقيم التلقائي لمعرفة الترتيب الحقيقي للسجل ، وحقل آخر Topic لتجربة الترقيم يمكنك استبداله بما تشاء لاحقا ..

الكود يعتمد على آخر مدخل ، حيث أن حقل For غير قابل للتحرير ( الكود يضع الترقيم بنفسه) ، وعند بداية سنة جديدة يعيد الترقيم من الرقم 1

كتبت لك هذا الكود ووضعته في حدث قبل الإدراج :

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim OldN As String
Dim Y As Integer
Dim NewN As String

OldN = Nz(DLast("[for]", "TAB"), 1 & "/" & Year(Date))
Y = Right(OldN, Len(OldN) - InStr(OldN, "/"))

If Y = Year(Date) Then
    NewN = CInt(Left(OldN, InStr(OldN, "/") - 1)) + 1 & "/" & Year(Date)
    Me.FOR = NewN
Else
    NewN = 1 & "/" & Year(Date)
    Me.FOR = NewN
End If
End Sub

 

التقيد بالتسلسل والنمط.mdb

تم تعديل يناير 9, 2022 بواسطه Moosak

[Abdelaziz Osman]

اخى العزيز  Moosak 

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

1/2022    ثم   2/20222  ثم   3/20222    وهكذا ....  ولايقبل التخطى  ولا يقبل التكرار   

ولك جزيل جزيل الشكر

[Abdelaziz Osman]

 عندما  استخدمت    قاعدة التحقق من الصحة   تلك

Between 1/2022 And 4000/2022      اقفل الادخال  عند  السجل   39/2022   ولم يقبل  الاستكمال

 

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

 الكود

If rst.recordcount >4000 then

Msgbox ....

Else if rst.recordcount =0 then

Num= "1/"& Year(date)

Else

Num= rst.recordcount+1 &"/"& Year (date)

End if

 

 

[Moosak]

1 ساعه مضت, Abdelaziz Osman said:

اخى العزيز  Moosak 

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

1/2022    ثم   2/20222  ثم   3/20222    وهكذا ....  ولايقبل التخطى  ولا يقبل التكرار   

ولك جزيل جزيل الشكر

نعم هو لايقبل التكرار ..

لو لاحظت أنني تعمدت الوقوف عند 5/2021 لأريك فقط كيف أن الترقيم يبدأ من 1/2022 تلقائيا مع دخول السنة الجديدة ..

والتسلسل كما هو واضح لديك ..

[Abdelaziz Osman]

 عندما  استخدمت    قاعدة التحقق من الصحة   تلك

Between 1/2022 And 4000/2022      اقفل الادخال  عند  السجل   39/2022   ولم يقبل  الاستكمال

 

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

 الكود

If rst.recordcount >4000 then

Msgbox ....

Else if rst.recordcount =0 then

Num= "1/"& Year(date)

Else

Num= rst.recordcount+1 &"/"& Year (date)

End if

 

السؤال بطريقة اخرى مرفق ملف

المطلوب فيه عند كتابة اي ادخال ولو حرف واحد فى حقل Person in charge  يعطى نتيجة تلقائى بالحقل TENDER_NO   بالقيمة 1/2022  وهكذا وكلما ضغط على زرار اضافة  وادخل على نموذج FO4   وادخل سجل جديد فى حقل Person in charge ولو حرف واحد يعطى فى TENDER_NO القيمة التى بعدها  2/2022   بدون تخطى التسلسل وبدون تكرار

 

FO4.zip

[Moosak]

تم التعديل أخي العزيز كما فهمت منك ..

طبعا مع بداية السنة الجديدة سيبدأ الترقيم من الواحد من جديد مع تغيير السنة الجديدة
ولو حذفت جميع السجلات وبدأت من جديد .. أيضا سيبدأ من 1/2022

FO4.mdb