اذهب الي المحتوي
أوفيسنا

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


f16
إذهب إلى أفضل إجابة Solved by essam rabea,

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

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

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

شاكرا ومقدرا

اخوكم

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

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

ا/ عصام      

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

اكرر شكري لك

 

 

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

 

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

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

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

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

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

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

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

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

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

اخوك 

 

 

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

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

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

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

خالص تحياتى

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

السلام عليكم 

لعل هذا يفيدك

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

 

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

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

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

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

مع خالص شكري 

 

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

 

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

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

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

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

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

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

شوف أخى f16 

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

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

خاص تحياتى

 

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

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

  • أفضل إجابة

@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

 

تم تعديل بواسطه essam rabea
  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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