حياك الله اخي الكريم
ضع هذا الكود في حدث عند الخروج او بعد التحديث
Private Sub NOM_Exit(Cancel As Integer)
text1 = Nz(DCount("[nom]", "ÇáãÚáæãÇÊ", "[nom]=forms!ÊÓÌíá!nom"), 0)
If text1 > 3 Then
MsgBox "åÐÇ ÇáÍÞá ãßÑÑ ËáÇË ãÑÇÊ"
Me.NOM = ""
Me.NOM.SetFocus
End If
End Sub
text1 هو حقل غير منظم في النموذج ليريك المجموع بإمكانك اخفائة .
وبأمكانك استخدام متغير بدلا منه . ..
انصحك بإستخام المسميات الإنجليزية ... حتى للنماذج والجداول
اول رمز غير ظاهر في هذا الكود هو : اسم جدول (المعلومات)
والثاني نموذج( التسجيل).
هذا شرح لأحد الطلبات وهو nom وبإمكانك تطبيقة على البقية.
بالتوفيق ان شاء الله.