اريد شرح لهذا الكود

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

رمضان كريم وتقبل الله منا ومنكم الصيام والقيام

اريد من احد الاخوة الخبراء شرح هذا الكود

وهل استطيع ان اضع داخل جسم هذه الدالة كل الشروط والبرمجة الخاصة بنموذج يحتوي على نماذج مستمرة ؟

واين المكان الصحيح لوضعه في النموذج ؟؟ ام يوضع على زر امر ؟؟

  Dim sm, sma
sm = Recordset.RecordCount
On Error Resume Next
DoCmd.GoToRecord , , acFirst
For sma = 1 To sm
If Me.araby < 20 Then
Me.stat = "ÑÇÓÈ"
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acNext
End If
Next
DoCmd.GoToRecord , , acFirst
For sma = 1 To sm
If Not (Me.araby) >= 20 Then
Me.stat = "äÇÌÍ"
DoCmd.GoToRecord , , acNext
Else
DoCmd.GoToRecord , , acNext
End If
Next