السلام عليكم
بعد اذنك azhar
م رايك في التالي
نضع في حدث قبل الادخال للنموذج الكود التالي ليظهر رسالة بعدم امكانية اضافة سجل سادس
Private Sub Form_BeforeInsert(Cancel As Integer)
If Me.Recordset.RecordCount >= 5 Then
MsgBox "لا يمكنك اضافة اكثر من 5 سجلات ", , "تنبيه بعد الزيادة"
Cancel = True
Me.Undo
End If
End Sub