اتفضل القي نظرتا الى هذا
تم استخدام هذا الكود مع اضافة حقل id باستخدام دالة dmax + 1
If IsNull(Me.Purchase__Order__No) = True Then
Me.id = Nz(DMax("[id]", "Order"), 0) + 1
Me.Purchase__Order__No = Nz(DMax("id", "Order"), 0) + 1 & "/" & 2020
DoCmd.RunCommand acCmdSaveRecord
Me.id.DefaultValue = Nz(DMax("[id]", "Order"), 0) + 1
End If
التوريد-.mdb