كيف تجعل الدالة dmax تتوقف عن الترقيم اذا وصلت الى رقم محدد

[f16]

اسعد الله مسائكم جميعاً

كيف يمكن وضع نهاية للترقيم بأستخدام الدالة dmax بحيث اريد ان يتوقف مثلا عند الرقم 999 

شاكرا ومقدرا

اخوكم

من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً , ولابد من تحديد أفضل إجابة من قبل صاحب المشاركة عند الحصول على الإجابة الصحيحة وذلك بتفعيل علامة الصح  من على يمين المشاركة الصحيحة

[essam rabea]

هل تقصد هذا؟

Test.accdb

[Debug Ace]

منع زيادة رقم بالدالة dmax.accdb

[f16]

ا/ عصام      

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

اكرر شكري لك

 

 

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

 

[Debug Ace]

انا مش فاهمه انت يعنى لاقيت الحل اللى انت عايزه واللا لسه

 

[essam rabea]

اذا ومما هو المطلوب بعد بلوغ الحد الأقصى للعدد؟

[f16]

أ/ عصام احييك في البداية على حرصك على مساعدة الاخرين لك مني التحية والأعزاز وبعد 

انا لدي جدول به اصناف تتبع المجموعات فمثلاً مجموعة الملابس تبداء برقم 100 ومجموعة الادوات الكهربائية تبداء برقم 200

تحت مجموعة الملابس يوجد اصناف على الشكل التالي 100001 جاكت جنز 100002 بنطلون جنز 100003 قميص رجالي وهكذا 

المجموعة الثانية يوجد بها ايضا اصناف على الشكل التالي 200001 مصباح كرستال 200002 مصباح ذهبي 200003 مصباح اصفر وهكذا 

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

ومجموعة الادوات الكهربائية اريده ايضا ان يتوقف عن الترقيم عند العدد 200999 

وهكذا بقية المجموعات .

ارجو ان اكون قد وفقت في الشرح . وارجو المعذرة منك أ/ عصام على كل حال .

اخوك 

 

 

[essam rabea]

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

ما تطلبه أعتقد أنه ممكن ولكن لا أملك الوقت كى أبنى قاعدة بيانات بها كل تلك الجداول والبيانات

فلو تفضلت بمثال صغير أكون ممتنا لك وإن لم أستطع فهنا أبنائى وإخوانى كثير لهم باع طويل فى البرمجة فسيتم إفادتك إن شاء الله

خالص تحياتى

[أبو عبدالله الحلوانى]

السلام عليكم 

لعل هذا يفيدك

if dmax("SnfNo","AsnafTbl","Where Condition")<100999 then
 no = dmax("SnfNo","AsnafTbl","Where Condition")+1
else
msgbox "قد تجاوزت الحد الأقصي للأصناف من فضلك قم بانشاء فئة جديدة لهذه الأصناف!"
end if                                                 

 

تم تعديل أكتوبر 9, 2019 بواسطه أبو عبدالله الحلوانى

[f16]

حياك الله أ/ عصام       

وضعت مثال لما اريده . في المثال ثلاث مجموعات موجودة في جدول المجموعات ويوجد ايضاً اصناف في جدول الاصناف ، ويوجد نموذج ادخال الاصناف الجديدة 

عند كتابة رقم المجموعة واضغط على انتر يقوم بعمل صنف جديد . اريد ان يقوم النموذج بعمل ترقيم لثلاثة الارقام الأولى من اليمين ولا يوقوم بتغيير رقم المجموعةمثل هذا (999)100 ولا يقوم بتغيير رقم المجموعة  على رقم المجموعة ان تبقى كما هي بدون تغيير 

مع خالص شكري 

 

مثال اوفيسنا حد الترقيم التلقائي.rar

 

ا/ ابوعبدالله 

اشكرك على ما تفضلت به 

لقد قمت بوضع مثال في المشاركة السابقة انظر اليه . 

اتمنى ان اكون قد وفقت في الشرح 

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

[essam rabea]

شوف أخى f16 

أولا يا ريت نعرف اسمك ايه وتكتبه فوق تحت f16

ثانيا أنا راجل عجوز وفهمى على قدى فعذرا إن لم يكن هذا المطلوب أيضا

خاص تحياتى

 

مثال اوفيسنا حد الترقيم التلقائي.accdb

[f16]

أخي عصام 

اشكرك على مجهودك وعلى سعت صدرك اسائل الله ان يجزيك خير على ما تقدمه من مساعدة الاخرين

اخوك عمار 

 

[essam rabea]

@f16 اخى عمار الملف المرفق هو المطلوب ام لا

وللرسالة المطلوبة بعدم التجاوز عن 999؟؟؟ ضع الكود التالى

Private Sub p2_AfterUpdate()
item_id = p1
item_id2 = p1
group_id2 = x1
'DoCmd.Requery
If x1 = 100 And p1 > 100999 Then
MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الملابس"
Me.Undo
x1.Undo
x1.SetFocus
Else
If x1 = 200 And p1 > 200999 Then
MsgBox "لقد تم بلوغ الحد الأقصى لمجموعة الأدوات الكهربائية"
Me.Undo
x1.SetFocus
End If
End If
End Sub

 

تم تعديل أكتوبر 11, 2019 بواسطه essam rabea

[أبوبسمله]

جزاكم الله خيرا اساتذتنا ووفقكم لما يحبه ويرضاه

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

Private Sub x1_AfterUpdate()

x2 = DLookup("[group_name]", "groups", "group_id=[forms]![items_card2]![x1]")

p1 = Nz(DMax("[item_id2]", "table_items", "group_id2=[forms]![items_card2]![x1]"), 0 & Format([x1] & "000")) + 1
p1.SetFocus
If [p1].Text > [x1] & "999" Then MsgBox "ÞÏ ÊÌÇæÒÊ ÇáÍÏ ÇáÃÞÕí ááÃÕäÇÝ ãä ÝÖáß Þã ÈÇäÔÇÁ ÝÆÉ ÌÏíÏÉ áåÐå ÇáÃÕäÇÝ!"
End Sub

والله اعلى واعلم بالتوفيق

 

مثال اوفيسنا حد الترقيم التلقائي_معدل.rar

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

[f16]

ا/ عصام  

اشكرك على هذا الكود الرائع .. 

لقد استفد منه كثيرا

تحياتي لك . اخوك 

 

[f16]

اخي ابو بسملة 

شكرا على مجهودك الرائع 

وقد استفد من الكود كثيرا

[أبوبسمله]

العفو اخى عمار
وان شاء الله يكون ما طلبت

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

بالتوفيق للجميع ان شاء الله

[essam rabea]

أ.عمار @f16

ياريت حضرتك نريحنا وتقول هل هذا ما تطلبة أم هناك مشكلة أخرى

خالص تحياتى

[f16]

نعم اخي عصام  لقد وجدت في حلك ما طلبته فألف شكر لك ولكل من شارك .

تحياتي عمار 

 

[essam rabea]

الحمد لله أ.f16

عفواً إقرأ آخر أربعة أسطر من بداية سؤالك