ترقيم تلقائي بحسب نوع السند

[رعد داود]

السلام عليكم

لدي تكست بوكس  الاسم الافتراضي لها "سند صرف"  واسمهما types ويتم تخزينها  في  جدول bills  وحقل اسم السند في الجدول type
اريد  ترقيم تلقائي في الفورم  بحقل  no استنادا" على اسم سند الصرف  عند فتح النموذج .. يبدأ من رقم 1  وهناك نموذج مماثل  " سند قبض"

عملت دالة dmax في حدث بعد  التحديث للتكست بوكس  ولم  ينجح ..............
Private Sub types_AfterUpdate()
If ([MeTypes]) = "سند صرف" Then
    Me![no] = Nz(DMax("[no]", "[bills]", "type='سند صرف'"), 0) + 1
   End If
End Sub

تم تعديل مارس 14, 2018 بواسطه رعد داود

[sandanet]

اخي الكريم ارفق قاعدة بيانات للعمل عليها

[رعد داود]

السلام عليكم
تسلم  أخي  اليك  المرفق ترقيم.rar

[النجاشي]

10 ساعات مضت, رعد داود said:

السلام عليكم
تسلم  أخي  اليك  المرفق ترقيم.rar

وعليكم السلام ورحمه الله وبركاته 

 مجرد محاوله بعد اذن استاذنا الغالي@sandanet

اخي الكريم رعد استخدم هذا في حدث الحالي

Me![no] = Nz(DMax("[no]", "[bills]", "type='سند صرف'"), 0) + 1
 

[رعد داود]

السلام عليكم
شكرا" لكم  اخي  ابو ز اهر
لكن ماذا تقصد في حدث  الحالي  ... انا استخدم النسخة الانكليزية 

السلام  عليكم

احسنت  اخي  ابا  زاهر   تم  ... حدث  الفورم 
Private Sub Form_Current()
Me![no] = Nz(DMax("[no]", "[bills]", "type="سند صرف"), 0) + 1
End Sub

[النجاشي]

منذ ساعه, رعد داود said:

السلام عليكم
شكرا" لكم  اخي  ابو ز اهر
لكن ماذا تقصد في حدث  الحالي  ... انا استخدم النسخة الانكليزية 

السلام  عليكم

احسنت  اخي  ابا  زاهر   تم  ... حدث  الفورم 
Private Sub Form_Current()
Me![no] = Nz(DMax("[no]", "[bills]", "type="سند صرف"), 0) + 1
End Sub

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

تحياتي اليك

[رعد داود]

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

[النجاشي]

العفو اخي رعد