تصحيح كود

[سمير1]

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

 

 

 

أرجو تعديل الكود الموجود بمربع النص بحيث عندما ادخل رقم  فإنه ينتقل إلى السجل التالى ويضيف 1 إلى الرقم المدخل ثم يسجل الذى يليه ويضيف عليه 1 وهكذا حتى يصل لرقم 20

 

فمثلا إذا ادخلت رقم 18 فإنه ينتقل للسجل التالى ويكتب 19 ثم الذى بعده ويكتب 20 ثم يتوقف

 

وإذا أدخلت 16 ينتقل للسجل التالى ويكتب 17 ثم السجل الذى يليه ويكتب 18 وهكذا حتى يصل إلى 20 ثم يتوقف

 

الكود خطأ مرفق الملف

Do Until No > 20

DoCmd.GoToRecord , , acNext

No = No + 1

Loop

20.rar

[سمير1]

للرفع للأهمية   (تصحيح الكود)

[عبدالله المجرب]

اليك هذا التعديل 

جربه

Private Sub No_AfterUpdate()
Dim MyVal As Integer
MyVal = No
Do Until No > 20
DoCmd.GoToRecord , , acNext
No = MyVal + 1
Exit Do
Loop
End Sub

[ابوخليل]

وهذا حل  بدالة أخرى

 

Private Sub No_AfterUpdate()
Dim x As Integer
x = No
For x = x To 20
No = x
DoCmd.GoToRecord , , acNext
No = No + 1
Next
End Sub

[سمير1]

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