الالتزام بالتسلسل

[EMM2020]

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

لدي ملف مرفق اريد عندما ادخل اي قيمة فى حقل ( kind_material ) يظهر فى حقل (Purchase_ Order _No)  التسلسل التالى  

1/2020

2/2020

3/2020

بدون فقدان للتسلسل او ادخال شىء مخالف

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

ارجوا الافادة من اساتذتنا الافاضل

التوريد-.mdb

[Shivan Rekany]

اتفضل القي نظرتا الى هذا

تم استخدام هذا الكود مع اضافة حقل id باستخدام دالة dmax + 1 

If IsNull(Me.Purchase__Order__No) = True Then
    Me.id = Nz(DMax("[id]", "Order"), 0) + 1
    Me.Purchase__Order__No = Nz(DMax("id", "Order"), 0) + 1 & "/" & 2020
    DoCmd.RunCommand acCmdSaveRecord
    Me.id.DefaultValue = Nz(DMax("[id]", "Order"), 0) + 1
End If

 

التوريد-.mdb

[essam rabea]

أ.عماد محمد عبد العزيز

جرب المرفق عسى أن يكون المطلوب مع مراعاة أن 2020 ستتغير كل عام .. أم أنك تريدها ثابته

التوريد.accdb

معذرة أخى Shivan Rekany لم أنتبه لردك

[EMM2020]

تسلم ياغالى أ. essam rabea هو ده اللى انا عايزة بالضبط

ربنا يزيدك علما يارب اتعلم من حضرتك , فعلا انا عايزها تتغير كل عام بس كمان عايزها تبدأ برقم 1/2021 مع العام الجديد ان امكن وهكذا كل عام جديد يبدأ برقم (1)

وانا اسف جدا جدا لو فيها ممكن طلب كمان كنت عايز نموذج كمان بس بدل 1/2020   يبدأ   بـــ

5001/2020

5002/2020

5003/2020    وهكذا

شكرا جزيلا لك انا مش عارف اشكرك ازاي

تم تعديل يناير 15, 2020 بواسطه عماد محمد عبد العزيز

[EMM2020]

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

[Shivan Rekany]

منذ ساعه, عماد محمد عبد العزيز said:

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

جرب المرفق في مشاركتي السابقة 

فقط غير في الاكواد رقم 2020  ب 

اقتباس

Year(Date())

 

[EMM2020]

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

فعلا شكرا لك