ممكن يكون ترقيم تلقائي بناءً على إسم الشركة

slamco2000 · فبراير 3, 2018

هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة

في المرفق من نموذج : New_Invoice

أريد الترقيم يكون بناءً على الحقل : owner company name

ويواصل تسلسل الترقيم بناءً على ذلك

هل من حل لهذه المسألة

مع الشكر الجزيل

13 - Copy.rar

تم تعديل فبراير 3, 2018 بواسطه slamco2000

**Shivan Rekany** · فبراير 3, 2018

منذ ساعه, slamco2000 said:

هل من الممكن أن يكون الترقيم التلقائي بناءً على إسم الشركة

في المرفق من نموذج : New_Invoice

أريد الترقيم يكون بناءً على الحقل : owner company name

ويواصل تسلسل الترقيم بناءً على ذلك

اتفضل اليك هذا

Private Sub Owner_Company_AfterUpdate()
    Me.Invoice_No = Nz(DMax("[Invoice_No]", "[New_Invoice]", "[Owner_Company]='" & Me.Owner_Company & "'"), 0) + 1
End Sub

13 - Copy.zip