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

[jo_2010]

السادة الخبراء الافاضل

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

طلبى هو عمل جدول يضم مجموعتين من المرضى يكون كودالمريض كما يلى

اذا كان  نوع المريض lab يبدا العد من 1 بالترتيب بدون تكرار  (ملحوظة عدد المرضى lab هنا لايزيد عن 2400) لذلك بدات عد progect من 3001)

اذا كان نوع المريض project يبدا العد من 3001 بالترتيب بدون تكرار

اليكم نموذج مصغر للعمل علية

 

2023.accdb

تم تعديل أبريل 17, 2023 بواسطه jo_2010

[متقاعد]

7 ساعات مضت, jo_2010 said:

اذا كان  نوع المريض lab يبدا العد من 1 بالترتيب بدون تكرار  (ملحوظة عدد المرضى lab هنا لايزيد عن 2400) لذلك بدات عد progect من 3001)

اذا كان نوع المريض project يبدا العد من 3001 بالترتيب بدون تكرار

ممكن

Dim x As Integer
Select Case Kind_pat
Case Is = "lab"
x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='lab'"), 0) + 1
Case Is = "project"
x = Nz(DMax("[PCode]", "lab_all", "[Kind_pat]='project'"), 3000) + 1
End Select
PCode = x

الملف في المرفقات

 

 

2023.accdb

تم تعديل أبريل 17, 2023 بواسطه متقاعد
تعديل بسيط

[jo_2010]

خالص الشكر معلمى الفاضل    

[متقاعد]

8 ساعات مضت, jo_2010 said:

خالص الشكر معلمى الفاضل    

الشكر لله استاذ يوسف