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

[slamco2000]

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

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

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

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

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

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

 

13 - Copy.rar

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

[Shivan Rekany]

منذ ساعه, 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

[slamco2000]

ألف شكر لك أخي ... رحم الله والديك .... هذا هو المطلوب