اگه دقت کنی بالای کد نوشته بودم چه کار کنید ولی دوباره براتون میگم
برای ربط دادن باید این مرحل را اجرا کنید
text0 همان فیلد عدد میباشد
Private Sub Text0_AfterUpdate()
If text0 > 0 then
text2 = Adad (text0)
End if
End Sub