رقم مسلسل في النموذج الفرعى

[husseinharby]

السلام عليكم

في نمذج sale

اريد خانة لرقم مسلسل الفاتورة في النموذج الفرعي

كما هو مبين في الصورة

Compressed.rar

[د.كاف يار]

تفضل اخي الكريم تم التعديل على نموذج Seles

Compressed.rar

[husseinharby]

عذرا اخي الكريم 

لكن المسلسل لايعمل بشكل صحيح

@احمد الفلاحجي

تم تعديل أغسطس 25, 2020 بواسطه husseinharby

[د.كاف يار]

تفضل هذا التعديل اخي الكريم

 

لكن للعلم و الإحاطة !!!

لا  تقم بنسخ و لصق البيانات لعمل اختبار للترقم !

المرفق الحالي عملية الترقيم تتم بعد تحديث حقل الصنف

من خلال الدالة التالية

 

number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1

يتم استدعاء اكبر قيمة في عمود التسلسل المسمى number 

بعد جلب القيمة يتم اضافة رقم 1 للنتيجة لتعطي الرقم التالي المفترض

 

اذا فنسخ و لصق البيانات لن يجعل الكود يعمل 

copy.accdb

[husseinharby]

عذرا اخي الفاضل

هذه الطريقة بها بعض العيوب وهي انني اذا قمت بالتعديل علي الصنف الذي قمت بكتابته

يعطيني رقم مسلسل خطأ

هل يوجد طريقة اخري افضل

[أبوبسمله]

السلام عليكم

مشاركه مع اخى واستاذى الدكتور حسين @د.كاف يار

اتفضل اخى @husseinharby تعديل بسيط على كود اخى واستاذى حسين جرب ووافنا بالنتيجه

Private Sub item_AfterUpdate()
[sale_qty] = 1
If Len(number & "") = 0 Then
number = Nz(DMax("[number]", "[details]", "[sale_id]=[Forms]![sale]![sale_id]"), 0) + 1
Else
End If
End Sub

بالتوفيق

copy(2).accdb

[الحلبي]

والله معلمنا/ ا@الفلاحجى

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

[husseinharby]

On 9/1/2020 at 8:20 PM, الفلاحجى said:

[sale_qty] = 1 If Len

بارك الله فيك اخي الفاضل

[أبوبسمله]

وفيك بارك الله د محمد  @حلبي 💐

وفيك بارك الله @husseinharby 💐

الحمد والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐