ترقيم تلقائي بناء على رقم بالجدول

[kaser906]

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

اريد بالمرفق

مثلا عند ادخال رقم  10 في النموذج بالحقل A يتم النظر بالجدول هل رقم 10 موجود بالحقل A

اذا لم يكن موجود يتم ترقيم الحقل B ابتداء من رقم 1

وعند ادخال سجل جديد بالرقم 10 في  الحقل ِA يتم ترقيم  الحقل B بالرقم 2

وعند ادخال رقم 11 بالحقل A يتم ترقيم الحقل B من البداية بالرقم 1 وهكذا الى مالا نهاية

Auotonember.rar

[jjafferr]

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

 

تفضل

Private Sub A_AfterUpdate()

    Me.B = Nz(DMax("[B]", "tabl", "[A]=" & Me.A), 0) + 1
End Sub

 

جعفر

[kaser906]

9 ساعات مضت, jjafferr said:

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

 

تفضل

Private Sub A_AfterUpdate()

    Me.B = Nz(DMax("[B]", "tabl", "[A]=" & Me.A), 0) + 1
End Sub

 

جعفر

تسلم استاذ

رحم الله والديك 

هذا هو المطلوب