ترقيم تلقائي حسب الاصناف

[Yousef Aqel]

السلام عليكم . يا اخوان انا عامل دالة DMax  للترقيم التلقائي اكيد اغلبكم يعرفوها ... انا عندي صنفين من الخضار بطاطس وطماطم . اريد ان يكون الترقيم لكل على حده حسب الصنف 

يعني الطماطم تبدا من 1 والبطاطس تبدا من 1 ايضا .... بمعنى انه في الملف المرفق لازم الترقيم يكون كالتالي ....  

1- طماطم

1-بطاطس

2-بطاطس

3-بطاطس

2- طماطم

4- بطاطس 

وهكذا ........ 

طبعا هذا مثال قياس على المطلوب الرئيسي اللي عندي يعني لا حد يقولي افصلهم كل واحد بجدول ... لازم يكونو مع بعض بنفس الجدول مثل ما هما بالملف المرفق .... يا ريت اذا بتلاقو طريقة ترقيم حسب الصنف كل على حدة ... وشكرا 

db1.rar

تم تعديل أغسطس 5, 2017 بواسطه Yousef Aqel

[jjafferr]

وعليكم السلام

 

تم تغيير اعدادات الحقل ID الى السماح بالتكرار ،

وتفضل الكود ، والذي يشتغل بعد ان تُدخل قيمة الحقل Type في النموذج:

Private Sub Type_AfterUpdate()

    Me.ID = Nz(DMax("[ID]", "Table1", "[Type]='" & Me.Type & "'"), 0) + 1
End Sub

بس ملاحظة ، الموضوع غير متوقف على المادتين اللي ذكرتهم ، بل اذا اضفت اي مادة جديدة ، سوف يكون لها تسلسل مستقل.

 

جعفر

718.db1.accdb.zip

[Yousef Aqel]

عاجز عن الشكر ....... بارك الله فيك 

[hassan951]

اخى جعفر الشكر لك موصول

ساعدنى فى نفس الفكره ولكن بدل الاصناف هناك مكاتب ثابته ( مكتب 1 و 2 و 3 و 4

لجدولين صادر و وارد ............... اى مكتب 1 ممكن يعمل طلب صادر او وارد

فررت اعملهم فى جدولين على اساس العمليه ( صادر و وارد )

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

وعند الضغط على استلام ينشى ترقيم 

الشرح و الملف فى الموضوع اللى طرحته هنا لانى حاولت ارفق ملف تعذر