[ تمت الإجابة ]الترقيم التلقائي حسب معادلة حسابية

تفضل أخي الكريم طارق

الملف بناء على طلبك وحسب شرحك

za_CheckDigit_AutoNumber_UP.rar

السلام عليكم

الأخت الفاضلة أم عهود

رحم الله من انجبك ورباك فأحسن تربيتك ومن كان وراء تعليمك

الحقيقة اللسان يعجز عن الشكر والأمتنان

أجابتك أفادتني كثيراً ولكن لازلت أطمع في العلم الذي وهبك الله

الرقم (التشيك ديجت) من اليمين وليس اليسار والحقيقة لم أستطع

تغييره من ناحية اليمين ( التفكير توقف عندي)

ومرة أخرى بارك الله فيك

تلميذك أبو أحمد

:wacko:

بارك الله بك أخي الكريم

الموضوع لا يحتاج اي تفكير

كل ما عليك هو نقل المتغير CD في آخر الكود الذي يمثل CheckDigit من يسار الكود الى يمين الكود بهذه الطريقة

Private Sub xName_AfterUpdate()
Me!ID = Nz(DMax("[ID]", "[Table]"), 0) + 1
Dim x
Dim A
Dim C
Dim CD
x = Me![ID]
A = x / 7
C = A - Int(A)
CD = C * 7
Me.CheckDigit = Format(x, "0000000") & CD
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

za_CheckDigit_AutoNumber_UP2.rar

عذرا لم أفهم المطلوب هل من توضيح

السلام عليكم

بارك الله فيك أم عهود

والله فعلت هذه الطريقة ولم تنجح ولكن الأن نجحت

( اكيد خافت منك )

مرة أخرى جزاك الله كل خير وجعله في ميزان حسناتك

تلميذك أبو أحمد :lol:

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

ماشاء الله

جزاكى الله كل خير ياأم عهود