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

**kaser906** · ديسمبر 17, 2017

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

اريد بالمرفق

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

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

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

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

**jjafferr** · ديسمبر 17, 2017

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

تفضل

Private Sub A_AfterUpdate()

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

جعفر

**kaser906** · ديسمبر 18, 2017

9 ساعات مضت, jjafferr said:
وعليكم السلام

تفضل
Private Sub A_AfterUpdate()

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

تسلم استاذ

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

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

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